[net.misc] possibly useful PostScript

rcd@nbires.UUCP (05/15/86)

If you've got a PostScript printer, you might want to run off the following
little file.  You might figure out some other uses for the procedure No.
PostScript is a trademark of Adobe Systems, Inc.
----------------------------------------------------
%!
%	A useful Q&D sign for some environments.	rcd  14-May-86
/r 45 def			% radius of circle
/hw 63 def			% half-width of square containing it
/No {				% finish a little sign
% Translate to the center of where the sign should be (it's 1.75" square).
% Then draw your whatever within a circle of radius 40 and finish with No.
	gsave
	10 setlinewidth 0.8 setgray  % should really set color to red...
	0 0 45 0 360 arc stroke
	r 2 sqrt div dup dup neg exch moveto dup neg lineto stroke
	0 setlinewidth 0 setgray
	hw neg dup moveto hw dup neg lineto hw dup lineto hw neg hw
		lineto closepath stroke
	grestore
} def
/Tie {				% to illustrate "No"
	3 20 moveto 8 30 lineto -8 30 lineto -3 20 lineto
	closepath fill		% knot
	3 18 moveto -3 18 lineto -10 -25 lineto 0 -35 lineto 10 -25 lineto
	closepath fill		% tie
} def

100 700 translate
Tie No		% (the postfix way to say it!)
showpage
-- 
Dick Dunn	{hao,ucbvax,allegra}!nbires!rcd		(303)444-5710 x3086
   ...Relax...don't worry...have a homebrew.