fontlist.ps

The program is a general EXECUTABLE ONLY 2-D Rectangular and Polar Pattern Plotter.

4 copy sub/swid _x def
sub/shgt _x def
add 2 div/icx _x def add 2 div/icy _x def
xp dwid 2 div add icx sub yp dhgt 2 div sub
icy sub _tr icx icy _tr
360 _x sub rotate
dwid swid div/xsc _x def _x
dhgt shgt div/ysc _x def _x
dup 1 eq{xsc neg/xsc _x def pop}
{dup 2 eq{ysc neg /ysc _x def pop}
{3 eq{ysc neg/ysc _x def xsc neg/xsc _x def}
{}ife}ife}ife
xsc ysc scale
100 div _x 100 div _x scale
icx neg icy neg _tr}bdef
/_c{3{255 div 3 1 roll}repeat setrgbcolor}bdef
/eq3{3 copy 2 _ix eq{eq{true}{false}ife}{pop
pop false}ife}bdef
/g{255 div setgray}bdef
/_clr{ron{6 3 roll pop pop pop}{eq3{pop
pop g}{_c}ife}ife}bdef
/_r{/ron false def eq3{1 sub neg g pop
pop}{setrgbcolor}ife}bdef
/_ircms{save 15 1 roll
1 eq{{1 exch sub}currenttransfer _ccprocs settransfer}if
/pstr _x string def _tr
/Cli _x def/USy _x def/USx _x def/Rot _x def/HTd _x def
/WDd _x def/Bdep _x def/HTs _x def/WDs _x def/MIR _x def
USx 100 div USy 100 div scale
WDd WDs sub 2 div HTd HTs sub 2 div neg _tr
WDs HTs 2 div neg _x 2 div _x _tr
Rot 360 _x sub rotate WDd HTd HTs div _x WDs div _x scale
WDs 2 div neg HTs 2 div _tr
WDs HTs scale WDs HTs Bdep MIR 0
eq{[WDs 0 0 HTs neg 0 0]}{MIR 1 eq{[WDs 0 0 HTs 0 HTs]}
{MIR 128 eq{[WDs neg 0 0 HTs neg WDs 0]}
{[WDs neg 0 0 HTs WDs HTs]}ife}ife}ife
{currentfile pstr _rhs pop}Cli
0 eq{image}{false 3 colorimage}ife
restore}bdef
/_bp{save 2 setlinecap 2 setmiterlimit
.06 .06 scale 0 0 moveto}bdef
/tctm _mx def/trot _mx def/tscale _mx def/rmtx _mx def
/fr{72 0 rmtx defaultmatrix dtransform
/yres _x def/xres _x def
xres dup mul yres dup mul add sqrt}bdef
/sus{/spotf _x def/sang _x def/csz _x def
/m tctm currentmatrix def/rm sang trot rotate def
/sm csz dup tscale scale def
sm rm m m concatmatrix m concatmatrix pop
1 0 m dtransform /y1 _x def/x1 _x def
/veclength x1 dup mul y1 dup mul add sqrt def
/frcy fr veclength div def /nsang y1 x1 atan def
frcy nsang/spotf load setscreen}bdef
/bitis{/ybit _x def /xbit _x def
/bval bstring ybit bwidth mul xbit 8 idiv add get def
/mask 1 7 xbit 8 mod sub bitshift def
bval mask and 0 ne}bdef
/bps{/y _x def /x _x def
/xndx x 1 add 2 div bpside mul cvi def
/yndx y 1 add 2 div bpside mul cvi def
xndx yndx bitis
{/onb onb 1 add def 1}{/ofb ofb 1 add def 0}ife}bdef
/stpatt{/csz _x def /angle _x def /bwidth _x def
/bpside _x def /bstring _x def
/onb 0 def /ofb 0 def
csz angle /bps load
sus{}settransfer
ofb ofb onb add div _g}bdef
/_fp{8 1 0 cpi stpatt}bdef
/_pf{gsave eofill grestore}bdef
/_np{newpath}bdef/_lc{setlinecap}bdef
/_sr{/cpi _x def}bdef
/nbuff 50 string def
/_ieq	{gsave
	dup /picstr exch 7 add 8 idiv string def
	3 1 roll translate dup 1 scale
	dup 1 false [5 -1 roll 0 0 1 0 0]
	{currentfile picstr readhexstring pop} imagemask
	grestore} bdef
letter _bp 0 13200 10200 _ornt /HelveticaR 600 _ff
0 13200 10200 _ornt 
/_r      { sflg {/_t {0 rmoveto}bdef /ron false def}
         { /_S /show load def /_t {0 rmoveto}bdef /ron false def}ifelse
     }bdef
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2996 _m
_sp 600 2996 600 2999 300 2999 3 _pl _pf _np _s _s 300 2909 _m
_sp 303 2909 303 2999 300 2999 3 _pl _pf _np 
_s 0 g 86 296 304 2909 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1501 11778 _m
(A)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(A)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2909 _m
_sp 900 2909 900 2999 897 2999 3 _pl _pf _np _s _s 600 2996 _m
_sp 900 2996 900 2999 600 2999 3 _pl _pf _np _s _s 600 2909 _m
_sp 603 2909 603 2999 600 2999 3 _pl _pf _np 
_s 0 g 86 292 604 2909 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 11778 _m
(a)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(a)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2906 _m
_sp 600 2906 600 2909 300 2909 3 _pl _pf _np _s _s 300 2819 _m
_sp 303 2819 303 2909 300 2909 3 _pl _pf _np 
_s 0 g 86 296 304 2819 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1501 11418 _m
(B)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(B)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2819 _m
_sp 900 2819 900 2909 897 2909 3 _pl _pf _np _s _s 600 2906 _m
_sp 900 2906 900 2909 600 2909 3 _pl _pf _np _s _s 600 2819 _m
_sp 603 2819 603 2909 600 2909 3 _pl _pf _np 
_s 0 g 86 292 604 2819 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 11418 _m
(b)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(b)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2816 _m
_sp 600 2816 600 2819 300 2819 3 _pl _pf _np _s _s 300 2729 _m
_sp 303 2729 303 2819 300 2819 3 _pl _pf _np 
_s 0 g 86 296 304 2729 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1496 11058 _m
(C)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(C)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2729 _m
_sp 900 2729 900 2819 897 2819 3 _pl _pf _np _s _s 600 2816 _m
_sp 900 2816 900 2819 600 2819 3 _pl _pf _np _s _s 600 2729 _m
_sp 603 2729 603 2819 600 2819 3 _pl _pf _np 
_s 0 g 86 292 604 2729 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2710 11058 _m
(c)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(c)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2726 _m
_sp 600 2726 600 2729 300 2729 3 _pl _pf _np _s _s 300 2639 _m
_sp 303 2639 303 2729 300 2729 3 _pl _pf _np 
_s 0 g 86 296 304 2639 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1496 10698 _m
(D)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(D)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2639 _m
_sp 900 2639 900 2729 897 2729 3 _pl _pf _np _s _s 600 2726 _m
_sp 900 2726 900 2729 600 2729 3 _pl _pf _np _s _s 600 2639 _m
_sp 603 2639 603 2729 600 2729 3 _pl _pf _np 
_s 0 g 86 292 604 2639 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 10698 _m
(d)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(d)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2636 _m
_sp 600 2636 600 2639 300 2639 3 _pl _pf _np _s _s 300 2549 _m
_sp 303 2549 303 2639 300 2639 3 _pl _pf _np 
_s 0 g 86 296 304 2549 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1501 10338 _m
(E)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(E)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2549 _m
_sp 900 2549 900 2639 897 2639 3 _pl _pf _np _s _s 600 2636 _m
_sp 900 2636 900 2639 600 2639 3 _pl _pf _np _s _s 600 2549 _m
_sp 603 2549 603 2639 600 2639 3 _pl _pf _np 
_s 0 g 86 292 604 2549 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 10338 _m
(e)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(e)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2546 _m
_sp 600 2546 600 2549 300 2549 3 _pl _pf _np _s _s 300 2459 _m
_sp 303 2459 303 2549 300 2549 3 _pl _pf _np 
_s 0 g 86 296 304 2459 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1507 9978 _m
(F)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(F)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2459 _m
_sp 900 2459 900 2549 897 2549 3 _pl _pf _np _s _s 600 2546 _m
_sp 900 2546 900 2549 600 2549 3 _pl _pf _np _s _s 600 2459 _m
_sp 603 2459 603 2549 600 2549 3 _pl _pf _np 
_s 0 g 86 292 604 2459 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2732 9978 _m
(f)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(f)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2456 _m
_sp 600 2456 600 2459 300 2459 3 _pl _pf _np _s _s 300 2369 _m
_sp 303 2369 303 2459 300 2459 3 _pl _pf _np 
_s 0 g 86 296 304 2369 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1490 9618 _m
(G)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(G)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2369 _m
_sp 900 2369 900 2459 897 2459 3 _pl _pf _np _s _s 600 2456 _m
_sp 900 2456 900 2459 600 2459 3 _pl _pf _np _s _s 600 2369 _m
_sp 603 2369 603 2459 600 2459 3 _pl _pf _np 
_s 0 g 86 292 604 2369 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 9618 _m
(g)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(g)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2366 _m
_sp 600 2366 600 2369 300 2369 3 _pl _pf _np _s _s 300 2279 _m
_sp 303 2279 303 2369 300 2369 3 _pl _pf _np 
_s 0 g 86 296 304 2279 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1496 9258 _m
(H)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(H)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2279 _m
_sp 900 2279 900 2369 897 2369 3 _pl _pf _np _s _s 600 2366 _m
_sp 900 2366 900 2369 600 2369 3 _pl _pf _np _s _s 600 2279 _m
_sp 603 2279 603 2369 600 2369 3 _pl _pf _np 
_s 0 g 86 292 604 2279 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2704 9258 _m
(h)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(h)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2276 _m
_sp 600 2276 600 2279 300 2279 3 _pl _pf _np _s _s 300 2189 _m
_sp 303 2189 303 2279 300 2279 3 _pl _pf _np 
_s 0 g 86 296 304 2189 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1540 8898 _m
(I)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(I)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2189 _m
_sp 900 2189 900 2279 897 2279 3 _pl _pf _np _s _s 600 2276 _m
_sp 900 2276 900 2279 600 2279 3 _pl _pf _np _s _s 600 2189 _m
_sp 603 2189 603 2279 600 2279 3 _pl _pf _np 
_s 0 g 86 292 604 2189 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2738 8898 _m
(i)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(i)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2186 _m
_sp 600 2186 600 2189 300 2189 3 _pl _pf _np _s _s 300 2099 _m
_sp 303 2099 303 2189 300 2189 3 _pl _pf _np 
_s 0 g 86 296 304 2099 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1518 8538 _m
(J)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(J)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2099 _m
_sp 900 2099 900 2189 897 2189 3 _pl _pf _np _s _s 600 2186 _m
_sp 900 2186 900 2189 600 2189 3 _pl _pf _np _s _s 600 2099 _m
_sp 603 2099 603 2189 600 2189 3 _pl _pf _np 
_s 0 g 86 292 604 2099 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2738 8538 _m
(j)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(j)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2096 _m
_sp 600 2096 600 2099 300 2099 3 _pl _pf _np _s _s 300 2009 _m
_sp 303 2009 303 2099 300 2099 3 _pl _pf _np 
_s 0 g 86 296 304 2009 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1501 8178 _m
(K)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(K)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 897 2009 _m
_sp 900 2009 900 2099 897 2099 3 _pl _pf _np _s _s 600 2096 _m
_sp 900 2096 900 2099 600 2099 3 _pl _pf _np _s _s 600 2009 _m
_sp 603 2009 603 2099 600 2099 3 _pl _pf _np 
_s 0 g 86 292 604 2009 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 2710 8178 _m
(k)_S 120 _t
(-)_S 120 _t
/Symbol 600 _ff
(k)_S /HelveticaR 600 _ff
gsave 4 4 scale 16 _sr _s 
_s [] 0 _d 2 _lc 0 g _s 300 2006 _m
_sp 600 2006 600 2009 300 2009 3 _pl _pf _np _s _s 300 1919 _m
_sp 303 1919 303 2009 300 2009 3 _pl _pf _np 
_s 0 g 86 296 304 1919 _cw 

_s 0 g 0 0 0 0 _cw 
_s grestore 1512 7818 _m
(L)_S 120 _t