summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/finclude.lpro
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipsk/finclude.lpro')
-rw-r--r--Build/source/texk/dvipsk/finclude.lpro21
1 files changed, 21 insertions, 0 deletions
diff --git a/Build/source/texk/dvipsk/finclude.lpro b/Build/source/texk/dvipsk/finclude.lpro
new file mode 100644
index 00000000000..664df3f7006
--- /dev/null
+++ b/Build/source/texk/dvipsk/finclude.lpro
@@ -0,0 +1,21 @@
+%!
+% finclude.lpro - public domain.
+% Define tfm-name to be a dictionary of included fonts indexed by size:
+% /tfm-name scaled-size1 /font-select1 ... scsize_k /fselect_k k fstore -
+/fstore
+{
+ dup dict exch
+ {dup 4 2 roll put} repeat
+ def
+} bind def
+
+/fshow % (text to show) tfm_name scaled-size fshow -
+{
+ gsave
+ 72 TeXDict /Resolution get div
+ -72 TeXDict /VResolution get div scale
+ 1 DVImag div dup scale
+ get cvx exec
+ show
+ grestore
+}bind def