# | 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 |