From: cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP)
Subject: recycle logos in postscript
Reply-To: cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP)
Organization: Lockheed Sanders, Inc.
Date: Thu, 24 Dec 92 15:36:25 GMT


Many thanks for all of you who sent me the recycle logos in postscript.

As a result of your many mail requests, I am posting a collection of seven 
recycle logos as a shar file.

#-----------cut here ------------------------
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  recycle1.ps recycle2.ps recycle3.ps recycle4.ps
#   recycle5.ps recycle6.ps recycle7.ps
# Wrapped by cupak@ssesun on Thu Dec 24 10:22:08 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'recycle1.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle1.ps'\"
else
echo shar: Extracting \"'recycle1.ps'\" \(1153 characters\)
sed "s/^X//" >'recycle1.ps' <<'END_OF_FILE'
X%!PS-Adobe
X/m /moveto load def
X/c /curveto load def
X/s /stroke load def
X/f { gsave 1 setgray fill grestore stroke } bind def
X2 setlinecap
X0 setlinejoin
X2 setlinewidth
X4 setmiterlimit
X288 360 translate
X21 32 m
X24 37 27 43 29 46 c
X29 46 36 43 36 43 c
X36 44 25 64 25 64 c
X26 64 1 64 1 64 c
X7 59 8 59 8 59 c
X1 51 lineto
X0 45 1 43 4 37 c
Xf
X4 37 m
X4 36 11 20 22 12 c
X15 12 22 39 21 32 c
X22 35 20 30 21 32 c
Xf
X22 33 m
X22 33 51 33 51 33 c
X52 33 51 8 51 7 c
X51 7 28 9 28 8 c
X28 8 lineto
X13 11 21 33 21 32 c
Xf
X55 90 m
X57 85 61 79 63 76 c
X63 76 56 72 57 72 c
X58 72 80 70 80 70 c
X80 70 93 92 93 92 c
X85 89 84 89 84 89 c
X81 98 lineto
X79 102 74 103 68 103 c
Xf
X68 103 m
X67 103 50 105 37 100 c
X39 103 55 94 55 90 c
X55 88 54 92 55 90 c
Xf
X55 90 m
X55 90 40 64 40 64 c
X40 64 18 77 18 77 c
X18 77 31 97 31 97 c
X31 97 lineto
X39 106 52 94 55 90 c
Xf
X94 35 m
X89 35 82 34 78 34 c
X78 34 77 41 77 41 c
X76 40 65 20 65 20 c
X65 20 80 0 80 0 c
X80 8 80 9 80 9 c
X90 8 lineto
X97 9 98 12 100 18 c
Xf
X100 18 m
X101 19 110 38 111 47 c
X112 44 97 33 94 35 c
X92 36 97 35 94 35 c
Xf
X94 35 m
X94 35 77 60 77 60 c
X77 60 98 74 98 74 c
X98 74 111 52 111 52 c
X110 54 lineto
X116 41 92 34 94 35 c
Xf
Xshowpage
END_OF_FILE
if test 1153 -ne `wc -c <'recycle1.ps'`; then
    echo shar: \"'recycle1.ps'\" unpacked with wrong size!
fi
# end of 'recycle1.ps'
fi
if test -f 'recycle2.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle2.ps'\"
else
echo shar: Extracting \"'recycle2.ps'\" \(603 characters\)
sed "s/^X//" >'recycle2.ps' <<'END_OF_FILE'
X%!
X% Recycle logo. Scaled on ~1000 grid in case I put it in a font sometime.
X% Drawn 'by eye' using GhostScript.  R. Inglis. 1991
X%
X/Recycle {
X	gsave 10 setlinewidth
X	currentpoint translate
X	1 1 3 { pop newpath
X		0 -300 moveto 100 -120 lineto 100 -180 lineto
X		500 -180 600 0 80 arcto pop pop pop pop
X		360 -420 100 -420 80 arcto pop pop pop pop
X		100 -420 lineto 100 -480 lineto closepath stroke
X		-300 -180 moveto -50 -180 lineto -50 -420 lineto
X		-360 -420 -430 -300 80 arcto pop pop pop pop
X		stroke 120 rotate
X	} for
X	grestore
X} def
X
Xgsave
X300 400 moveto
X0.25 0.25 scale
XRecycle
Xgrestore
Xshowpage
X
END_OF_FILE
if test 603 -ne `wc -c <'recycle2.ps'`; then
    echo shar: \"'recycle2.ps'\" unpacked with wrong size!
fi
# end of 'recycle2.ps'
fi
if test -f 'recycle3.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle3.ps'\"
else
echo shar: Extracting \"'recycle3.ps'\" \(1322 characters\)
sed "s/^X//" >'recycle3.ps' <<'END_OF_FILE'
X%!
X%-------------------recycle.ps------------------------------------------
X% recycle symbol definition
X% hdavids@mswe.ms.philips.nl, July 10, 1990
X
X/arrowback {
X  17.32  62.32 moveto
X -24.00  62.32 -45.00  25.94 11.6 arcto 4 {pop} repeat
X -45.00  25.94 lineto
X -19.02  10.94 lineto
X  17.32  73.89  34.50  44.13 11.6 arcto 4 {pop} repeat
X  34.50  44.13 lineto
X  41.43  48.13 lineto		% start arrowhead
X  28.15  25.13 lineto		% point of arrow
X   1.59  25.13 lineto		% inner extreme
X   8.52  29.13 lineto		% end of arrowhead
X   0.00  43.88 lineto
Xstroke
X} bind def
X
X/arrowfront {
X -17.32  62.32 moveto
X  24.00  62.32  34.50  44.13 11.6 arcto 4 {pop} repeat
X  34.50  44.13 lineto
X  41.43  48.13 lineto		% start arrowhead
X  28.15  25.13 lineto		% point of arrow
X   1.59  25.13 lineto		% inner extreme
X   8.52  29.13 lineto		% end of arrowhead
X -17.32  73.89 -45.00  25.94 11.6 arcto 4 {pop} repeat
X -45.00  25.94 lineto
X -19.02  10.94 lineto
X   0.00  43.88 lineto
Xstroke
X} bind def
X
X/recycle {
X	gsave
X	2 setlinewidth
X	90 52 translate	% point of reference is lower left corner of
X	arrowback	% enclosing triangle
X	120 rotate
X	arrowfront
X	120 rotate
X	arrowfront
X	grestore
X} bind def
X
X% recycle symbol test file
X
X100 200 translate
X2 2 scale
Xrecycle
Xshowpage
X%---------------end recycle.ps------------------------------------------
END_OF_FILE
if test 1322 -ne `wc -c <'recycle3.ps'`; then
    echo shar: \"'recycle3.ps'\" unpacked with wrong size!
fi
# end of 'recycle3.ps'
fi
if test -f 'recycle4.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle4.ps'\"
else
echo shar: Extracting \"'recycle4.ps'\" \(2721 characters\)
sed "s/^X//" >'recycle4.ps' <<'END_OF_FILE'
X%!
X%
X%---------------- recycle-jj.ps -------------------------
X% PostScript code to draw a recycling sign
X%
X%CreationDate: Wed Jul  4 11:47:30 1990
X%CreatedBy: jiang@dirac.rice.edu (Jun Jiang)
X%
X%---------------- variables     -------------------------
X%
X/x0 290 def
X/y0 415 def
X%
X%---------------- procedures    -------------------------
X%
X/Spline {
X  /y3 exch y0 sub def
X  /x3 exch x0 sub def
X  /y2 exch y0 sub def
X  /x2 exch x0 sub def
X  /y1 exch y0 sub def
X  /x1 exch x0 sub def
X  /xa x1 x2 x1 sub 0.666667 mul add def
X  /ya y1 y2 y1 sub 0.666667 mul add def
X  /xb x3 x2 x3 sub 0.666667 mul add def
X  /yb y3 y2 y3 sub 0.666667 mul add def	
X  x1 y1 lineto
X  xa ya xb yb x3 y3 curveto
X} bind def
X
X/ML { 
X  /y2 exch y0 sub def
X  /x2 exch x0 sub def
X  /y1 exch y0 sub def
X  /x1 exch x0 sub def
X  x1 y1 moveto 
X  x2 y2 lineto 
X} bind def
X
X/L {
X   /y1 exch y0 sub def
X   /x1 exch x0 sub def
X   x1 y1 lineto
X} bind def
X
X/CurveArrow {
Xnewpath 259.000 499.000 256.500 514.000 ML
X	256.500 514.000 254.000 529.000 251.500 539.000 Spline
X	251.500 539.000 249.000 549.000 251.500 561.500 Spline
X	251.500 561.500 254.000 574.000 256.500 584.000 Spline
X	259.000 594.000 L stroke
Xnewpath 149.000 499.000 259.000 499.000 ML stroke
Xnewpath 99.000 399.000 91.500 411.500 ML
X	91.500 411.500 84.000 424.000 76.500 436.500 Spline
X	76.500 436.500 69.000 449.000 66.500 461.500 Spline
X	66.500 461.500 64.000 474.000 79.000 501.500 Spline
X	79.000 501.500 94.000 529.000 106.500 544.000 Spline
X	106.500 544.000 119.000 559.000 134.000 574.000 Spline
X	134.000 574.000 149.000 589.000 159.000 591.500 Spline
X	159.000 591.500 169.000 594.000 196.500 594.000 Spline
X	196.500 594.000 224.000 594.000 241.500 594.000 Spline
X	259.000 594.000 L stroke
Xnewpath 179.000 429.000 209.000 444.000 ML
X	239.000 459.000 L stroke
Xnewpath 174.000 339.000 186.500 369.000 ML
X	186.500 369.000 199.000 399.000 219.000 429.000 Spline
X	239.000 459.000 L stroke
Xnewpath 179.000 429.000 171.500 444.000 ML
X	171.500 444.000 164.000 459.000 151.500 489.000 Spline
X	151.500 489.000 139.000 519.000 136.500 529.000 Spline
X	136.500 529.000 134.000 539.000 134.000 549.000 Spline
X	134.000 549.000 134.000 559.000 139.000 569.000 Spline
X	139.000 569.000 144.000 579.000 149.000 584.500 Spline
X	154.000 589.000 L stroke
Xnewpath 34.000 384.000 54.000 389.000 ML
X	54.000 389.000 74.000 394.000 86.500 396.500 Spline
X	99.000 399.000 L stroke
Xnewpath 174.000 339.000 141.500 351.500 ML
X	141.500 351.500 109.000 364.000 71.500 374.000 Spline
X	34.000 384.000 L stroke
X} bind def
X%
X%----------------- Main Program ---------------------
X%
X300 400 translate
X0.9 -0.9 scale
X1 setlinecap 1 setlinejoin
X10.00 setlinewidth
X
XCurveArrow
X120 rotate
XCurveArrow
X120 rotate
XCurveArrow
X
Xshowpage
END_OF_FILE
if test 2721 -ne `wc -c <'recycle4.ps'`; then
    echo shar: \"'recycle4.ps'\" unpacked with wrong size!
fi
# end of 'recycle4.ps'
fi
if test -f 'recycle5.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle5.ps'\"
else
echo shar: Extracting \"'recycle5.ps'\" \(2588 characters\)
sed "s/^X//" >'recycle5.ps' <<'END_OF_FILE'
X%!
X/pl                 % x y pl x y
X{
Xtransform
X0.25 sub round 0.25 add exch
X0.25 sub round 0.25 add exch
Xitransform
X} def
X/m
X{
Xpl moveto
X} def
X/c
X{
Xpl curveto
X} def
X/C
X/c load def
X/y
X{
Xpl 2 copy curveto
X} def
X/Y
X/y load def
X/l
X{
Xpl lineto
X} def
X/L
X/l load def
X/B                  % - B -
X{
Xstroke
X} def
X2 setlinewidth 0 setgray
X
X117.8125 430.8125 m
X120.8313 435.6645 123.9822 441.4352 125.9375 444.8125 c
X125.9 444.7478 132.9375 441.4375 132.4375 441.9375 C
X132.0625 442.6875 121.9375 462.9375 y
X122.0625 462.9375 97.2489 462.7087 97.1875 462.6875 C
X103.292 457.8682 104.3125 457.3125 104.0625 457.1875 C
X97.75 449.75 L
X96 443 97 441 100.1001 435.4335 C
XB
X100.1001 435.4335 m
X100.3256 434.9161 107.0077 418.9313 118 410 C
X111.8197 410.927 118.8179 437.0772 117.8125 430.8125 c
X118.1636 433 116.5855 428.8404 117.8125 430.8125 c
XB
X118.1875 431.4375 m
X118 431.5 147.9375 431.1875 Y
X148 431.25 147.5 406 147.4375 405.8125 C
X147.5 405.5 124.25 407 124.1875 406.8125 C
X124.1875 406.8125 L
X109.3444 409.6877 117.9243 431.2038 117.8125 430.8125 c
XB
X151.1479 488.6382 m
X153.8272 483.5907 157.2345 477.9674 159.1728 474.5802 c
X159.1356 474.6452 152.7383 470.2225 153.4218 470.4037 C
X154.2587 470.3512 176.8549 468.935 y
X176.7921 468.8269 189.0581 490.3985 189.0706 490.4623 C
X181.837 487.6044 180.8439 487.001 180.8614 487.28 C
X177.6008 496.4743 L
X175.5 500 170.4113 501.518 164.0406 501.6333 C
XB
X164.0406 501.6333 m
X163.48 501.6982 146.3013 503.9492 133.0568 498.9302 C
X135.0665 501.4402 151.3351 492.0712 151.1479 488.6382 c
X151.0273 486.426 150.0589 490.6898 151.1479 488.6382 c
XB
X151.5 488 m
X151.6482 488.1307 136.3405 462.4003 Y
X136.3631 462.3149 114.7802 475.4302 114.6495 475.5784 C
X114.3479 475.6814 127.3233 495.0325 127.1926 495.1808 C
X127.1926 495.1808 L
X135.2318 504.3917 148.0647 492.5375 151.1479 488.6382 c
XB
X190.7274 433.546 m
X185.0193 433.2777 178.4797 432.5968 174.5893 432.2899 c
X174.6639 432.2958 173.3952 439.9687 173.2673 439.2733 C
X172.8627 438.5389 161.9365 418.7096 y
X161.8656 418.8126 176.137 398.5124 176.1893 398.4739 C
X176.6926 406.2351 176.571 407.3908 176.8158 407.2559 C
X186.522 406.2797 L
X193.5 407 194.1518 410.6283 196.9755 416.3401 C
XB
X196.9755 416.3401 m
X197.5549 417.2719 206.5206 436.5116 207.25 445.75 C
X208.662 442.8613 193.752 431.9113 190.7274 433.546 c
X188.7784 434.5994 193.0475 433.655 190.7274 433.546 c
X%B
X190 433.5 m
X190.055 433.3102 173.3212 458.1362 Y
X173.2342 458.1522 194.3073 472.0713 194.4971 472.1262 C
X194.7189 472.3551 207.5601 450.1951 207.75 450.25 C
X204.8694 440.416 L
X212.6664 439.1579 188.3039 432.7288 190.7274 433.546 c
XB
Xshowpage
END_OF_FILE
if test 2588 -ne `wc -c <'recycle5.ps'`; then
    echo shar: \"'recycle5.ps'\" unpacked with wrong size!
fi
# end of 'recycle5.ps'
fi
if test -f 'recycle6.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle6.ps'\"
else
echo shar: Extracting \"'recycle6.ps'\" \(235 characters\)
sed "s/^X//" >'recycle6.ps' <<'END_OF_FILE'
X%! Jon Monsarrat   jgm@cs.brown.edu   Brown University %! Obfuscated PostScript
X0 0 moveto 15 setlinewidth(qlllll-??LHHL??llH?hH7t,7olCAHH@)1 setlinejoin{dup
X10 mul rotate 80 lt{50 0 rlineto}{50 0 rmoveto}ifelse}forall stroke showpage
END_OF_FILE
if test 235 -ne `wc -c <'recycle6.ps'`; then
    echo shar: \"'recycle6.ps'\" unpacked with wrong size!
fi
# end of 'recycle6.ps'
fi
if test -f 'recycle7.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle7.ps'\"
else
echo shar: Extracting \"'recycle7.ps'\" \(1925 characters\)
sed "s/^X//" >'recycle7.ps' <<'END_OF_FILE'
XFrom terasawa@aa.cs.keio.ac.jp Tue Dec 15 06:01:03 1992
XReceived: by eagle.is.lmsc.lockheed.com (5.57/Ultrix3.0-C)
X	id AA13444; Tue, 15 Dec 92 02:52:16 -0800
XReceived: from Alcyone.aa.cs.keio.ac.jp by cosmos.aa.cs.keio.ac.jp (5.67+1.6W/2.7W)
X	id AA24453; Tue, 15 Dec 92 19:56:05 JST
XReceived: from localhost by Alcyone.aa.cs.keio.ac.jp (4.1/6.4J.6-aa-uu1-1.1)
X	id AA20352; Tue, 15 Dec 92 19:56:05 JST
XReturn-Path: <terasawa@aa.cs.keio.ac.jp>
XMessage-Id: <9212151056.AA20352@Alcyone.aa.cs.keio.ac.jp>
XTo: cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP)
XSubject: Re: Wanted: Recycle logo
XIn-Reply-To: cupak@rapnet.sanders.lockheed.com's message of 14 Dec 92 22:02:36 GMT
XDate: Tue, 15 Dec 92 19:56:04 +0900
XFrom: Takuya Terasawa <terasawa@aa.cs.keio.ac.jp>
XStatus: R
X
XHi,
X
X>Does anyone have a short piece of postscript code to generate
X>the RECYCLE logo?
X
XHere it is.
XHope this helps.
X
X---------
XTakuya Terasawa				Dept. of Computer Science
Xterasawa@aa.cs.keio.ac.jp		Keio Univ. Yokohama, Japan
X
X---------------------------------------------------------------------
XNewsgroups: comp.lang.postscript
XFrom: jon@cyclone.MITRE.org (J. E. Shum)
XSubject: Recycling symbol...
XMessage-ID: <1992May11.224546.12382@linus.mitre.org>
XDate: Mon, 11 May 1992 22:45:46 GMT
X
X
X-----CUT HERE---
X%!
X% Recycle logo. Scaled on ~1000 grid in case I put it in a font sometime.
X% Drawn 'by eye' using GhostScript.  R. Inglis. 1991
X%
X/Recycle {
X	gsave 10 setlinewidth
X	currentpoint translate
X	1 1 3 { pop newpath
X		0 -300 moveto 100 -120 lineto 100 -180 lineto
X		500 -180 600 0 80 arcto pop pop pop pop
X		360 -420 100 -420 80 arcto pop pop pop pop
X		100 -420 lineto 100 -480 lineto closepath stroke
X		-300 -180 moveto -50 -180 lineto -50 -420 lineto
X		-360 -420 -430 -300 80 arcto pop pop pop pop
X		stroke 120 rotate
X	} for
X	grestore
X} def
X
Xgsave
X300 400 moveto
X0.25 0.25 scale
XRecycle
Xgrestore
Xshowpage
X----- CUT HERE ---
X-- 
X<jon@mitre.org>
X
END_OF_FILE
if test 1925 -ne `wc -c <'recycle7.ps'`; then
    echo shar: \"'recycle7.ps'\" unpacked with wrong size!
fi
# end of 'recycle7.ps'
fi
echo shar: End of shell archive.
exit 0

--
John J. Cupak, Jr., CCP       Lockheed DECNet: MERVAX::CUPAK
Lockheed Sanders, Inc.        Internet       : cupak@rapnet.sanders.LOCKHEED.COM
95 Canal Street / NCA15-221   CompuServe     : 72411,3176 
Nashua, NH 03061-0868         Telephone      : (603) 885-2134     FAX: 885-8033