Category : DeskTop Publishing in the 1990's
Archive : GS261EXE.ZIP
Filename : PRFONT.PS
Output of file : PRFONT.PS contained in archive : GS261EXE.ZIP
%%Creator: Eric Gisin
%%Title: Print font catalog
% Copyright (c) 1986 Eric Gisin
% Copyright (C) 1992 Aladdin Enterprises, Menlo Park, CA ([email protected])
% 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)
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/