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

Comparing ray/src/util/genskyvec.pl (file contents):
Revision 2.3 by greg, Wed Dec 9 21:30:48 2009 UTC vs.
Revision 2.4 by greg, Sat Jan 23 22:30:29 2010 UTC

# Line 109 | Line 109 | if (@sundir) {
109                  my $wt = 1./($ang[$i]+.02)/$wtot * $somega / $dom[$i];
110                  my @scolor = split(/\s+/, $tregval[$ndx[$i]]);
111                  for my $j (0..2) { $scolor[$j] += $wt * $sunval[$j]; }
112 <                $tregval[$ndx[$i]] = "@scolor\n";
112 >                $tregval[$ndx[$i]] = "$scolor[0]\t$scolor[1]\t$scolor[2]\n";
113          }
114   }
115   # Output our final vector

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines