256 |
|
if (normalize(sp->v) == 0.0) { /* orientation vector==normal? */ |
257 |
|
if (fabs(sp->u_alpha - sp->v_alpha) > 0.001) |
258 |
|
objerror(wp->mtp, WARNING, "bad orientation vector"); |
259 |
< |
getperpendicular(sp->u, sp->mo.pnorm, 1); /* punting */ |
259 |
> |
getperpendicular(sp->u, sp->mo.pnorm, 0); /* punting */ |
260 |
|
fcross(sp->v, sp->mo.pnorm, sp->u); |
261 |
|
sp->u_alpha = sp->v_alpha = sqrt( 0.5 * |
262 |
|
(sp->u_alpha*sp->u_alpha + sp->v_alpha*sp->v_alpha) ); |
452 |
|
*/ |
453 |
|
/* add source width if flat */ |
454 |
|
if (wp->specfl & SP_FLAT) |
455 |
< |
au2 = av2 = omega * (0.25/PI); |
455 |
> |
au2 = av2 = (1. - dstrsrc) * omega * (0.25/PI); |
456 |
|
else |
457 |
|
au2 = av2 = 0.0; |
458 |
|
au2 += wp->rs.u_alpha*wp->rs.u_alpha; |