diff options
Diffstat (limited to 'Build/source/texk/dvipsk/finclude.lpro')
-rw-r--r-- | Build/source/texk/dvipsk/finclude.lpro | 21 |
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 |