home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
d
/
dvips549.zip
/
DVIPS
/
FINCLUDE.LPR
< prev
next >
Wrap
Text File
|
1992-10-14
|
439b
|
20 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
get cvx exec
show
grestore
}bind def