summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/fontlist.ps
blob: 5175bdf4e4fd9baaff0e4420d19a448f75244e30 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
% Produces a list of all known fonts currently available in printer.

/showline { gsave show grestore 0 -12 rmoveto } def
/Times-Roman findfont 12 scalefont setfont
/s40 40 string def

36 700 moveto
FontDirectory {pop s40 cvs showline} forall

( ) showline
(Total memory: ) showline
vmstatus s40 cvs showline
(Memory used: ) showline
s40 cvs showline
pop
( Free memory: ) showline
vmstatus exch sub s40 cvs showline
pop

showpage