blob: 1440d8bc8164df460e2c4817b48d57ac0be842e6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
%!
% fontlist.ps
% Send this file to a PostScript device to list
% the names of all of the resident fonts.
% [13-Dec-1994]
/inch { 72 mul } def
/PointSize 10 def
/ColumnWidth 3 inch def
/Courier findfont PointSize scalefont setfont
/n 0 def
/newcolumn
{
/x x ColumnWidth add def
x y moveto
8 inch x gt { showpage newpage } if
} def
/newpage
{
/x 1 inch def
/y 10 inch def
x y moveto
} def
/nstr 10 string def
/scratch 256 string def
newpage
(*)
{
/n n 1 add def
gsave
n nstr cvs show
(: ) show
show
grestore
0 PointSize -1.2 mul rmoveto
currentpoint exch pop 1 inch lt
{
newcolumn
} if
}
scratch /Font resourceforall
showpage
|