figures/shape.eps

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%BoundingBox: 0 -1 85 150
   3
   4 % 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 % Path for the first rectangle
   8 /re1 { 24.613 133.001 24 -120 re } bind def
   9 % Path for the second rectangle
  10 /re2 { 10.215 45.001 48 -16 re } bind def
  11 % The curved path
  12 /curve { 46.215 1.001 moveto
  13 46.215 1.001 91.812 11.399 71.812 35.399 curveto 51.812 59.399
  14  29.414 33.802 51.812 59.399 curveto 74.215 85.001 93.414 45.802 74.215 85.001
  15  curveto 55.016 125.001 61.414 49.802 46.215 75.399 curveto 31.016 101.001 56.613 126.598
  16  56.613 126.598 curveto 56.613 126.598 88.613 166.598 56.613 137.802 curveto 24.613
  17 109.001 -18.586 83.399 9.414 50.598 curveto 37.414 17.802 45.414 1.001 45.414
  18 1.001 curveto closepath } bind def
  19 % Set stroke properties
  20 0.8 setlinewidth 0 setlinecap 0 setlinejoin [] 0.0 setdash 4 setmiterlimit
  21 % Draw the straight line
  22 0 setgray 0.613 149.001 moveto 83.812 0.2 lineto fill
  23 % Fill and outline the first rectangular path
  24 0 0 1 setrgbcolor re1 fill 0 setgray re1 stroke
  25 % Fill and outline the curved shape
  26 1 0 0 setrgbcolor curve fill 0 setgray curve stroke
  27 % Fill and outline the second rectangle
  28 0 1 0 setrgbcolor re2 fill 0 setgray re2 stroke
  29 showpage