Postscript code to display a font
Ian Gregory
a 16*16 table of all 256 characters in a given postscript
font. I have only tested it on an Apple LaserWriter. The
last line of the program does the table for the Helvetica
font. Try also looking at the Symbol font (/Symbol). I
have used this procedure in a program which looks at the
font directory, and automatically prints a table for every
font installed on the printer.
Ian Gregory
ia...@plasmoid.dartmouth.edu
--------------------Cut Here---------------------------------
%!
% Generate a table of all the characters in a
% particular font. The character code is given by
% (16*row + column) where row and column are in [0, 15]
%
% Ian Gregory
% Thayer School of Engineering
% ia...@plasmoid.dartmouth.edu
%
/charstring 1 string def
/x0 30 def
/y0 50 def
/ds 560 def
%
%
/putentry
{
2 copy moveto
15 exch sub 16 mul add
/charcode exch def
charstring 0 charcode put
charstring show
} def
%
% The following procedure constructs the table,
% it expects a font-key to be on the stack.
%
/fontmap
{
findfont /MainFont exch def
/MainFontName MainFont /FontInfo get /FullName get def
x0 y0 translate
ds 16 div dup scale
%
% Display the name of the font:
%
/Helvetica findfont 0.5 scalefont setfont
2 18 moveto MainFontName show
%
% Draw the grid:
%
0.005 setlinewidth
0 1 16 { 0 moveto 0 16 rlineto } for
stroke
0 1 16 { 0 exch moveto 16 0 rlineto } for
stroke
%
% Fill in the entries:
%
0.25 0.25 translate
MainFont 0.5 scalefont setfont
0 1 15 { /y exch def 0 1 15 { y putentry } for } for
showpage
} def
%
% Here is an example
%
/Helvetica fontmap
Anders Ulfheden
>Here is one of my first postscript programs. It produces
>a 16*16 table of all 256 characters in a given postscript
>font. I have only tested it on an Apple LaserWriter. The
>last line of the program does the table for the Helvetica
>font. Try also looking at the Symbol font (/Symbol). I
>have used this procedure in a program which looks at the
>font directory, and automatically prints a table for every
>font installed on the printer.
Funny, i have just completed my program which does almost the same
thing! The difference is that the result of my program looks just
like the font-tables in the TeXbook. You can easily find the
corresponding character codes in hexadecimal or octal.
You can also incorporate all the unencoded characters in the font
and have them displayed. The unencoded characters are put in table
starting from octal code '000 - '033 (uppercase) and '200 - '233
(lowercase).
Enjoy...
------8<------- Cut Here ------ 8<------8<------8<------8<------8<------
%!
% ShowFont.ps : Show all characters in a font the same way as the TeXfonts
% are presented TexBook pp. 430.
% Send this file to LaserWriter with LW Dwnload program to print listing.
%
% Copyright (c) 1988 Anders Ulfheden <ul...@nada.kth.se>
%
% This program may be copied, modified and redistributed for non-commercial
% use only, provided that any and all copyright notices are preserved.
%
% Please report bugs, fixes, improvements and suggestions to:
%
% UUCP: ul...@nada.kth.se
%
%
/fontsiz 12 def % Used fontsize in grid
/fontlift 2.5 def % Correction to align characters vertically
/minheight 10 def % This means lower-y on the paper
/maxheight 750 def % upper-y
/minwidth 100 def % lower-x
/maxwidth 450 def % upper-x
/hno 32 def % Number of characters vertically
/vno 8 def % -- "" -- horizontally
/hspace maxheight minheight sub hno div def % Space in grid vertically
/vspace maxwidth minwidth sub vno div def % -- "" -- horizontally
%
% centertext -- Puts text centered horizontally at xcenter, ycenter.
%
/centertext % xcenter yposition text centertext
{
/currentstring exch def
/yposition exch def
/xcenter exch def
xcenter currentstring stringwidth
pop 2 div sub yposition moveto
currentstring
} def
%
% odd -- No comments... ;-)
% Returns TRUE or FALSE
%
/odd { 2 mod 0 eq } def
%
% showfont -- Draws a grid and displays all characters in a font.
%
/showfont { % fontname showfont
/Displayfont exch def
gsave
/Helvetica findfont fontsiz 1.5 mul scalefont setfont
maxwidth 1.15 mul maxheight 0.75 mul
fontsiz 1.5 mul 2 div neg add translate
90 rotate
0 0 moveto
Displayfont findfont /FontInfo get /FullName get
show
/Helvetica findfont fontsiz 1.2 div scalefont setfont
-400 0 moveto
(From ul...@nada.kth.se, 88-11-20) show
grestore
/Times-Italic findfont fontsiz scalefont setfont
%
% Horizontal lines
%
/localcount 0 def
newpath
maxheight hspace neg minheight
{ dup minwidth hspace 2 mul neg add 2 1 roll moveto
maxwidth
localcount odd
{ hspace 1.5 mul add }
if
/localcount localcount 1 add def
2 1 roll lineto
} for
stroke
%
% Vertical lines
%
newpath
maxwidth vspace neg minwidth
{ dup minheight vspace 2 div neg add moveto
maxheight vspace 2 div add lineto
} for
stroke
%
% Label axis
%
/nstr 4 string def
/xpos minwidth hspace 3 mul neg 2 div add def
0 1 hno 1 sub
{ dup dup
1 add hspace mul neg hspace 2 div fontsiz fontlift div neg add add
maxheight add xpos exch moveto
nstr exch 8 mod 2 exch 48 add put
nstr exch 8 idiv 1 exch 48 add put
nstr 3 120 put % x
nstr 0 39 put % '
nstr show
} for
/nstr 2 string def
/ypos maxheight vspace 4 div add fontsiz fontlift div neg add def
0 1 vno 1 sub
{ dup
1 add vspace mul vspace 2 div neg add
minwidth add ypos 3 -1 roll
nstr exch 1 exch 48 add put
nstr 0 39 put % '
nstr centertext show
} for
/Courier-Bold findfont fontsiz scalefont setfont
/ypos minheight vspace 4 div neg add fontsiz fontlift div neg add def
0 1 vno 1 sub
{ dup
1 add vspace mul vspace 2 div neg add
minwidth add ypos 3 -1 roll
nstr exch 8 add 16 mod 1 exch dup 10 lt {48 add} {55 add} ifelse put
nstr 0 34 put % "
nstr centertext show
} for
/nstr 3 string def
/xpos maxwidth hspace 4 div add def
0 2 hno 1 sub
{ dup
1 add hspace mul neg fontsiz fontlift div neg add
maxheight add xpos exch moveto
nstr exch 2 idiv 16 mod 1 exch dup 10 lt {48 add} {55 add} ifelse put
nstr 2 120 put % x
nstr 0 34 put % "
nstr show
} for
%
% Display characters
%
/nstr 1 string def
/fontsiz fontsiz 1.2 mul def
Displayfont findfont fontsiz scalefont setfont
0 1 7
{
/xx exch def
/xpos xx vspace mul vspace 2 div add minwidth add def
0 1 31
{
/yy exch def
/ypos yy hspace mul hspace 2 div add neg maxheight add
fontsiz fontlift div neg add def
xx yy
8 mul add
nstr 0
3 -1 roll
put
xpos ypos nstr centertext show
}
for
}
for
} def
%
% ReEncode -- Put unencoded text characters into a new font.
% Returns the updated font.
%
/ReEncode { % Font ReEncode -> New TemporaryFont
/ReEncodeDict 12 dict def
ReEncodeDict begin
/basefontname exch def
/basefontdict basefontname findfont def
/newfont basefontdict maxlength dict def
basefontdict
{ exch dup /FID ne
{ dup /Encoding eq
{ exch dup length array copy
newfont 3 1 roll put }
{ exch newfont 3 1 roll put }
ifelse
}
{ pop pop }
ifelse
} forall
newfont /FontName /TemporaryFont put
auxvector aload pop
auxvector length 2 idiv
{ newfont /Encoding get 3 1 roll put }
repeat
/TemporaryFont newfont definefont pop
end
/TemporaryFont
} def
%
% auxvector -- Contains character codes and corresponding unencoded characters.
%
/auxvector [ % Unencoded Text Characters
8#200 /aacute
8#201 /acircumflex
8#202 /adieresis
8#203 /agrave
8#204 /aring
8#205 /atilde
8#206 /ccedilla
8#207 /eacute
8#210 /ecircumflex
8#211 /edieresis
8#212 /egrave
8#213 /iacute
8#214 /icircumflex
8#215 /idieresis
8#216 /igrave
8#217 /ntilde
8#220 /oacute
8#221 /ocircumflex
8#222 /odieresis
8#223 /ograve
8#224 /otilde
8#225 /scaron
8#226 /uacute
8#227 /ucircumflex
8#230 /udieresis
8#231 /ugrave
8#232 /ydieresis
8#233 /zcaron
8#000 /Aacute
8#001 /Acircumflex
8#002 /Adieresis
8#003 /Agrave
8#004 /Aring
8#005 /Atilde
8#006 /Ccedilla
8#007 /Eacute
8#010 /Ecircumflex
8#011 /Edieresis
8#012 /Egrave
8#013 /Iacute
8#014 /Icircumflex
8#015 /Idieresis
8#016 /Igrave
8#017 /Ntilde
8#020 /Oacute
8#021 /Ocircumflex
8#022 /Odieresis
8#023 /Ograve
8#024 /Otilde
8#025 /Scaron
8#026 /Uacute
8#027 /Ucircumflex
8#030 /Udieresis
8#031 /Ugrave
8#032 /Ydieresis
8#033 /Zcaron
] def
40 40 translate
/Times-Bold showfont % Shows /Times-Bold
%/Times-Bold ReEncode showfont % Shows extended /Times-Bold
showpage
+------------------------------------------------------------------------------
| Anders Ulfheden
| USENET: ul...@nada.kth.se
| Royal Institute of Technology
| Stockholm, Sweden
Anders Ulfheden
> /nstr 1 string def
> /fontsiz fontsiz 1.2 mul def
> Displayfont findfont fontsiz scalefont setfont
> 0 1 7
> {
> /xx exch def
> /xpos xx vspace mul vspace 2 div add minwidth add def
> 0 1 31
> {
> /yy exch def
> /ypos yy hspace mul hspace 2 div add neg maxheight add
> fontsiz fontlift div neg add def
> xx yy
> 8 mul add
> nstr 0
Bugfix1:
/nstr 1 string def
/fontsizDisp fontsiz 1.2 mul def
Displayfont findfont fintsizDisp scalefont setfont
0 1 7
{
/xx exch def
/xpos xx vspace mul vspace 2 div add minwidth add def
0 1 31
{
/yy exch def
/ypos yy hspace mul hspace 2 div add neg maxheight add
fintsizDisp fontlift div neg add def
xx yy
8 mul add
nstr 0
3 -1 roll
Thanks to Hans Eriksson (ha...@ditmela.oz.au).
Richard J Cox
>thing! The difference is that the result of my program looks just
>like the font-tables in the TeXbook. You can easily find the
>corresponding character codes in hexadecimal or octal.
I think there is a `program' (in TeX) to do this in the back of the METAfont
book, I would check but my copy is at home.
/*--------------------------------------------------------------------------*/
JANET: ma...@uk.ac.warwick.cu BITNET: maujt%uk.ac.warwick.cu@UKACRL
ARPA: ma...@cu.warwick.ac.uk UUCP: maujt%cu.warwi...@ukc.uucp
Richard Cox, 84 St. Georges Rd, Coventry, CV1 2DL; UK PHONE: (0203) 520995
Anders Ulfheden
>In article <6...@draken.nada.kth.se> ul...@nada.kth.se (Anders Ulfheden) writes:
>>
>>Funny, i have just completed my program which does almost the same
>
>I think there is a `program' (in TeX) to do this in the back of the METAfont
>book, I would check but my copy is at home.
For built-in PostScript fonts???
Jos Vos
BUT: there appear identifiers "fintsizDisp" (2x) in the code.
These occurrences should be changed into "fontsizDisp", of course.
Furthermore, the original text excludes the roll statement, which
is included in the new text.
But nevertheless, it *is* a very handy program.
You just stopped me from writing such a program myself.
--
-- ###### Jos Vos ###### Internet j...@idca.tds.philips.nl ######
-- ###### ###### UUCP ...!mcvax!philapd!jos ######
Anders Ulfheden
>In article <6...@draken.nada.kth.se> ul...@nada.kth.se (Anders Ulfheden)
>sends a bug fix on his own program.
>
>BUT: there appear identifiers "fintsizDisp" (2x) in the code.
>These occurrences should be changed into "fontsizDisp", of course.
>
>Furthermore, the original text excludes the roll statement, which
>is included in the new text.
Sigh! I'm really sorry! Late at night, you know...
Richard J Cox
>In article <2...@orchid.warwick.ac.uk> ma...@warwick.ac.uk (Richard J Cox) writes:
>>In article <6...@draken.nada.kth.se> ul...@nada.kth.se (Anders Ulfheden) writes:
>>>
>>>Funny, i have just completed my program which does almost the same
>>> [Stuff deleted]
>>
>>I think there is a `program' (in TeX) to do this in the back of the METAfont
>>book, I would check but my copy is at home.
>
>For built-in PostScript fonts???
Yes - just use \font\somename=Fontname at size.
And then use that font. TeX can use any font it has the .tfm files for, here
we have them for quite alot of postscript fonts (I don't know how many of them
are 'standard' or added). In fact I only use the Computer Modern fonts for
the maths italic and symbol fonts.
Hurf Sheldon
>But nevertheless, it *is* a very handy program.
I came late here, would someone please send me the program and fix?
thanks,
hurf
--
Hurf Sheldon Network: hu...@ionvax.tn.cornell.edu
Lab of Plasma Studies Bitnet: hurf@CRNLION
369 Upson Hall, Cornell University, Ithaca, N.Y. 14853 ph:607 255 7267
I sold my Elan, got a job in science; Now, no one takes me seriously.