[fonts] Display outlines of a typeface . . .

[Paul Haeberli]

Archive-name: pilefont/16-Oct-90
Original-posting-by: paul at manray.asd.sgi.com (Paul Haeberli)
Original-subject: Display outlines of a typeface . . .
Reposted-by: emv at math.lsa.umich.edu (Edward Vielmetti)

[Reposted from comp.fonts.
Comments on this service to emv at math.lsa.umich.edu (Edward Vielmetti).]


Here's a bit of PostScript that displays outlines of the
Capital letters. . . . .

paul haeberli
paul at sgi.com


%!
%	pilefont-
%		Create an image of the outlined Capitals
%		
%			Paul Haebeli - 1990
%
/centershow {
dup
stringwidth pop -2 div 0 rmoveto
show
} def

/centerstroke {
dup
stringwidth pop -2 div 0 rmoveto
true charpath stroke
} def

/pilefont {
findfont
600 scalefont
setfont

0.0 setlinewidth

gsave
306 486 200 sub translate
0.75 setgray
0 0 moveto
(Z) centershow
0.0 setgray
0 0 moveto
(A) centershow
0 0 moveto
(B) centerstroke
0 0 moveto
(C) centerstroke
0 0 moveto
(D) centerstroke
0 0 moveto
(E) centerstroke
0 0 moveto
(F) centerstroke
0 0 moveto
(G) centerstroke
0 0 moveto
(H) centerstroke
0 0 moveto
(I) centerstroke
0 0 moveto
(J) centerstroke
0 0 moveto
(K) centerstroke
0 0 moveto
(L) centerstroke
0 0 moveto
(M) centerstroke
0 0 moveto
(N) centerstroke
0 0 moveto
(O) centerstroke
0 0 moveto
(P) centerstroke
0 0 moveto
(Q) centerstroke
0 0 moveto
(R) centerstroke
0 0 moveto
(S) centerstroke
0 0 moveto
(T) centerstroke
0 0 moveto
(U) centerstroke
0 0 moveto
(V) centerstroke
0 0 moveto
(W) centerstroke
0 0 moveto
(X) centerstroke
0 0 moveto
(Y) centerstroke
0 0 moveto
(Z) centerstroke
grestore

gsave
306 100 translate
0.15 0.15 scale
0 0 moveto
0.50 setgray
centershow
grestore
} def

(Times Roman) /Times-Roman pilefont

showpage