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)); |