add directory Linux-0.98

Linux-0.98/Yggdrasil-0.98.3/usr/lib/ghostscript/prfont.ps

@@ -0,0 +1,97 @@
+%!PS-Adobe-1.0
+%%Creator: Eric Gisin <egisin@waterloo.csnet>
+%%Title: Print font catalog
+% Copyright (c) 1986 Eric Gisin
+% Copyright (C) 1992 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com)
+%   Modified to print all 256 encoded characters,
+%     plus any unencoded characters.
+
+% Example usages at bottom of file
+
+/#copies 1 def
+
+/T6 /Times-Roman findfont 6 scalefont def
+/Temp 64 string def
+/Inch {72 mul} def
+/Base 16 def	% char code output base
+
+% do single character of page
+% output to rectangle ll=(0,-24) ur=(36,24)
+/DoChar {
+  /C exch def
+  /S (_) dup 0 C put def
+  /N F /Encoding get C get def
+
+  % print code name, width and char name
+  /W F setfont S stringwidth pop def
+  T6 setfont
+  N /.notdef ne {0 -20 moveto N Temp cvs show} if
+  0 -12 moveto C Base Temp cvrs show (  ) show
+  W 0.0005 add Temp cvs 0 5 getinterval show
+
+  % print char with reference lines
+  N /.notdef ne {
+    3 0 translate
+    0 0 moveto F24 setfont S show
+    /W S stringwidth pop def
+    0 -6 moveto 0 24 lineto
+    W -6 moveto W 24 lineto
+    -3 0 moveto W 3 add 0 lineto
+    0 setlinewidth stroke
+  } if
+} def
+
+% print page title
+/DoTitle {
+  /Times-Roman findfont 18 scalefont setfont
+  18 10.5 Inch moveto FName Temp cvs show ( ) show ((24 point)) show
+} def
+
+% print one block of characters
+/DoBlock {	% firstcode lastcode
+  /FirstCode 2 index def
+  1 exch {
+    /I exch def
+    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def
+    gsave
+    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate
+    I DoChar
+    grestore
+  } for
+} def
+
+% print a line of character
+/DoLine {	% firstcode lastcode
+  1 exch { (_) dup 0 3 index put show pop } for
+} def
+
+% print font sample page
+/DoFont {
+  /FName exch def	% font name
+  /F FName findfont def
+  /F24 F 24 scalefont def
+  /Line0 96 string def
+  /Line1 96 string def
+
+  DoTitle (, characters 0-127) show
+  0 127 DoBlock
+  F 10 scalefont setfont
+  18 2.0 Inch moveto 0 63 DoLine
+  18 1.5 Inch moveto 64 127 DoLine
+  showpage
+
+  DoTitle (, character 128-255) show
+  128 255 DoBlock
+  F 10 scalefont setfont
+  18 2.0 Inch moveto 128 191 DoLine
+  18 1.5 Inch moveto 192 255 DoLine
+  showpage
+
+} def
+
+% Do font samples
+% /Times-Roman DoFont			% Test (less than a minute)
+% /Hershey-Gothic-English DoFont	% Test (8 minutes)
+
+% Do a complete catalog
+% FontDirectory {pop DoFont} forall	% All fonts (quite a long time)