ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/genklemsamp.pl
(Generate patch)

Comparing ray/src/util/genklemsamp.pl (file contents):
Revision 2.5 by greg, Fri Jun 19 18:42:06 2009 UTC vs.
Revision 2.6 by greg, Thu Nov 5 06:30:57 2009 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines