🚀 go-pugleaf

cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP) writes:
>Does anyone have a short piece of postscript code to generate the RECYCLE logo?

Here's one that was posted last year.

/\  Dave Shaver
\\  CONVEX Computer Corporation, Richardson, TX
\/  Internet: shaver@convex.com    UUCP:  uunet!convex!shaver

| From: ross@tiger.UUCP (Ross Inglis)
| Newsgroups: comp.lang.postscript
| Subject: Shorter Recycle logo
| Message-ID: <15082@mcdphx.phx.mcd.mot.com>
| Date: 10 Jul 91 19:59:09 GMT
| Sender: listen@mcdphx.phx.mcd.mot.com
| Reply-To: ross@tiger.UUCP (Ross Inglis)
| 
| [...]
| 
| %!
| % Recycle logo. Scaled on ~1000 grid in case I put it in a font sometime.
| % Drawn 'by eye' using GhostScript.  R. Inglis. 1991
| %
| /Recycle {
| 	gsave 10 setlinewidth
| 	currentpoint translate
| 	1 1 3 { pop newpath
| 		0 -300 moveto 100 -120 lineto 100 -180 lineto
| 		500 -180 600 0 80 arcto pop pop pop pop
| 		360 -420 100 -420 80 arcto pop pop pop pop
| 		100 -420 lineto 100 -480 lineto closepath stroke
| 		-300 -180 moveto -50 -180 lineto -50 -420 lineto
| 		-360 -420 -430 -300 80 arcto pop pop pop pop
| 		stroke 120 rotate
| 	} for
| 	grestore
| } def
| 
| gsave
| 300 400 moveto
| 0.25 0.25 scale
| Recycle
| grestore
| showpage