725 |
|
const double max_d = 1.0/(minarad*ambacc + 0.001); |
726 |
|
const double ang_res = 0.5*PI/(hp->ns-1); |
727 |
|
const double ang_step = ang_res/((int)(16/PI*ang_res) + (1+FTINY)); |
728 |
+ |
double avg_d = 0; |
729 |
|
uint32 flgs = 0; |
730 |
|
int i, j; |
731 |
< |
/* circle around perimeter */ |
731 |
> |
/* check distances above us */ |
732 |
> |
for (i = hp->ns*3/4; i-- > hp->ns>>2; ) |
733 |
> |
for (j = hp->ns*3/4; j-- > hp->ns>>2; ) |
734 |
> |
avg_d += ambsam(hp,i,j).d; |
735 |
> |
avg_d *= 4.0/(hp->ns*hp->ns); |
736 |
> |
if (avg_d >= max_d) /* too close to corral? */ |
737 |
> |
return(0); |
738 |
> |
/* else circle around perimeter */ |
739 |
|
for (i = 0; i < hp->ns; i++) |
740 |
|
for (j = 0; j < hp->ns; j += !i|(i==hp->ns-1) ? 1 : hp->ns-1) { |
741 |
|
AMBSAMP *ap = &ambsam(hp,i,j); |