figures/shape.eps

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%BoundingBox: 0 -1 85 150
   3 % These lines are comments to aid in human understanding
   4 % Define an operator to produce a rectangular path
   5 /re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
   6 0 exch rlineto 0 rlineto closepath } bind def
   7 % Operator to produce the path for the first rectangle
   8 /re1 { 24.613 133.001 24 -120 re } bind def
   9 % Operator to produce the path for the second rectangle
  10 /re2 { 10.215 45.001 48 -16 re } bind def
  11 % Operator which will produce the curved path
  12 /curve { 46.215 1.001 moveto
  13 46.215 1.001 91.812 11.399 71.812 35.399 curveto
  14 51.812 59.399 29.414 33.802 51.812 59.399 curveto
  15 74.215 85.001 93.414 45.802 74.215 85.001 curveto
  16 55.016 125.001 61.414 49.802 46.215 75.399 curveto
  17 31.016 101.001 56.613 126.598 56.613 126.598 curveto
  18 56.613 126.598 88.613 166.598 56.613 137.802 curveto
  19 24.613 109.001 -18.586 83.399 9.414 50.598 curveto
  20 37.414 17.802 45.414 1.001 45.414 1.001 curveto
  21 closepath } bind def
  22 % Set stroke properties
  23 0.8 setlinewidth 0 setlinecap 0 setlinejoin []
  24 0.0 setdash 4 setmiterlimit
  25 % Draw the straight line
  26 0 setgray 0.613 149.001 moveto 83.812 0.2 lineto stroke
  27 % Fill and outline the first rectangular path
  28 0 0 1 setrgbcolor re1 fill 0 setgray re1 stroke
  29 % Fill and outline the curved shape
  30 1 0 0 setrgbcolor curve fill 0 setgray curve stroke
  31 % Fill and outline the second rectangle
  32 0 1 0 setrgbcolor re2 fill 0 setgray re2 stroke
  33 showpage