174 |
|
for (i = 0; i < 3; i++) |
175 |
|
src->ss[SU][i] = src->ss[SV][i] = src->ss[SW][i] = 0.0; |
176 |
|
for (i = 0; i < 3; i++) |
177 |
< |
src->ss[i][i] = .886227 * so->oargs.farg[3]; |
177 |
> |
src->ss[i][i] = .7236 * so->oargs.farg[3]; |
178 |
|
} |
179 |
|
|
180 |
|
|
212 |
|
co = getcone(so, 0); |
213 |
|
if (CO_R0(co) > .2*co->al) /* heuristic constraint */ |
214 |
|
objerror(so, WARNING, "source aspect too small"); |
215 |
+ |
src->sflags |= SCYL; |
216 |
|
for (i = 0; i < 3; i++) |
217 |
|
src->sloc[i] = .5 * (CO_P1(co)[i] + CO_P0(co)[i]); |
218 |
< |
src->srad = co->al; |
218 |
> |
src->srad = .5*co->al; |
219 |
|
src->ss2 = 2.*CO_R0(co)*co->al; |
220 |
|
/* set sampling vectors */ |
221 |
|
for (i = 0; i < 3; i++) |
228 |
|
fcross(src->ss[SW], src->ss[SV], co->ad); |
229 |
|
normalize(src->ss[SW]); |
230 |
|
for (i = 0; i < 3; i++) |
231 |
< |
src->ss[SW][i] *= .886227 * CO_R0(co); |
231 |
> |
src->ss[SW][i] *= .8559 * CO_R0(co); |
232 |
|
fcross(src->ss[SV], src->ss[SW], co->ad); |
233 |
|
} |
234 |
|
|