61a
%!

/pi 3.1415923 def
/str1 ( ) def

/spiral {
  gsave
  /rad exch def
  /ptsize exch def
  /str exch def
   
  /xrad rad ptsize 4 div add def

  180 rotate

  str {
    /charcode exch def
    str1 0 charcode put
    str1 angshow
    .993 .993 scale
  } forall
  grestore
} def

/angshow {
  /char exch def
  /angle char stringang def
  gsave
    angle 2 div neg rotate

    rad 0 translate

    -90 rotate

    char stringwidth pop 2 div neg 0 moveto
    char show
  grestore

  angle neg rotate
} def

/stringang {
  stringwidth pop
  2 xrad mul pi mul
  div 360 mul
} def

/centershow {
  dup stringwidth pop 
  2 div neg
  0 rmoveto
  show
} def

/newline {
  ypos lineheight sub
  /ypos exch def
  xpos ypos moveto
} def

/Times-Bold findfont 20 scalefont setfont
/lineheight 20 def
/LM 0 def
/RM 612 def
/ypos 685 def
/xpos RM LM sub 2 div def
xpos ypos moveto
(PostScript Printer Test Page) centershow
newline
(Distributed Workstation Services) centershow
newline
(Academic Computing and Media) centershow

/Times-Roman findfont 20 scalefont setfont
325 400 translate
0 0 moveto
4 2 scale
(Testing one, two, three......Testing one, two, three......Testing one,
two, three......Testing one, two, three......Testing one,
two,three......Testing one, two, three......Testing one,
two,three......Testing one, two, three......Testing one,
two,three......Testing one, two, three......Testing one,
two,three......Testing one, two, three......)
15 60 spiral
showpage

%%EOF
.

0