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]); |