| # | Line 76 | Line 76 | if ($#ARGV >= 0) { | |
|---|---|---|
| 76 | push @vd, $_; | |
| 77 | $_ = $vwset; s/^.*Vdz://; s/;.*$//; | |
| 78 | push @vd, $_; | |
| 79 | < | my @bcube = split /\s+/, `getinfo -d < $td/surf.oct`; |
| 79 | > | my @bcube = split ' ', `getinfo -d < $td/surf.oct`; |
| 80 | $width = $bcube[3]*sqrt(3); | |
| 81 | $height = $width; | |
| 82 | push @vopts, ("-vp", $bcube[0]+$bcube[3]/2-$width/2*$vd[0], | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |