# | Line 54 | Line 54 | if ( $mgfin ) { | |
---|---|---|
54 | system "rad2mgf $radscn > $mgfscn" if ( $geout ); | |
55 | } | |
56 | if ($#dim != 5) { | |
57 | < | @dim = split /\s+/, `getbbox -h $radscn`; |
58 | < | shift @dim; |
57 | > | @dim = split ' ', `getbbox -h $radscn`; |
58 | } | |
59 | print STDERR "Warning: Device extends into room\n" if ($dim[5] > 1e-5); | |
60 | # Add receiver surface (rectangle) |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |