home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / adobeenc.zoo / encrypt.shar / view_trailer.ps < prev   
Text File  |  1990-10-27  |  605b  |  31 lines
  1. end
  2.  
  3. /Helvetica findfont 30 scalefont setfont
  4. /myString 30 string def
  5. /myWriteString {
  6.     gsave 20 -50 moveto show grestore
  7. } def
  8. 100 100 translate
  9. /iChar 0 def
  10.  
  11. font_dict {            % name procedure
  12.     /proc exch def
  13.     /name exch def
  14.     gsave
  15.         gsave
  16.         .3 .3 scale
  17.         gsave 0 0 moveto 0 1000 rlineto
  18.         1000 0 rlineto 0 -1000 rlineto closepath stroke grestore
  19.         proc stroke
  20.         grestore
  21.         name myString cvs gsave 0 -50 moveto show grestore
  22.         gsave -50 -50 moveto iChar (    ) cvs show grestore
  23.         /iChar iChar 1 add def
  24.         usertime 800 add
  25.         { dup usertime lt { pop exit } if } loop
  26.         erasepage
  27.     grestore
  28. } forall
  29.  
  30. showpage
  31.