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