Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!zaphod.mps.ohio-state.edu!mips!sgi!paul@manray.asd.sgi.com
From: paul@manray.asd.sgi.com (Paul Haeberli)
Newsgroups: comp.fonts
Subject: Display outlines of a typeface . . .
Message-ID: <72279@sgi.sgi.com>
Date: 16 Oct 90 17:58:40 GMT
Sender: guest@sgi.sgi.com
Organization: Silicon Graphics, Inc., Mountain View, CA
Lines: 105


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