68f
%!PS-Adobe-2.0
%%DocumentFonts: Helvetica-Bold, Helvetica
%%Title: No Smoking
%%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

/smoke {
       gsave
       .5 setgray
       6.1 inch 5.25 inch translate
       1 1 15 {
               0 inch 0 inch moveto
               -.5 inch 1 inch
               .5 inch 2 inch
               0 inch 3 inch
               curveto
               stroke
               2 0 translate
       } for

       grestore
} def

/cigarette {
       gsave
       newpath
       0 setgray
       .1 inch setlinewidth
       2 inch 4.75 inch moveto
       0 .5 inch rlineto
       4 inch 0 rlineto
       0 .5 inch neg rlineto
       closepath
       stroke

       .1 inch setlinewidth
       .5 setgray
       6 inch 4.75 inch moveto
       0 .5 inch rlineto
       .5 inch 0 rlineto
       0 .5 inch neg rlineto
       closepath
       fill

       grestore
} def

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

/nosmoking {
       cigarette
       smoke
       no
       text
} def

0 1 inch translate
nosmoking                    % an example of a call

showpage
.

0