paul@manray.asd.sgi.com (Paul Haeberli) (10/17/90)
Here's a bit of PostScript that displays outlines of the
Capital letters. . . . .
paul haeberli
paul@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