7c5
%!PS-Adobe-2.0
%%DocumentFonts: Helvetica-Bold, Helvetica
%%Title: Gno Gnus
%%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

/horns {
       gsave
       4.25 inch 6.5 inch translate
       0 setgray
       0 inch 0 inch moveto
       1 inch .5 inch
       2 inch -1 inch
       3 inch -.5 inch
       curveto

       2.5 inch -1.25 inch
       1.5 inch -.5 inch
       0 inch -.5 inch
       curveto
       0 0 lineto
       fill

       0 inch 0 inch moveto
       -1 inch .5 inch
       -2 inch -1 inch
       -3 inch -.5 inch
       curveto

       -2.5 inch -1.25 inch
       -1.5 inch -.5 inch
       0 inch -.5 inch
       curveto
       0 0 lineto
       fill

       grestore
} def

/snout {
       gsave
       newpath
       0.5 setgray
       3.25 inch 6 inch moveto

       3.75 inch 5 inch
       3.25 inch 4 inch
       3.75 inch 3 inch
       curveto
       
       3.75 inch 2.75 inch
       4.75 inch 2.75 inch
       4.75 inch 3 inch
       curveto

       5.25 inch 4 inch
       4.75 inch 5 inch
       5.25 inch 6 inch
       curveto
       
       1.5 inch 0 inch rlineto

       fill
       grestore
} def

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

/head {
       gsave
       snout
       horns
       grestore
} def

/gnognus {
       no
       head
       text
} def

0 1 inch translate
gnognus                    % an example of a call

showpage
.

0