summaryrefslogtreecommitdiff
path: root/info/examples/ltt/mfpic.pl
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");