equal
deleted
inserted
replaced
36 $fn = $name.$extn; |
36 $fn = $name.$extn; |
37 push(@rad, "$td/$fn.orig"); |
37 push(@rad, "$td/$fn.orig"); |
38 push(@prllmgf, "$td/$fn.orig.mgf"); |
38 push(@prllmgf, "$td/$fn.orig.mgf"); |
39 push(@oblqmgf, "$td/$fn.oblq.mgf"); |
39 push(@oblqmgf, "$td/$fn.oblq.mgf"); |
40 |
40 |
41 # Expand in-line commands such as !genbox |
41 # Make sure in-line commands such as !genbox are expanded |
42 system "xform $_ > $td/$fn.orig"; |
42 system "xform -c $_ > $td/$fn.orig"; |
43 system "rad2mgf $td/$fn.orig > $td/$fn.orig.mgf"; |
43 system "rad2mgf $td/$fn.orig > $td/$fn.orig.mgf"; |
44 |
44 |
45 open (FH, ">$td/$fn.oblq.mgf"); |
45 open (FH, ">$td/$fn.oblq.mgf"); |
46 print FH "i $fn.orig.mgf $oblqxf > $td/$fn.oblq.mgf\n"; |
46 print FH "i $fn.orig.mgf $oblqxf > $td/$fn.oblq.mgf\n"; |
47 close (FH); |
47 close (FH); |