home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / postscri / windows / gscript / waterfal.ps < prev    next >
Encoding:
Text File  |  1993-05-12  |  2.5 KB  |  74 lines
  1. %    Copyright (C) 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Ghostscript.
  4. %
  5. % Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the Ghostscript General Public License for full details.
  10. %
  11. % Everyone is granted permission to copy, modify and redistribute
  12. % Ghostscript, but only under the conditions described in the Ghostscript
  13. % General Public License.  A copy of this license is supposed to have been
  14. % given to you along with Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % waterfal.ps
  20. % This file produces a 'waterfall' printout of fonts at various sizes.
  21.  
  22.  
  23. % Specify any desired set of up to 3 fonts here.
  24. /Fonts [/Palatino-Roman /Palatino-Italic /Palatino-Bold] def
  25.  
  26. % Specify any desired set of point sizes here.
  27. % The sum of the sizes should not exceed (roughly) 100.
  28. % For sizes larger than about 16, some characters may fall off the page.
  29. /Sizes [7 8 9 10 11 12 14 16] def
  30.  
  31. /eol
  32.  { currentfont /FontBBox get aload pop
  33.    exch pop sub exch pop 0 exch
  34.    currentfont /FontMatrix get dtransform
  35.    translate
  36.    0 0 moveto
  37.  } def
  38.  
  39. (landscap.ps) run
  40. clippath pathbbox newpath
  41. /ury exch def /urx exch def /lly exch def /llx exch def
  42. llx 18 add ury 18 sub translate
  43. % Read the current Y resolution without using Ghostscript-specific operators.
  44. gsave initmatrix 0 72 dtransform abs exch abs exch max grestore
  45. round cvi /dpi exch def
  46. QUIET not
  47.  { (Creating waterfall printout at ) print dpi =only ( DPI.\n) print flush
  48.  }
  49. if
  50.  
  51. newpath 0 setgray
  52. /Courier findfont 20 scalefont setfont
  53.  
  54. Fonts
  55.  { save exch
  56.    findfont /basefont exch def
  57.    basefont 20 scalefont setfont eol
  58.    basefont /FontName get =string cvs show
  59.    ( ) show dpi =string cvs show ( DPI) show
  60.    Sizes
  61.     { dup /size exch def basefont exch scalefont setfont eol
  62.       size =string cvs show ( ) show
  63.       (qwertyuiop-asdfghjkl_zxcvbnm ) show
  64.       (QWERTYUIOP+ASDFGHJKL/ZXCVBNM ) show
  65.       (1470258369 .,:;?!) show
  66.     } forall
  67.    matrix currentmatrix aload pop
  68.    7 -1 roll restore
  69.    6 array astore setmatrix
  70.  } forall
  71.  
  72. showpage
  73. quit
  74.