diff options
| author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
| commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
| tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/dvipsk/finclude.lpro | |
| parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) | |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/finclude.lpro')
| -rw-r--r-- | Build/source/texk/dvipsk/finclude.lpro | 20 |
1 files changed, 20 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..783ebc7549c --- /dev/null +++ b/Build/source/texk/dvipsk/finclude.lpro @@ -0,0 +1,20 @@ +%! +% 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 |