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
|