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