home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uni-stuttgart.de/pub/systems/acorn/
/
Acorn.tar
/
Acorn
/
riscos
/
tex-utils
/
tex-utils.spk
/
!dvips
/
finclude
/
lpro
next >
Wrap
Text File
|
1993-05-11
|
446b
|
21 lines
%!
% 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