summaryrefslogtreecommitdiff
path: root/Master/xemtex/doc/ghostscript/examples/waterfal.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/xemtex/doc/ghostscript/examples/waterfal.ps')
-rw-r--r--Master/xemtex/doc/ghostscript/examples/waterfal.ps80
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