1 |
< |
{ SCCSid "$SunId$ LBL" } |
2 |
< |
|
1 |
> |
{ RCSid: $Id$ } |
2 |
|
{ |
3 |
|
Coordinate computations for mkillum output. |
4 |
|
|
14 |
|
il_azih - Azimuth (0 to 2*PI) for hemisphere |
15 |
|
} |
16 |
|
|
17 |
+ |
norm_rad(r) : if( r, r, r+2*PI ); |
18 |
+ |
|
19 |
|
il_alt = Dz; |
20 |
< |
il_azi = norm_rad(atan2(Dy, Dx)); |
20 |
> |
il_azi = norm_rad(Atan2(Dy, Dx)); |
21 |
|
|
22 |
|
il_alth = sq(-Dx*A7-Dy*A8-Dz*A9); |
23 |
< |
il_azih = norm_rad(atan2(-Dx*A4-Dy*A5-Dz*A6, -Dx*A1-Dy*A2-Dz*A3)); |
23 |
< |
|
24 |
< |
norm_rad(r) = if( r, r, r+2*PI ); |
23 |
> |
il_azih = norm_rad(Atan2(-Dx*A4-Dy*A5-Dz*A6, -Dx*A1-Dy*A2-Dz*A3)); |