home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / postscri / 6103 < prev    next >
Encoding:
Text File  |  1992-12-26  |  3.3 KB  |  101 lines
  1. Newsgroups: comp.lang.postscript
  2. Path: sparky!uunet!uunet.ca!canrem!dosgate!dosgate![gordon.torrie@canrem.com]
  3. From: "gordon torrie" <gordon.torrie@canrem.com>
  4. Subject: recycle logos in postscript
  5. Message-ID: <199226.4412.10939@dosgate>
  6. Reply-To: "gordon torrie" <gordon.torrie@canrem.com>
  7. Organization: Canada Remote Systems
  8. Distribution: comp
  9. Date: 26 Dec 92 11:47:20 EST
  10. Lines: 89
  11.  
  12.  
  13. bill@leeweyr.sccsi.com (Bill Lee) writes:
  14.  
  15. > In article <1992Dec24.153625.29964@Rapnet.Sanders.Lockheed.Com>
  16. > cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP) writes:
  17. [...]
  18. > John:
  19. >
  20. > Thanks a lot for the logos! I have been wanting one for some
  21. > time now.
  22.  
  23. I'll add my thanks to John for posting the collection of recyle
  24. logo drawing postscript routines. However,...
  25.  
  26. > (O.k., This is a nit.)
  27. >
  28. > However, have you noticed that most of them are not quite
  29. > right?
  30.  
  31. Yes I have. I consider this more than a nit. The logos drawn by
  32. these routines are wrong and quite unusable in my work.
  33.  
  34. > Of the three "arrows" in the logo, two are curving from back-to-
  35. > front while the third (lower right) is from front-to-back.
  36.  
  37. I agree that two should curve back-to-front and that the third
  38. should curve front-to-back, but I believe it is the lower left
  39. arrow that is the third arrow. I'm using a pamphlet published by
  40. the Gov. of Canada as a guide to the proper use of the recycle
  41. logos (there is more than one) for my reference.
  42.  
  43. The routines presented by John as recycle2 and recycle7 appear to
  44. be identical. Here is my "corrected" version of them.
  45.  
  46. %!
  47. % Recycle logo. Scaled on ~1000 grid in case I put it in a font
  48. sometime.
  49. % Drawn 'by eye' using GhostScript.  R. Inglis. 1991
  50. %
  51. /Recycle {
  52.       gsave 10 setlinewidth
  53.       currentpoint translate
  54.       1 1 3 { pop newpath
  55.               0 -300 moveto 100 -120 lineto 100 -180 lineto
  56.               500 -180 600 0 80 arcto pop pop pop pop
  57.               360 -420 100 -420 80 arcto pop pop pop pop
  58.               100 -420 lineto 100 -480 lineto closepath stroke
  59.               -310 -180 moveto -50 -180 lineto -50 -420 lineto
  60.               -360 -420 -430 -300 80 arcto pop pop pop pop
  61.               stroke 120 rotate
  62.       } for
  63.       % Correction to lower left arrow so it appears to curve
  64.       % from front-to-back.  Gordon Torrie  December 1992
  65.       -310 -180 moveto -500 -180 -570 -60 80 arcto pop pop pop pop
  66.       stroke
  67.       % Erase previous arc.
  68.       1 setgray
  69.       11 setlinewidth
  70.       -311.8 -180 moveto -405.8 -343 -360 -420 80 arcto pop pop pop pop
  71.       stroke
  72.       % Fill-in the straight-line sections that were erased
  73.       0 setgray
  74.       10 setlinewidth
  75.       -305 -180 moveto -320 -180 lineto stroke
  76.       -379 -388 moveto -430 -300 lineto stroke
  77.       grestore
  78. } bind def
  79.  
  80. gsave
  81. 300 400 moveto
  82. 0.5 0.5 scale
  83. Recycle
  84. grestore
  85. showpage
  86.  
  87. You will note that the arcs of my correction don't quite merge
  88. smoothly into the rest of the logo. These imperfections probably
  89. won't be noticeable when the logo is scaled down to the size I
  90. normally use.
  91.  
  92. I haven't had time to look at the other routines and I'm on
  93. holiday this week. I would be grateful if someone could tell me
  94. which of the other routines, if any, is supposed to be a recycle
  95. logo inside a solid circle.
  96.                                        Gord Torrie
  97. gordon.torrie@canrem.com
  98. --
  99. Canada Remote Systems  - Toronto, Ontario
  100. World's Largest PCBOARD System - 416-629-7000/629-7044
  101.