%!%%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.% 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. % $Id: prfont.ps,v 1.1 2000/03/09 08:40:40 lpd 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 copied from Ghostscript (lib/gs_ttf.ps) and used by% permission of the author, Aladdin Enterprises./sort {		% <array> <lt-proc> sort <array>  1 index length 1 sub -1 1 {    2 index exch 2 copy get 3 copy	% arr proc arr i arr[i] arr i arr[i]    0 1 3 index 1 sub {      3 index 1 index get	% arr proc arr i arr[i] arr imax amax j arr[j]      2 index 1 index 10 index exec {	% ... amax < arr[j]	4 2 roll      } if pop pop    } for			% arr proc arr i arr[i] arr imax amax    4 -1 roll exch 4 1 roll put put  } for pop} 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)