Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!decwrl!pyramid!pesnta!hplabs!hao!nbires!rcd
From: rcd@nbires.UUCP
Newsgroups: net.text,net.misc
Subject: possibly useful PostScript(tm)
Message-ID: <760@nbires.UUCP>
Date: Wed, 14-May-86 19:53:12 EDT
Article-I.D.: nbires.760
Posted: Wed May 14 19:53:12 1986
Date-Received: Sat, 17-May-86 04:15:59 EDT
Organization: NBI,Inc, Boulder CO
Lines: 33
Keywords: attire
Xref: watmath net.text:1082 net.misc:9624

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.