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); |