blob: d07c658767e10943439e465a386a20f1acc6160b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#
# mfpic.pl [-r <res>] [-m <mode>] <file>
#
use Getopt::Long;
GetOptions("r=i", \$res, "m=s", \$mode);
$file = shift;
$res = 600 unless ($res>0);
$mode = "ljfour" unless ($mode);
system("mf \\mode=$mode; input $file");
system("gftopk $file.${res}gf $file.pk");
system("copy $file.pk ".
"c:\\texmf\\fonts\\pk\\$mode".
"\\public\\misc\\dpi$res");
|
