[comp.lang.postscript] recycling symbol MkII

rob@siesoft.co.uk (Rob Henley) (06/11/90)

ok - now I know what the symbol should look like, here's another attempt :-)

Rob Henley
SDG, Reading
8-< -------------------------------------------------------------------------
/home  { -18 14 moveto } bind def

/arrow {
home				% do the dog-leg
-8 8 lineto
0 20 lineto
home				% do "long" spline
-5 33 10 37 16 20 curveto
home				% do "short" spline
-9 29 -2 26  3 13 curveto
0 11  lineto			% add the arrow head
13 10 lineto
19 22 lineto
16 20 lineto
stroke
} bind def

200 200 translate
2 setlinewidth
.4 setgray
  5 rotate arrow
120 rotate arrow
120 rotate arrow
showpage