diff options
Diffstat (limited to 'Master/xemtex/doc/ghostscript/examples/waterfal.ps')
-rw-r--r-- | Master/xemtex/doc/ghostscript/examples/waterfal.ps | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/Master/xemtex/doc/ghostscript/examples/waterfal.ps b/Master/xemtex/doc/ghostscript/examples/waterfal.ps new file mode 100644 index 00000000000..0236f8f06a2 --- /dev/null +++ b/Master/xemtex/doc/ghostscript/examples/waterfal.ps @@ -0,0 +1,80 @@ +%! +/waterfalsave save def % prevent residual side effects +% Copyright (C) 1992, 1993, 1996 Aladdin Enterprises. All rights reserved. +% +% This program is free software; you can redistribute it and/or modify it +% under the terms of the GNU General Public License as published by the +% Free Software Foundation; either version 2 of the License, or (at your +% option) any later version. +% +% This program is distributed in the hope that it will be useful, but +% WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General +% Public License for more details. +% +% You should have received a copy of the GNU General Public License along +% with this program; if not, write to the Free Software Foundation, Inc., +% 59 Temple Place, Suite 330, Boston, MA, 02111-1307. + +% $Id: waterfal.ps,v 1.3.2.1.2.1 2003/04/12 14:02:38 giles Exp $ +% waterfal.ps +% This file produces a 'waterfall' printout of fonts at various sizes. + + +% Specify any desired set of up to 3 fonts here. +/Fonts [/Courier /Helvetica] def + +% Specify any desired set of point sizes here. +% The sum of the sizes should not exceed (roughly) 100. +% For sizes larger than about 16, some characters may fall off the page. +/Sizes [6 7 8 9 10 11 12 14 16] def + +/eol + { currentfont /FontBBox get aload pop + exch pop sub exch pop 0 exch + % Many Ghostscript fonts have incorrect FontBBoxes.... + pop -1000 + 1.15 mul currentfont /FontMatrix get dtransform + translate + 0 0 moveto + } def + +(landscap.ps) runlibfile +clippath pathbbox newpath +/ury exch def /urx exch def /lly exch def /llx exch def +llx 18 add ury 18 sub translate +% Read the current Y resolution without using Ghostscript-specific operators. +gsave initmatrix 0 72 dtransform abs exch abs exch .max grestore +round cvi /dpi exch def +QUIET not + { (Creating waterfall printout at ) print dpi =only ( DPI.\n) print flush + } +if + +newpath 0 setgray +/Courier findfont 20 scalefont setfont + +Fonts + { save exch + QUIET not { dup ==only flush } if + findfont /basefont exch def + basefont 20 scalefont setfont eol + basefont /FontName get =string cvs show + ( ) show dpi =string cvs show ( DPI) show + Sizes + { QUIET not { ( ) print dup =only flush } if + dup /size exch def basefont exch scalefont setfont eol + size =string cvs show ( ) show + (qwertyuiop-asdfghjkl_zxcvbnm ) show + (QWERTYUIOP+ASDFGHJKL/ZXCVBNM ) show + (1470258369 .,:;?!) show + } forall + QUIET not { () = flush } if + matrix currentmatrix aload pop + 7 -1 roll restore + 6 array astore setmatrix + } forall + +showpage +clear cleardictstack +waterfalsave restore |