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 |
|
* |
96 |
|
for (i = 0; i < 3; i++) /* perturb direction */ |
97 |
|
p.rdir[i] = r->rdir[i] + |
98 |
|
2.*(1.-rindex)*r->pert[i]; |
99 |
< |
normalize(p.rdir); |
99 |
> |
if (normalize(p.rdir) == 0.0) { |
100 |
> |
objerror(m, WARNING, "bad perturbation"); |
101 |
> |
VCOPY(p.rdir, r->rdir); |
102 |
> |
} |
103 |
|
} else { |
104 |
|
VCOPY(p.rdir, r->rdir); |
105 |
|
transtest = 2; |