%!PS-Adobe-2.0
% ------------ Define Procedures -------------
/Helvetica-Bold findfont 27 scalefont setfont

/fourpops
{ 4 {pop} repeat } def

/background %Black background
{ 0 18 moveto % with rounded corners
  0 72 108 72 18 arcto fourpops
  108 72 108 0 18 arcto fourpops
  108 0 0 0 18 arcto fourpops
  0 0 0 72 18 arcto fourpops
  fill } def

/moon
{ .6 setgray % set gray level
  81 45 18 0 360 arc fill % draw a circle
} def % end of definition

/omaha
{ 1 setgray
  0 -1 moveto
  1 2 scale % double y-scale
  (OMAHA) stringwidth pop % width of word
  108 exch sub 2 div % calc. indentation
  0 rmoveto % indent
  (OMAHA) show } def % & print

% ------------ Begin Program -----------------
255 465 translate
background
moon
omaha
showpage