23 |
|
arg(19) - transmittance (blue) |
24 |
|
} |
25 |
|
{ Fresnel approximation } |
26 |
< |
fresne = exp(-6*abs(Rdot)) - exp(-6); |
26 |
> |
fresne = exp(-5.85*abs(Rdot)) - exp(-5.85); |
27 |
|
fresne_refl(r) = r + fresne*(1 - r); |
28 |
|
fresne_trans(t) = t*(1 - fresne); |
29 |
|
{ glass reflectance and transmittance } |
43 |
|
st_frit_b = frac_glass*glass_trans; |
44 |
|
|
45 |
|
{ low-E specular components } |
46 |
< |
sr_lowE_r = fresne_refl(if(clear_side, arg(11), arg(14))); |
47 |
< |
sr_lowE_g = fresne_refl(if(clear_side, arg(12), arg(15))); |
48 |
< |
sr_lowE_b = fresne_refl(if(clear_side, arg(13), arg(16))); |
49 |
< |
st_lowE_r = fresne_trans(arg(17)); |
50 |
< |
st_lowE_g = fresne_trans(arg(18)); |
51 |
< |
st_lowE_b = fresne_trans(arg(19)); |
46 |
> |
sr_clear_r = fresne_refl(if(clear_side, arg(11), arg(14))); |
47 |
> |
sr_clear_g = fresne_refl(if(clear_side, arg(12), arg(15))); |
48 |
> |
sr_clear_b = fresne_refl(if(clear_side, arg(13), arg(16))); |
49 |
> |
st_clear_r = fresne_trans(arg(17)); |
50 |
> |
st_clear_g = fresne_trans(arg(18)); |
51 |
> |
st_clear_b = fresne_trans(arg(19)); |