summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/finclude.lpro
blob: 664df3f7006738fa9bdfc0c4f4f9be914f19a6a5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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