23 |
|
|
24 |
|
#define SURF_EPS 0.0005 /* surface testing epsilon */ |
25 |
|
|
26 |
– |
char *progname; /* global argv[0] */ |
27 |
– |
|
26 |
|
int nsamps = NSAMPLES; /* number of samples to use */ |
27 |
|
|
28 |
|
char temp_octree[128]; /* temporary octree */ |
532 |
|
dv[2]*ps->sdir[2][j] ; |
533 |
|
} |
534 |
|
/* send to our process */ |
535 |
< |
writebuf(ps->wd, (char *)samp, sizeof(float)*6*ns); |
535 |
> |
writebuf(ps->wd, samp, sizeof(float)*6*ns); |
536 |
|
free(samp); /* that's it! */ |
537 |
|
return(1); |
538 |
|
} |
603 |
|
else /* comp. for subsurface area */ |
604 |
|
adj_factor /= adj_factor - zp->area_redu[n]; |
605 |
|
/* read results */ |
606 |
< |
if (readbuf(pd->r, (char *)uvfa, sizeof(float)*3*zp->ntotal) != |
606 |
> |
if (readbuf(pd->r, uvfa, sizeof(float)*3*zp->ntotal) != |
607 |
|
sizeof(float)*3*zp->ntotal) { |
608 |
|
fputs(progname, stderr); |
609 |
|
fputs(": read error from rcontrib process\n", stderr); |
653 |
|
for (zptr = zone_list; zptr != NULL; zptr = zptr->next) { |
654 |
|
SUBPROC rcproc; |
655 |
|
/* start rcontrib process */ |
656 |
+ |
rcproc = sp_inactive; |
657 |
|
if (!start_rcontrib(&rcproc, zptr)) |
658 |
|
return(0); |
659 |
|
/* compute+add view factors */ |
678 |
|
IDF_OBJECT *pptr; |
679 |
|
int i; |
680 |
|
|
681 |
< |
progname = *argv++; argc--; /* get options if any */ |
681 |
> |
fixargv0(*argv++); argc--; /* get options if any */ |
682 |
|
while (argc > 1 && argv[0][0] == '-') |
683 |
|
switch (argv[0][1]) { |
684 |
|
case 'c': /* elide comments */ |