32 |
|
s_red(r,g,b) = s_val(r, A1, A4); |
33 |
|
s_grn(r,g,b) = s_val(g, A2, A5); |
34 |
|
s_blu(r,g,b) = s_val(b, A3, A6); |
35 |
< |
s_gry(r,g,b) = s_val(grey(r,g,b), grey(A1,A2,A3), grey(A4,A5,A6)); |
35 |
> |
s_gry(v) = s_val(v, grey(A1,A2,A3), grey(A4,A5,A6)); |
36 |
|
|
37 |
|
{ hemisphere coordinates } |
38 |
|
il_alth = sq(-Dx*arg(11)-Dy*arg(12)-Dz*arg(13)); |
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) = 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), noneg(v) ); |
43 |
|
{ hemisphere values } |
44 |
|
h_red(r,g,b) = h_val(r, A1); |
45 |
|
h_grn(r,g,b) = h_val(g, A2); |
46 |
|
h_blu(r,g,b) = h_val(b, A3); |
47 |
< |
h_gry(r,g,b) = h_val(grey(r,g,b), grey(A1,A2,A3)); |
47 |
> |
h_gry(v) = h_val(v, grey(A1,A2,A3)); |