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
|
