24 |
|
my $doforw = 0; |
25 |
|
my $doback = 1; |
26 |
|
my $pctcull = 90; |
27 |
< |
my $gunit = "Meter"; |
27 |
> |
my $gunit = "meter"; |
28 |
|
my @dim; |
29 |
|
# Get options |
30 |
|
while ($#ARGV >= 0) { |
123 |
|
# Output MGF description if requested |
124 |
|
if ( $geout ) { |
125 |
|
print "\t<Geometry format=\"MGF\">\n"; |
126 |
< |
print "\t\t<MGFblock unit=\"$gunit\">\n"; |
126 |
> |
print "<MGFblock unit=\"$gunit\">\n"; |
127 |
|
printf "xf -t %.6f %.6f 0\n", -($dim[0]+$dim[1])/2, -($dim[2]+$dim[3])/2; |
128 |
|
open(MGFSCN, "< $mgfscn"); |
129 |
|
while (<MGFSCN>) { print $_; } |