13 |
|
} |
14 |
|
{ Useful factors and functions } |
15 |
|
DEGREE : PI/180; |
16 |
< |
Asin(x) : if(x-1, PI/2, if(-1-x, -PI/2, asin(x))); |
17 |
< |
posangle(a) : if(-a, a + 2*PI, a); |
16 |
> |
Asin(x) : if(x-1, PI/2, if(-1-x, -PI/2, asin(x))) / DEGREE; |
17 |
> |
posangle(a) : if(-a, a + 2*PI, a) / DEGREE; |
18 |
|
Atan2(y,x) : posangle(atan2(y,x)); |
19 |
|
|
20 |
|
{ Default to Tregenza sky } |
28 |
|
inc_ry = -Dx*Ux-Dy*Uy-Dz*Uz - inc_dz*(Nx*Ux+Ny*Uy+Nz*Uz); |
29 |
|
|
30 |
|
r_alt = Asin(inc_dz)/DEGREE; |
31 |
< |
r_azi = Atan2(inc_rx,inc_ry)/DEGREE; |
31 |
> |
r_azi = Atan2(inc_rx,inc_ry); |
32 |
|
|
33 |
|
alpha = 90/(MF*7 + .5); { Separation between rows in degrees } |
34 |
|
{ Number of patches per row } |