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