X-Git-Url: https://git.ucc.asn.au/?p=ipdf%2Fsam.git;a=blobdiff_plain;f=figures%2Fshape.eps;h=05aa83f8361c20c4239139a462410c5dd35207c5;hp=3b8c5093a7534f45b8e3ba1fceac3c71ee908a99;hb=23e6982a39b77ea440300bfeafbccb8a15f48c5d;hpb=c9fe0f2e2b310beadf3f046a96f93d255a5b3b38

diff --git a/figures/shape.eps b/figures/shape.eps
index 3b8c509..05aa83f 100644
--- 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