116 |
|
VCOPY(myray.rdir, sdir); |
117 |
|
myray.rmax = 0.; |
118 |
|
ray_trace(&myray); |
119 |
< |
setcolr(leaf->val, colval(myray.rcol,RED), |
120 |
< |
colval(myray.rcol,GRN), |
121 |
< |
colval(myray.rcol,BLU)); |
119 |
> |
scolor_colr(leaf->val, myray.rcol); |
120 |
|
} |
121 |
|
|
122 |
|
/* Initialize a branch node contained in the given spherical triangle */ |
185 |
|
|
186 |
|
/* Sample sphere using triangular geodesic mesh */ |
187 |
|
TRITREE * |
188 |
< |
geosample(int nsamps) |
188 |
> |
geosample(long nsamps) |
189 |
|
{ |
190 |
|
int depth; |
191 |
|
TRITREE *tree; |
194 |
|
/* figure out depth */ |
195 |
|
if ((nsamps -= 4) < 0) |
196 |
|
error(USER, "minimum number of samples is 4"); |
197 |
< |
nsamps = nsamps*3/NTRUNKBR; /* round up */ |
197 |
> |
nsamps = nsamps*(NTRUNKBR-1)/NTRUNKBR; /* round up */ |
198 |
|
for (depth = 0; nsamps > 1; depth++) |
199 |
|
nsamps >>= 2; |
200 |
|
/* make base tetrahedron */ |