22 |
|
il_alt = Dz; |
23 |
|
il_azi = norm_rad(atan2(Dy, Dx)); |
24 |
|
|
25 |
< |
s_val(v, vN, vS) = noneg(if( il_alt-A7, |
25 |
> |
s_val(v, vN, vS) = if( il_alt-A7, |
26 |
|
linterp((il_alt-A7)/(1-A7), v, vN), |
27 |
|
if ( -il_alt-A7, |
28 |
|
linterp((-il_alt-A7)/(1-A7), v, vS), |
29 |
|
v ), |
30 |
< |
v )); |
30 |
> |
v ); |
31 |
|
{ sphere values } |
32 |
|
s_red(r,g,b) = s_val(r, A1, A4); |
33 |
|
s_grn(r,g,b) = s_val(g, A2, A5); |
39 |
|
il_azih = norm_rad(atan2(-Dx*arg(8)-Dy*arg(9)-Dz*arg(10), |
40 |
|
-Dx*arg(5)-Dy*arg(6)-Dz*arg(7))); |
41 |
|
|
42 |
< |
h_val(v, vN) = noneg(if( il_alth-A4, linterp((il_alth-A4)/(1-A4), v, vN), v )); |
42 |
> |
h_val(v, vN) = if( il_alth-A4, linterp((il_alth-A4)/(1-A4), v, vN), v ); |
43 |
|
{ hemisphere values } |
44 |
|
h_red(r,g,b) = h_val(r, A1); |
45 |
|
h_grn(r,g,b) = h_val(g, A2); |