🚀 go-pugleaf

There've been two requests for this recently, so I made one up.  This
is nothing fancy, but it will print a simple no smoking sign on an
8.5x11 inch piece of paper.
					-Mark
mit-eddie!athena.mit.edu!mar				mar@athena.mit.edu
		Variables won't and constants aren't.

----------------------------------------------------------------
%! Handwritten postscript by
%  Mark Rosenstein, <mar@athena.mit.edu>
%  29 Jan 1988

% first the cigarette, with a gray end
30 setlinewidth
160 400 moveto 200 400 lineto .5 setgray stroke 0 setgray
200 400 moveto 440 400 lineto stroke

% now some curling smoke
10 setlinewidth
170 420 moveto 170 540 300 400 300 500 curveto stroke
190 420 moveto 190 500 320 375 320 500 curveto stroke

% and the circle-slash
%   we'll white out a little of the cigarette on either side
%   of the slash first
50 setlinewidth
170 270 moveto 440 520 lineto gsave 1 setgray stroke grestore

% and append the circle to the slash path
30 setlinewidth
305 395 184 45 405 arc
stroke

% Now put some text underneath it
/Helvetica findfont 52 scalefont setfont
140 100 moveto (NO SMOKING) show

showpage