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