| 1 |
< |
/* Copyright (c) 1991 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1998 Silicon Graphics, Inc. */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
< |
static char SCCSid[] = "$SunId$ LBL"; |
| 4 |
> |
static char SCCSid[] = "$SunId$ SGI"; |
| 5 |
|
#endif |
| 6 |
|
|
| 7 |
|
/* |
| 73 |
|
multisamp(spt, 2, urand(ilhash(hlist,3)+dp->n)); |
| 74 |
|
zd = sqrt((dp->t + spt[0])/h->nt); |
| 75 |
|
phi = 2.0*PI * (dp->p + spt[1])/h->np; |
| 76 |
< |
xd = cos(phi) * zd; |
| 77 |
< |
yd = sin(phi) * zd; |
| 76 |
> |
xd = tcos(phi) * zd; |
| 77 |
> |
yd = tsin(phi) * zd; |
| 78 |
|
zd = sqrt(1.0 - zd*zd); |
| 79 |
|
for (i = 0; i < 3; i++) |
| 80 |
|
ar.rdir[i] = xd*h->ux[i] + |
| 358 |
|
} |
| 359 |
|
mag0 *= 2.0*PI / hp->np; |
| 360 |
|
phi = 2.0*PI * (double)j/hp->np; |
| 361 |
< |
cosp = cos(phi); sinp = sin(phi); |
| 361 |
> |
cosp = tcos(phi); sinp = tsin(phi); |
| 362 |
|
xd += mag0*cosp - mag1*sinp; |
| 363 |
|
yd += mag0*sinp + mag1*cosp; |
| 364 |
|
} |
| 392 |
|
dp += hp->np; |
| 393 |
|
} |
| 394 |
|
phi = 2.0*PI * (j+.5)/hp->np + PI/2.0; |
| 395 |
< |
xd += mag * cos(phi); |
| 396 |
< |
yd += mag * sin(phi); |
| 395 |
> |
xd += mag * tcos(phi); |
| 396 |
> |
yd += mag * tsin(phi); |
| 397 |
|
} |
| 398 |
|
for (i = 0; i < 3; i++) |
| 399 |
|
gv[i] = (xd*hp->ux[i] + yd*hp->uy[i])/(hp->nt*hp->np); |
