36 |
|
* [ext_r ext_g ext_b [albedo [gecc]]] |
37 |
|
* |
38 |
|
* The primaries indicate medium extinction per unit length (absorption |
39 |
< |
* plus scattering). The albedo is the ratio of scattering to extinction, |
39 |
> |
* plus scattering), which is added to the global extinction coefficient, set |
40 |
> |
* by the -me option. The albedo is the ratio of scattering to extinction, |
41 |
|
* and is set globally by the -ma option (salbedo) and overridden here. |
42 |
|
* The Heyney-Greenstein eccentricity parameter (-mg seccg) indicates how much |
43 |
|
* scattering favors the forward direction. A value of 0 means isotropic |
189 |
|
} |
190 |
|
p.slights[0] = i; |
191 |
|
} |
192 |
< |
re = colval(r->cext,RED) - colval(mext,RED); |
193 |
< |
ge = colval(r->cext,GRN) - colval(mext,GRN); |
194 |
< |
be = colval(r->cext,BLU) - colval(mext,BLU); |
195 |
< |
setcolor(p.cext, re<0. ? 0. : re, |
196 |
< |
ge<0. ? 0. : ge, |
197 |
< |
be<0. ? 0. : be); |
192 |
> |
if ((re = colval(r->cext,RED) - colval(mext,RED)) < |
193 |
> |
colval(cextinction,RED)) |
194 |
> |
re = colval(cextinction,RED); |
195 |
> |
if ((ge = colval(r->cext,GRN) - colval(mext,GRN)) < |
196 |
> |
colval(cextinction,GRN)) |
197 |
> |
ge = colval(cextinction,GRN); |
198 |
> |
if ((be = colval(r->cext,BLU) - colval(mext,BLU)) < |
199 |
> |
colval(cextinction,BLU)) |
200 |
> |
be = colval(cextinction,BLU); |
201 |
> |
setcolor(p.cext, re, ge, be); |
202 |
|
if (m->oargs.nfargs > 3) |
203 |
|
p.albedo = salbedo; |
204 |
|
if (m->oargs.nfargs > 4) |