| 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 $_; } |
