%! %%Creator: Eric Gisin %%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. % Copyright (C) 1993 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to print unencoded characters. % Copyright (C) 1994 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to always create 256-element Encoding vectors. % Copyright (C) 1995 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to print more than 128 unencoded characters. % Copyright (C) 1996 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to leave a slightly wider left margin, because many H-P % printers can't print in the leftmost 1/4" of the page. % Modified to print unencoded characters in any font that has CharStrings. % Copyright (C) 1999 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to sort unencoded characters. % Copyright (C) 2000 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com) % Modified to print CIDFonts as well as fonts. % O(N^2) sorting replaced with O(N log N). % $Id: prfont.ps,v 1.2.6.1 2002/04/02 13:57:27 mpsuzuki Exp $ % Example usages at bottom of file /#copies 1 def /min { 2 copy gt { exch } if pop } bind def /T6 /Times-Roman findfont 6 scalefont def /Temp 64 string def /Inch {72 mul} def /Base 16 def % char code output base /TempEncoding [ 256 { /.notdef } repeat ] def % Sort an array. Code used by permission of the author, Aladdin Enterprises. /sort { % sort % Heapsort (algorithm 5.2.3H, Knuth vol. 2, p. 146), % modified for 0-origin indexing. */ 10 dict begin /LT exch def /recs exch def /N recs length def N 1 gt { /l N 2 idiv def /r N 1 sub def { l 0 gt { /l l 1 sub def /R recs l get def } { /R recs r get def recs r recs 0 get put /r r 1 sub def r 0 eq { recs 0 R put exit } if } ifelse /j l def { /i j def /j j dup add 1 add def j r lt { recs j get recs j 1 add get LT { /j j 1 add def } if } if j r gt { recs i R put exit } if R recs j get LT not { recs i R put exit } if recs i recs j get put } loop } loop } if recs end } def % do single character of page % output to rectangle ll=(0,-24) ur=(36,24) /DoGlyph { % C, N, W set % print code name, width and char name 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 N glyphshow /W W 24 mul 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 /DoChar { /C exch def /N F /Encoding get C get def /S (_) dup 0 C put def /W F setfont S stringwidth pop def DoGlyph } def /CIDTemp 20 string def /DoCID { /N exch def /C N def /W F setfont gsave matrix currentmatrix nulldevice setmatrix 0 0 moveto N glyphshow currentpoint pop grestore def DoGlyph } def % print page title /DoTitle { /Times-Roman findfont 18 scalefont setfont 36 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 35 mul 24 add Yn -56 mul 9.5 Inch add translate I DoCode grestore } for } def % print a line of character /DoCharLine { % firstcode lastcode 1 exch { (_) dup 0 3 index put show pop } for } def /DoCIDLine { % firstcode lastcode 1 exch { glyphshow } for } def % initialize variables /InitDoFont { % fontname font /F exch def % font /FName exch def % font name /F24 F 24 scalefont def /Line0 96 string def /Line1 96 string def /Namestring1 128 string def /Namestring2 128 string def } def % print pages of unencoded characters /DoUnencoded { % glyphs /Unencoded exch def /Count Unencoded length def % Print the unencoded characters in blocks of 128. 0 128 Unencoded length 1 sub { /BlockStart 1 index def dup 128 add Unencoded length .min 1 index sub Unencoded 3 1 roll getinterval TempEncoding copy /BlockEncoding exch def /BlockCount BlockEncoding length def save F /Encoding known { F length dict F { 1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse } forall dup /Encoding TempEncoding put /* exch definefont /F exch def /F24 F 24 scalefont def /BlockStart 0 def } if DoTitle (, unencoded characters) show BlockStart dup BlockCount 1 sub add DoBlock F 10 scalefont setfont 36 2.4 Inch moveto 0 32 BlockCount 32 sub 224 .min { 0 -0.4 Inch rmoveto gsave dup 31 add BlockCount 1 sub .min exch BlockStart add exch BlockStart add DoLine grestore } for showpage restore } for } def % print font sample pages /DoFont { dup findfont InitDoFont /DoCode {DoChar} def /DoLine {DoCharLine} def % Display the first 128 encoded characters. DoTitle (, characters 0-127) show 0 127 DoBlock F 10 scalefont setfont 36 2.0 Inch moveto 0 63 DoLine 36 1.5 Inch moveto 64 127 DoLine showpage % Display the second 128 encoded characters. DoTitle (, characters 128-255) show 128 255 DoBlock F 10 scalefont setfont 36 2.0 Inch moveto 128 191 DoLine 36 1.5 Inch moveto 192 255 DoLine showpage F /CharStrings known { % Find and display the unencoded characters. /Encoded F /Encoding get length dict def F /Encoding get { true Encoded 3 1 roll put } forall [ F /CharStrings get { pop dup Encoded exch known { pop } if } forall ] { exch Namestring1 cvs exch Namestring2 cvs lt } sort DoUnencoded } if } def % print CIDFont sample pages /DoCIDFont { dup /CIDFont findresource InitDoFont /DoCode {DoCID} def /DoLine {DoCIDLine} def [ 0 1 F /CIDCount get 1 sub { } for ] DoUnencoded } 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)