All the figures and none of the Lit Review

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

diff --git a/figures/shape.eps b/figures/shape.eps
index 3b8c509..05aa83f 100644 (file)
--- a/figures/shape.eps
+++ b/figures/shape.eps
@@ -1,29 +1,33 @@
 %!PS-Adobe-3.0 EPSF-3.0
 %%BoundingBox: 0 -1 85 150
-
-% A rectangular path
+% These lines are comments to aid in human understanding
+% Define an operator to produce 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
+0 exch rlineto 0 rlineto closepath } bind def
+% Operator to produce the path for the first rectangle
 /re1 { 24.613 133.001 24 -120 re } bind def
-% Path for the second rectangle
+% Operator to produce the 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
+% Operator which will produce 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 
+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 
+0 setgray 0.613 149.001 moveto 83.812 0.2 lineto stroke
 % 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 
+% Fill and outline the second rectangle
 0 1 0 setrgbcolor re2 fill 0 setgray re2 stroke
 showpage