| 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)); |
