32 |
|
$srcmod = $_; |
33 |
|
$lightline = $#skydesc; |
34 |
|
} elsif (defined($srcmod) && /^($srcmod)\s+source\s/) { |
35 |
< |
@sunval = split(/\s+/, $skydesc[$lightline + 3]); |
35 |
> |
@sunval = split(' ', $skydesc[$lightline + 3]); |
36 |
|
shift @sunval; |
37 |
|
$sunline = $#skydesc; |
38 |
|
} elsif (/\sskyfunc\s*$/) { |
43 |
|
# Strip out the solar source if present |
44 |
|
my @sundir; |
45 |
|
if (defined $sunline) { |
46 |
< |
@sundir = split(/\s+/, $skydesc[$sunline + 3]); |
46 |
> |
@sundir = split(' ', $skydesc[$sunline + 3]); |
47 |
|
shift @sundir; |
48 |
|
undef @sundir if ($sundir[2] <= 0); |
49 |
|
splice(@skydesc, $sunline, 5); |
102 |
|
my (@ang, @dom, @ndx); |
103 |
|
my $wtot = 0; |
104 |
|
for my $i (0..2) { |
105 |
< |
($ang[$i], $dom[$i], $ndx[$i]) = split(/\s+/, $bestdir[$i]); |
105 |
> |
($ang[$i], $dom[$i], $ndx[$i]) = split(' ', $bestdir[$i]); |
106 |
|
$wtot += 1./($ang[$i]+.02); |
107 |
|
} |
108 |
|
for my $i (0..2) { |
109 |
|
my $wt = 1./($ang[$i]+.02)/$wtot * $somega / $dom[$i]; |
110 |
< |
my @scolor = split(/\s+/, $tregval[$ndx[$i]]); |
110 |
> |
my @scolor = split(' ', $tregval[$ndx[$i]]); |
111 |
|
for my $j (0..2) { $scolor[$j] += $wt * $sunval[$j]; } |
112 |
|
$tregval[$ndx[$i]] = "$scolor[0]\t$scolor[1]\t$scolor[2]\n"; |
113 |
|
} |