| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | < | { SCCSid "$SunId$ LBL" } |
| 2 | < | |
| 1 | > | { RCSid: $Id$ } |
| 2 | { | |
| 3 | Coordinate computations for mkillum output. | |
| 4 | ||
| # | Line 15 | Line 14 | |
| 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)); | |
| 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 ); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |