summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/fontlist.ps
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/psprint/vms/fontlist.ps')
-rw-r--r--dviware/psprint/vms/fontlist.ps20
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