63a
%!PS-Adobe-2.0
%%DocumentFonts: Helvetica-Bold, Helvetica
%%Title: No Death
%%Creator: Bob Bagwill
%%CreationDate: July 31, 1991
%%Pages: 1
%%BoundingBox: 
%%EndComments

/inch { 72 mul } def

/no {
       gsave
       newpath
       .5 inch setlinewidth
       1 1 1 sethsbcolor
       4.25 inch 5 inch 3 inch 45 45 180 add arc
       closepath
       4.25 inch 5 inch 3 inch 45 180 add 45 arc
       stroke
       grestore
} def

/skull {
       gsave
       newpath
       .125 inch setlinewidth
       0 setgray
       4.25 inch 5.5 inch 1.5 inch 90 -55 arcn
       0 inch -.75 inch rlineto
       -1.77 inch 0 inch rlineto
       stroke

       4.25 inch 5.5 inch 1.5 inch 90 235 arc
       0 inch -.75 inch rlineto
       1 1 5 {
               0.283 inch 0 inch rmoveto currentpoint
               0 inch 0.4 inch rlineto moveto
       } for
       stroke

       3.65 inch 5.25 inch .5 inch 0 360 arc
       fill
       4.85 inch 5.25 inch .5 inch 0 360 arc
       fill

       4.15 inch 4.75 inch moveto
       0 inch -0.5 inch rlineto
       4.35 inch 4.75 inch moveto
       0 inch -0.5 inch rlineto
       stroke
       grestore
} def

/text {
       gsave
       0 setgray
       /Helvetica-Bold findfont
       72 scalefont setfont
       4.25 inch .75 inch moveto 
       (No Death) dup
       stringwidth pop 2 div neg -0.5 rmoveto
       show
       grestore
} def

/noskull {
       skull
       no
       text
} def

0 1 inch translate
noskull                    % an example of a call

showpage
.

0