NetNews Usenet Archive 1992 #31

home *** CD-ROM | disk | FTP | other *** search

/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / postscri / 6096 < prev next >

Wrap

Text File | 1992-12-24 | 14.8 KB | 534 lines

Newsgroups: comp.lang.postscript Path: sparky!uunet!wupost!csus.edu!netcom.com!netcomsv!butch!rapnet!news From: cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP) Subject: recycle logos in postscript Message-ID: <1992Dec24.153625.29964@Rapnet.Sanders.Lockheed.Com> Lines: 522 Sender: cupak@rapnet (John J Cupak Jr CCP) 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