27 |
|
* 3 red grn blu |
28 |
|
* |
29 |
|
* The color is used for the transmission at normal incidence. |
30 |
< |
* To compute transmission (tn) from transmissivity (Tn) use: |
30 |
> |
* To compute transmissivity (tn) from transmittance (Tn) use: |
31 |
|
* |
32 |
|
* tn = (sqrt(.8402528435+.0072522239*Tn*Tn)-.9166530661)/.0036261119/Tn |
33 |
|
* |
34 |
< |
* The transmission of standard 88% transmissivity glass is 0.96. |
34 |
> |
* The transmissivity of standard 88% transmittance glass is 0.96. |
35 |
|
* A refractive index other than the default can be used by giving |
36 |
|
* it as the fourth real argument. The above formula no longer applies. |
37 |
|
* |
68 |
|
if (r->rod < 0.0) /* reorient if necessary */ |
69 |
|
flipsurface(r); |
70 |
|
transtest = 0; |
71 |
+ |
transdist = r->rot; |
72 |
|
/* get modifiers */ |
73 |
|
raytexture(r, m->omod); |
74 |
|
pdot = raynormal(pnorm, r); |
114 |
|
} |
115 |
|
|
116 |
|
if (r->crtype & SHADOW) /* skip reflected ray */ |
117 |
< |
return; |
117 |
> |
return(1); |
118 |
|
/* compute reflectance */ |
119 |
|
for (i = 0; i < 3; i++) { |
120 |
|
d = colval(mcolor, i); |
132 |
|
} |
133 |
|
if (transtest > bright(r->rcol)) |
134 |
|
r->rt = transdist; |
135 |
+ |
return(1); |
136 |
|
} |