[comp.lang.postscript] Recycle symbol, Dutch version

hd@cft.philips.nl (Henk D. Davids @ PMSN) (07/10/90)

All the recycle symbol definitions I have seen here sofar differ in 2 ways
from what I have seen printed in this country:
- the arrows are less curved here, and
- the top arrow is different from the other two: the top one folds to
  the back, the other two fold to the front.
So, here is my version:

%-------------------recycle.ps------------------------------------------
% recycle symbol definition
% hdavids@mswe.ms.philips.nl, July 10, 1990

/arrowback {
  17.32  62.32 moveto
 -24.00  62.32 -45.00  25.94 11.6 arcto 4 {pop} repeat
 -45.00  25.94 lineto
 -19.02  10.94 lineto
  17.32  73.89  34.50  44.13 11.6 arcto 4 {pop} repeat
  34.50  44.13 lineto
  41.43  48.13 lineto		% start arrowhead
  28.15  25.13 lineto		% point of arrow
   1.59  25.13 lineto		% inner extreme
   8.52  29.13 lineto		% end of arrowhead
   0.00  43.88 lineto
stroke
} bind def

/arrowfront {
 -17.32  62.32 moveto
  24.00  62.32  34.50  44.13 11.6 arcto 4 {pop} repeat
  34.50  44.13 lineto
  41.43  48.13 lineto		% start arrowhead
  28.15  25.13 lineto		% point of arrow
   1.59  25.13 lineto		% inner extreme
   8.52  29.13 lineto		% end of arrowhead
 -17.32  73.89 -45.00  25.94 11.6 arcto 4 {pop} repeat
 -45.00  25.94 lineto
 -19.02  10.94 lineto
   0.00  43.88 lineto
stroke
} bind def

/recycle {
	gsave
	2 setlinewidth
	90 52 translate	% point of reference is lower left corner of
	arrowback	% enclosing triangle
	120 rotate
	arrowfront
	120 rotate
	arrowfront
	grestore
} bind def

% recycle symbol test file

100 200 translate
2 2 scale
recycle
showpage
%---------------end recycle.ps------------------------------------------