🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: comp.lang.postscript
1 messages
1 total messages Started by Mark A. Rosenstein Sat, 30 Jan 1988 00:17
example: no smoking
#6831
Author: Mark A. Rosenstein
Date: Sat, 30 Jan 1988 00:17
38 lines
1576 bytes
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
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads