822
%!PS-Adobe-2.0
%%DocumentFonts: Helvetica-Bold, Helvetica
%%Title: No Drugs
%%Creator: Bob Bagwill
%%CreationDate: July 31, 1991
%%Pages: 1
%%BoundingBox: 
%%EndComments

/inch { 72 mul } def

/no {
       gsave
       newpath
       .5 inch setlinewidth
       1 1 1 sethsbcolor
       4.25 inch 5 inch 3 inch -45 -45 180 add arc
       closepath
       4.25 inch 5 inch 3 inch -45 180 add 45 arc
       stroke
       grestore
} def

/syringe {
       gsave
       newpath
       .1 inch setlinewidth

       % cylinder
       0 inch 0 inch moveto
       0 inch 3 inch rlineto
       1 inch 0 inch rlineto
       currentpoint
       0 inch -3 inch rlineto
       closepath
       stroke

       % needle
       .02 inch setlinewidth
       .5 inch 3 inch moveto
       0 inch .5 inch rlineto
       stroke

       % marks
       .02 inch setlinewidth
       moveto
       1 1 14 {
               0 inch -.2 inch rmoveto currentpoint
               -.25 inch 0 inch rlineto moveto
       } for
       stroke

       % plunger
       .1 inch setlinewidth
       0 inch 1.5 inch moveto
       1 inch 0 inch rlineto
       .5 inch 1.5 inch moveto
       0 inch -2 inch rlineto
       -.5 inch 0 inch rlineto
       1 inch 0 inch rlineto
       stroke


%      0 inch 3 inch rlineto
%      .5 inch 0 inch rlineto
%      0 inch .5 inch rlineto
%      0 inch -.5 inch rlineto
%      .5 inch 0 inch rlineto
%      0 inch -3 inch rlineto
%      -.5 inch 0 inch rlineto
%      0 inch -.5 inch rlineto
%      .5 inch 0 inch rlineto
%      -1 inch 0 inch rlineto
%      .5 inch 0 inch rlineto
%      0 inch .5 inch rlineto

       grestore
} def

/text {
       gsave
       0 setgray
       /Helvetica-Bold findfont
       72 scalefont setfont
       4.25 inch .75 inch moveto 
       (Just Say No) dup
       stringwidth pop 2 div neg -0.5 rmoveto
       show
       grestore
} def

0 1 inch translate
no

gsave
       3.75 inch 3.5 inch translate
       syringe
grestore

text
showpage
.

0