diff options
Diffstat (limited to 'dviware/psprint/vms/fontlist.ps')
-rw-r--r-- | dviware/psprint/vms/fontlist.ps | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/dviware/psprint/vms/fontlist.ps b/dviware/psprint/vms/fontlist.ps new file mode 100644 index 0000000000..5175bdf4e4 --- /dev/null +++ b/dviware/psprint/vms/fontlist.ps @@ -0,0 +1,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 |