| # | 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 | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |