| 50 |
|
int argc; |
| 51 |
|
char **argv; |
| 52 |
|
{ |
| 53 |
< |
char *getenv(); |
| 54 |
< |
double atof(); |
| 53 |
> |
extern char *getenv(); |
| 54 |
|
FVECT bbmin, bbmax; |
| 55 |
|
char *infile = NULL; |
| 56 |
|
int outflags = IO_ALL; |
| 211 |
|
CUBE cukid; |
| 212 |
|
OCTREE ot; |
| 213 |
|
OBJECT oset[MAXSET+1]; |
| 214 |
< |
unsigned char inflg[MAXSET/8], volflg[MAXSET/8]; |
| 214 |
> |
unsigned char inflg[(MAXSET+7)/8], volflg[(MAXSET+7)/8]; |
| 215 |
|
int in; |
| 216 |
|
register int i, j; |
| 217 |
|
|
| 248 |
|
if (in==O_IN || oset[0] < objlim || cukid.cusize < mincusize) { |
| 249 |
|
/* add to set */ |
| 250 |
|
if (oset[0] >= MAXSET) { |
| 251 |
< |
sprintf(errmsg, |
| 253 |
< |
"set overflow in addobject (%s)", |
| 251 |
> |
sprintf(errmsg, "set overflow in addobject (%s)", |
| 252 |
|
objptr(obj)->oname); |
| 253 |
|
error(INTERNAL, errmsg); |
| 254 |
|
} |
| 267 |
|
if (isvolume(objptr(oset[j])->otype)) { |
| 268 |
|
setbit(volflg,j-1); |
| 269 |
|
if ((*ofun[objptr(oset[j])->otype].funp) |
| 270 |
< |
(objptr(oset[j]),cu) == O_IN) |
| 270 |
> |
(objptr(oset[j]), cu) == O_IN) |
| 271 |
|
setbit(inflg,j-1); |
| 272 |
|
} |
| 273 |
|
/* assign subcubes */ |
| 284 |
|
addobject(&cukid, oset[j]); |
| 285 |
|
/* then this object */ |
| 286 |
|
addobject(&cukid, obj); |
| 287 |
< |
/* partial volumes */ |
| 287 |
> |
/* then partial volumes */ |
| 288 |
|
for (j = 1; j <= oset[0]; j++) |
| 289 |
|
if (tstbit(volflg,j-1) && |
| 290 |
|
!tstbit(inflg,j-1)) |
| 291 |
|
addobject(&cukid, oset[j]); |
| 292 |
< |
/* full volumes */ |
| 292 |
> |
/* full volumes last */ |
| 293 |
|
for (j = 1; j <= oset[0]; j++) |
| 294 |
|
if (tstbit(inflg,j-1)) |
| 295 |
|
addobject(&cukid, oset[j]); |