From: "gordon torrie" <gordon.torrie@canrem.com>
Subject: recycle logos in postscript
Reply-To: "gordon torrie" <gordon.torrie@canrem.com>
Organization: Canada Remote Systems
Distribution: comp
Date: 26 Dec 92 11:47:20 EST


bill@leeweyr.sccsi.com (Bill Lee) writes:

> In article <1992Dec24.153625.29964@Rapnet.Sanders.Lockheed.Com>
> cupak@rapnet.sanders.lockheed.com (John J Cupak Jr CCP) writes:
[...]
> John:
>
> Thanks a lot for the logos! I have been wanting one for some
> time now.

I'll add my thanks to John for posting the collection of recyle
logo drawing postscript routines. However,...

> (O.k., This is a nit.)
>
> However, have you noticed that most of them are not quite
> right?

Yes I have. I consider this more than a nit. The logos drawn by
these routines are wrong and quite unusable in my work.

> Of the three "arrows" in the logo, two are curving from back-to-
> front while the third (lower right) is from front-to-back.

I agree that two should curve back-to-front and that the third
should curve front-to-back, but I believe it is the lower left
arrow that is the third arrow. I'm using a pamphlet published by
the Gov. of Canada as a guide to the proper use of the recycle
logos (there is more than one) for my reference.

The routines presented by John as recycle2 and recycle7 appear to
be identical. Here is my "corrected" version of them.

%!
% 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
              -310 -180 moveto -50 -180 lineto -50 -420 lineto
              -360 -420 -430 -300 80 arcto pop pop pop pop
              stroke 120 rotate
      } for
      % Correction to lower left arrow so it appears to curve
      % from front-to-back.  Gordon Torrie  December 1992
      -310 -180 moveto -500 -180 -570 -60 80 arcto pop pop pop pop
      stroke
      % Erase previous arc.
      1 setgray
      11 setlinewidth
      -311.8 -180 moveto -405.8 -343 -360 -420 80 arcto pop pop pop pop
      stroke
      % Fill-in the straight-line sections that were erased
      0 setgray
      10 setlinewidth
      -305 -180 moveto -320 -180 lineto stroke
      -379 -388 moveto -430 -300 lineto stroke
      grestore
} bind def

gsave
300 400 moveto
0.5 0.5 scale
Recycle
grestore
showpage

You will note that the arcs of my correction don't quite merge
smoothly into the rest of the logo. These imperfections probably
won't be noticeable when the logo is scaled down to the size I
normally use.

I haven't had time to look at the other routines and I'm on
holiday this week. I would be grateful if someone could tell me
which of the other routines, if any, is supposed to be a recycle
logo inside a solid circle.
                                       Gord Torrie
gordon.torrie@canrem.com
--
Canada Remote Systems  - Toronto, Ontario
World's Largest PCBOARD System - 416-629-7000/629-7044
Newsgroups: comp.lang.postscript