| # | Line 93 | Line 93 | if (@sundir) { | |
|---|---|---|
| 93 | for my $i (0..2) { | |
| 94 | my $ti = 0; | |
| 95 | while ($ndx[$i] > $tindex[$ti]) { $ti++ } | |
| 96 | < | my $wt = $wtot/($ang[$i]+.02) * $somega / $tomega[$ti]; |
| 96 | > | my $wt = 1/($ang[$i]+.02)/$wtot * $somega / $tomega[$ti]; |
| 97 | my @scolor = split(/\s+/, $tregval[$ndx[$i]]); | |
| 98 | for my $j (0..2) { $scolor[$j] += $wt * $sunval[$j]; } | |
| 99 | $tregval[$ndx[$i]] = "@scolor\n"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |