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.