118 |
|
*/ |
119 |
|
/* add source width if flat */ |
120 |
|
if (np->specfl & SP_FLAT) |
121 |
< |
au2 = av2 = omega * (0.25/PI); |
121 |
> |
au2 = av2 = (1. - dstrsrc) * omega * (0.25/PI); |
122 |
|
else |
123 |
|
au2 = av2 = 0.0; |
124 |
|
au2 += np->u_alpha*np->u_alpha; |
324 |
|
if (normalize(np->v) == 0.0) { |
325 |
|
if (fabs(np->u_alpha - np->v_alpha) > 0.001) |
326 |
|
objerror(np->mp, WARNING, "illegal orientation vector"); |
327 |
< |
getperpendicular(np->u, np->pnorm, 1); /* punting */ |
327 |
> |
getperpendicular(np->u, np->pnorm, 0); /* punting */ |
328 |
|
fcross(np->v, np->pnorm, np->u); |
329 |
|
np->u_alpha = np->v_alpha = sqrt( 0.5 * |
330 |
|
(np->u_alpha*np->u_alpha + np->v_alpha*np->v_alpha) ); |