blob: a13412eea2ff88a27220d57ee1708149f13e7494 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
% Type PSPRINT/DEV=PS40/NOTIFY <this file>
% to see (on terminal) a list of all known PrintServer fonts, and memory usage.
/showline { print (\n) print } 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
|