home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / untype.zoo / untype1 / trailer.ps < prev    next >
Encoding:
Text File  |  1990-11-22  |  895 b   |  49 lines
  1. %!
  2. %
  3. % trailer.ps
  4. %
  5.  
  6. /Helvetica findfont 20 scalefont setfont
  7. /myString 20 string def
  8. /numString 20 string def
  9.  
  10. %
  11. % All of the numbers being passed in are real equivalents of integers.
  12. % Convert them back into ints before printing so that print doesn't
  13. % append a ".0"
  14. %
  15. /printNumbers {
  16.     /ii exch def
  17.     ii 1 sub -1 0 { index cvi numString cvs print ( ) print } for
  18.     ii { pop } repeat
  19. } def
  20.  
  21. %
  22. % Traverse the dictionaries and arrays.
  23. %
  24. begin
  25. Private begin
  26. CharStrings begin
  27. 100 dict begin
  28.  
  29. 100 100 moveto
  30.  
  31. CharStrings {        % name procedure
  32.     gsave
  33.         /xOrigin 0 def
  34.         /yOrigin 0 def
  35.         (/) print exch myString cvs print ( { ) print
  36.         mark exch
  37.         gsave newpath exec cleartomark
  38.             { 2 printNumbers (moveto ) print }
  39.             { 2 printNumbers (lineto ) print }
  40.             { 6 printNumbers (curveto ) print }
  41.             { (closepath ) print } pathforall
  42.         grestore
  43.         ( } def\n) print
  44.     grestore
  45.     0 40 rmoveto
  46. } forall
  47.  
  48. showpage
  49.