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], |
83 |
|
$bcube[1]+$bcube[3]/2-$width/2*$vd[1], |
84 |
|
$bcube[2]+$bcube[3]/2-$width/2*$vd[2]); |
85 |
< |
push @vopts, ("-vh", $width, "-vh", $height); |
85 |
> |
push @vopts, ("-vh", $width, "-vv", $height); |
86 |
|
$vwset = `vwright @vopts V`; |
87 |
|
$sca = sqrt($nsamp/($width*$height)); |
88 |
|
my $xres; |
99 |
|
q{-e 'nOK=sq(Vdx*$5+Vdy*$6+Vdz*$7)-.999' } . |
100 |
|
"-if7 -of > $td/origins.flt"; |
101 |
|
$ntot = -s "$td/origins.flt"; |
102 |
< |
$ntot /= 3*4; |
102 |
> |
$ntot /= 3*4; # number of bytes per sample position |
103 |
|
if ($ntot == 0) { |
104 |
|
if ($nsamp < 200) { |
105 |
|
$sca = sqrt(200/($width*$height)); |