4c9
%!PS-Adobe-2.0
%%DocumentFonts: Helvetica-Bold, Helvetica
%%Title: No Sleeping
%%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

/sleeping {
       gsave
       newpath
       .125 inch setlinewidth
       0 setgray
       4.25 inch 5 inch 2 inch 0 360 arc
       stroke
       4.25 inch 5 inch 1.25 inch 225 315 arc
       stroke

       3.5 inch 5.5 inch .25 inch 180 360 arc
       stroke

       5 inch 5.5 inch .25 inch 180 360 arc
       stroke
       grestore
} def

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

/nosleeping {
       no
       sleeping
       text
} def

0 1 inch translate
nosleeping                    % an example of a call

showpage
.

0