+%!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