# # mfpic.pl [-r ] [-m ] # 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");