Newsgroups: comp.sources.postscript
From: syliao@hilbert.mit.edu (Stan Yi-Huang Liao)
Subject: v02i072: recycle REPOST - Recycle logo, v 1.01, Clip Art, Part01/01
Content-Type: text
Followup-To: comp.sources.d
Summary: The recycle logo is three arrows in a circular loop
Reply-To: syliao@hilbert.mit.edu (Stan Yi-Huang Liao)
Organization: Research Laboratory of Electronics, Massachusetts Institute of
        Technology
Mime-Version: 1.0
Date: Wed, 19 Jan 1994 16:30:21 GMT

Submitted-by: syliao@hilbert.mit.edu (Stan Yi-Huang Liao)
Posting-number: Volume 02, Issue 72
Archive-name: recycle/part01
Environment: PostScript
Supersedes: recycle: Volume 2, Issue 71
Keywords: eps, recycle, logo

Hi,

The previous version recycle.ps had a little bug.  When I included it
in my LaTeX file and use dvips, the graphic didn't come out right --
there is a little line that sticks out.  The bug was due to my failure
to do a newpath before drawing the black circle.  Please use this
updated version instead.  Thank you.

Regards,

Stan Yi-Huang Liao                                     syliao@rle-vlsi.mit.edu
Research Laboartory of Electronics (MIT)                   FAX: (617) 258-7864
Room 36-888   77 Masschusetts Ave, Cambridge, MA 02139   Phone: (617) 253-1583

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# Contents:  recycle.eps
# Wrapped by jgm@vegas on Wed Jan 19 11:27:20 1994
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive."'
if test -f 'recycle.eps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'recycle.eps'\"
else
  echo shar: Extracting \"'recycle.eps'\" \(2548 characters\)
  sed "s/^X//" >'recycle.eps' <<'END_OF_FILE'
X%!PS-Adobe-3.0 EPSF-3.0
X%%
X%% recycle.ps  --  a simple PS program to display the recycle symbol
X%% 
X%% Version 1.01
X%% Copyright (C) 1994   Stan Y. Liao   (syliao@rle-vlsi.mit.edu)
X%% Research Laboratory of Electronics
X%% Massachusetts Institute of Technology
X%%
X%% Permission is hereby granted to anyone to make or distribute
X%% copies of this program and/or modify this program, provided the
X%% above copyright notice and this permission notice are preserved.
X%% Suggestions and/or bug fixes are greatly appreciated.
X%%
X%% Please include this PostScript(TM) file in your documents, wherever
X%% appropriate, to remind people to recycle!  Help save the Earth!
X%%
X%%BoundingBox: 131 221 481 571
X
X/width     50 def               %% width of the arrow
X/root3     3 sqrt def           %% square root of 3
X/halfroot3 root3 2 div def      %% half the square root of 3
X/sep 2.2 def                    %% how far the arrow is from the center
X
X%% defined below are some reference points for drawing the arrow
X/ptA { 0 0 } def
X/ptB { ptA exch 0.55 root3 mul width mul add exch } def
X/ptC { ptB 0.333333 width mul add } def
X/ptD { ptA exch root3 width mul add exch 0.5 width mul sub } def
X/ptE { ptB 1.333333 width mul sub } def
X/ptF { ptB width sub } def
X/ptG { ptA width sub } def
X/ptH { ptA exch halfroot3 width mul sub exch width 2 div add } def
X/ptI { ptA 2 width mul add } def
X/ptJ { ptA exch halfroot3 width mul add exch 1.5 width mul add } def
X/ptK { ptA 0.666667 width mul add } def
X
X%% arrow is the procedure that draws an arrow
X/arrow {
Xnewpath
XptA moveto
XptA width 150 270 arc 1 closepath setgray fill
XptA width 150 270 arc 0 setgray stroke 
X
Xnewpath
XptA moveto ptB lineto ptC lineto ptD lineto
XptE lineto ptF lineto ptG lineto
X1 setgray fill
XptA moveto ptB lineto ptC lineto ptD lineto
XptE lineto ptF lineto ptG lineto
X0 setgray stroke
X
Xnewpath
XptA moveto ptJ lineto ptI lineto ptH lineto
X1 setgray fill
XptA moveto ptJ lineto ptI lineto ptH lineto
X0 setgray stroke
X
Xnewpath
XptK 0.666667 width mul 150 270 arc 
X1 setgray fill
XptK 0.666667 width mul 150 270 arc 
X0 setgray stroke
X} def
X
X306 396 translate       %% move to the middle of the paper
X2 setlinewidth          %% set line width to 2
X
X%% draw the black circle
Xnewpath 0 0 moveto
X0 0 sep 1.3 add width mul 0 360 arc 0 setgray fill
X
X%% draw the three arrows
Xgsave
Xsep neg halfroot3 width mul mul sep -0.5 mul width mul translate arrow
Xgrestore
Xgsave
Xsep halfroot3 width mul mul sep -0.5 mul width mul translate
X120 rotate arrow
Xgrestore
X0 sep width mul translate -120 rotate arrow
X
Xshowpage
END_OF_FILE
  if test 2548 -ne `wc -c <'recycle.eps'`; then
    echo shar: \"'recycle.eps'\" unpacked with wrong size!
  fi
  # end of 'recycle.eps'
fi
echo shar: End of archive.
exit 0