| # | Line 193 | Line 193 | print "\t\t\t<DeviceType>Integral</DeviceType>\n"; | |
|---|---|---|
| 193 | if ( $geout ) { | |
| 194 | print "\t\t\t<Geometry format=\"MGF\" unit=\"Meter\">\n"; | |
| 195 | printf "xf -t %.6f %.6f 0\n", -($dim[0]+$dim[1])/2, -($dim[2]+$dim[3])/2; | |
| 196 | < | system "cat $mgfscn"; |
| 196 | > | open(MGFSCN, "< $mgfscn"); |
| 197 | > | while (<MGFSCN>) { print $_; } |
| 198 | > | close MGFSCN; |
| 199 | print "xf\n"; | |
| 200 | print "\t\t\t</Geometry>\n"; | |
| 201 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |