# | Line 84 | Line 84 | if ($#ARGV >= 0) { | |
---|---|---|
84 | $bcube[2]+$bcube[3]/2-$width/2*$vd[2]); | |
85 | push @vopts, ("-vh", $width, "-vh", $height); | |
86 | $vwset = `vwright @vopts V`; | |
87 | + | $sca = sqrt($nsamp/($width*$height)); |
88 | my $xres; | |
89 | my $yres; | |
90 | my $ntot = 0; | |
# | Line 100 | Line 101 | if ($#ARGV >= 0) { | |
101 | $ntot = -s "$td/origins.flt"; | |
102 | $ntot /= 3*4; | |
103 | if ($ntot == 0) { | |
104 | < | if ($sca < sqrt(199/($width*$height))) { |
104 | > | if ($nsamp < 200) { |
105 | $sca = sqrt(200/($width*$height)); | |
106 | redo; | |
107 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |