PostScript or should I say NotJavaScript

[ipdf/sam.git] / figures / shape.eps

diff --git a/figures/shape.eps b/figures/shape.eps
new file mode 100644 (file)
index 0000000..3b8c509
--- /dev/null
+++ b/figures/shape.eps
@@ -0,0 +1,29 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: 0 -1 85 150
+
+% A rectangular path
+/re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
+      0 exch rlineto 0 rlineto closepath } bind def
+% Path for the first rectangle
+/re1 { 24.613 133.001 24 -120 re } bind def
+% Path for the second rectangle
+/re2 { 10.215 45.001 48 -16 re } bind def
+% The curved path
+/curve { 46.215 1.001 moveto 
+46.215 1.001 91.812 11.399 71.812 35.399 curveto 51.812 59.399
+ 29.414 33.802 51.812 59.399 curveto 74.215 85.001 93.414 45.802 74.215 85.001
+ curveto 55.016 125.001 61.414 49.802 46.215 75.399 curveto 31.016 101.001 56.613 126.598
+ 56.613 126.598 curveto 56.613 126.598 88.613 166.598 56.613 137.802 curveto 24.613 
+109.001 -18.586 83.399 9.414 50.598 curveto 37.414 17.802 45.414 1.001 45.414 
+1.001 curveto closepath } bind def
+% Set stroke properties
+0.8 setlinewidth 0 setlinecap 0 setlinejoin [] 0.0 setdash 4 setmiterlimit 
+% Draw the straight line
+0 setgray 0.613 149.001 moveto 83.812 0.2 lineto fill 
+% Fill and outline the first rectangular path
+0 0 1 setrgbcolor re1 fill 0 setgray re1 stroke
+% Fill and outline the curved shape
+1 0 0 setrgbcolor curve fill 0 setgray curve stroke
+% Fill and outline the second rectangle 
+0 1 0 setrgbcolor re2 fill 0 setgray re2 stroke
+showpage