1 |
– |
/* Copyright (c) 1998 Silicon Graphics, Inc. */ |
2 |
– |
|
1 |
|
#ifndef lint |
2 |
< |
static char SCCSid[] = "$SunId$ SGI"; |
2 |
> |
static const char RCSid[] = "$Id$"; |
3 |
|
#endif |
6 |
– |
|
4 |
|
/* |
5 |
|
* Routines for loading and displaying Radiance objects in rholo with GLX. |
6 |
|
*/ |
10 |
|
#include "rhdisp.h" |
11 |
|
#include "rhdriver.h" |
12 |
|
#include "rhdobj.h" |
13 |
+ |
#include "rtprocess.h" |
14 |
|
|
15 |
|
extern FILE *sstdout; /* user standard output */ |
16 |
|
|
51 |
|
struct dobject *next; /* next object in list */ |
52 |
|
char name[64]; /* object name */ |
53 |
|
FVECT center; /* orig. object center */ |
54 |
< |
FLOAT radius; /* orig. object radius */ |
54 |
> |
RREAL radius; /* orig. object radius */ |
55 |
|
int listid; /* GL display list identifier */ |
56 |
< |
int rtp[3]; /* associated rtrace process */ |
56 |
> |
int nlists; /* number of lists allocated */ |
57 |
> |
SUBPROC rtp; /* associated rtrace process */ |
58 |
|
DLIGHTS *ol; /* object lights */ |
59 |
|
FULLXF xfb; /* coordinate transform */ |
60 |
|
short drawcode; /* drawing code */ |
118 |
|
} |
119 |
|
dobjects = ohead.next; |
120 |
|
if (!foundlink) { |
121 |
< |
glDeleteLists(op->listid, 1); |
122 |
< |
close_process(op->rtp); |
121 |
> |
glDeleteLists(op->listid, op->nlists); |
122 |
> |
close_process(&(op->rtp)); |
123 |
|
} |
124 |
|
while (op->xfac) |
125 |
|
freestr(op->xfav[--op->xfac]); |
126 |
< |
free((char *)op); |
126 |
> |
free((void *)op); |
127 |
|
return(1); |
128 |
|
} |
129 |
|
|
298 |
|
/* avg. reflected brightness */ |
299 |
|
d = AVGREFL / (double)ncells; |
300 |
|
scalecolor(csum, d); |
301 |
< |
if (tmCvColors(&dlightsets->larb, TM_NOCHROM, csum, 1) != TM_E_OK) |
301 |
> |
if (tmCvColors(&dlightsets->larb, TM_NOCHROM, &csum, 1) != TM_E_OK) |
302 |
|
error(CONSISTENCY, "tone mapping problem in ssph_compute"); |
303 |
|
/* greedy light source clustering */ |
304 |
|
while (dlightsets->nl < MAXLIGHTS) { |
338 |
|
d = 1.0/ncells; |
339 |
|
scalecolor(dlightsets->lamb, d); |
340 |
|
done: /* clear sphere sample array */ |
341 |
< |
bzero((char *)ssamp, sizeof(ssamp)); |
341 |
> |
bzero((void *)ssamp, sizeof(ssamp)); |
342 |
|
return(ncells); |
343 |
|
} |
344 |
|
|
405 |
|
quit(0); |
406 |
|
if (!ssph_compute()) { /* compute light sources from sphere */ |
407 |
|
dlightsets = dl->next; |
408 |
< |
free((char *)dl); |
408 |
> |
free((void *)dl); |
409 |
|
return(0); |
410 |
|
} |
411 |
|
op->ol = dl; |
415 |
|
} |
416 |
|
|
417 |
|
|
418 |
< |
static int |
418 |
> |
static |
419 |
|
cmderror(cn, err) /* report command error */ |
420 |
|
int cn; |
421 |
|
char *err; |
422 |
|
{ |
423 |
|
sprintf(errmsg, "%s: %s", rhdcmd[cn], err); |
424 |
|
error(COMMAND, errmsg); |
426 |
– |
return(cn); |
425 |
|
} |
426 |
|
|
427 |
|
|
430 |
|
char *cmd; |
431 |
|
register char *args; |
432 |
|
{ |
433 |
+ |
int somechange = 0; |
434 |
|
int cn, na, doxfm; |
435 |
|
register int nn; |
436 |
|
char *alist[MAXAC+1], *nm; |
458 |
|
dobj_load(alist[0], alist[0]); |
459 |
|
else if (na == 2) |
460 |
|
dobj_load(alist[0], alist[1]); |
461 |
< |
else |
462 |
< |
return(cmderror(cn, "need octree [name]")); |
461 |
> |
else { |
462 |
> |
cmderror(cn, "need octree [name]"); |
463 |
> |
return(0); |
464 |
> |
} |
465 |
|
break; |
466 |
|
case DO_UNLOAD: /* clear an object */ |
467 |
|
if (na > 1) goto toomany; |
468 |
|
if (na && alist[0][0] == '*') |
469 |
< |
dobj_cleanup(); |
469 |
> |
somechange += dobj_cleanup(); |
470 |
|
else |
471 |
< |
dobj_unload(na ? alist[0] : curname); |
471 |
> |
somechange += dobj_unload(na ? alist[0] : curname); |
472 |
|
break; |
473 |
|
case DO_XFORM: /* transform object */ |
474 |
|
case DO_MOVE: |
477 |
|
} else { |
478 |
|
nm = curname; nn = 0; |
479 |
|
} |
480 |
< |
if (cn == DO_MOVE && nn >= na) |
481 |
< |
return(cmderror(cn, "missing transform")); |
482 |
< |
dobj_xform(nm, cn==DO_MOVE, na-nn, alist+nn); |
480 |
> |
if (cn == DO_MOVE && nn >= na) { |
481 |
> |
cmderror(cn, "missing transform"); |
482 |
> |
return(0); |
483 |
> |
} |
484 |
> |
somechange += dobj_xform(nm, cn==DO_MOVE, na-nn, alist+nn); |
485 |
|
break; |
486 |
|
case DO_UNMOVE: /* undo last transform */ |
487 |
< |
dobj_unmove(); |
487 |
> |
somechange += dobj_unmove(); |
488 |
|
break; |
489 |
|
case DO_OBJECT: /* print object statistics */ |
490 |
|
if (dobj_putstats(na ? alist[0] : curname, sstdout)) |
498 |
|
break; |
499 |
|
switch (nn) { |
500 |
|
case 0: |
501 |
< |
return(cmderror(cn, "need new object name")); |
501 |
> |
cmderror(cn, "need new object name"); |
502 |
> |
return(0); |
503 |
|
case 1: |
504 |
|
nm = curname; |
505 |
|
break; |
512 |
|
if (!dobj_dup(nm, alist[nn-1])) |
513 |
|
break; |
514 |
|
if (na > nn) |
515 |
< |
dobj_xform(curname, 1, na-nn, alist+nn); |
515 |
> |
somechange += dobj_xform(curname, 1, na-nn, alist+nn); |
516 |
|
else |
517 |
|
curobj->drawcode = DO_HIDE; |
518 |
|
savedxf(curobj); |
522 |
|
case DO_HIDE: |
523 |
|
if (na > 1) goto toomany; |
524 |
|
dobj_lighting(na ? alist[0] : curname, cn); |
525 |
+ |
somechange++; |
526 |
|
break; |
527 |
|
default: |
528 |
|
error(CONSISTENCY, "bad command id in dobj_command"); |
529 |
|
} |
530 |
< |
dev_view(&odev.v); /* redraw */ |
526 |
< |
return(cn); |
530 |
> |
return(somechange); |
531 |
|
toomany: |
532 |
|
return(cmderror(cn, "too many arguments")); |
533 |
|
} |
536 |
|
dobj_load(oct, nam) /* create/load an octree object */ |
537 |
|
char *oct, *nam; |
538 |
|
{ |
535 |
– |
extern char *getlibpath(), *getpath(); |
539 |
|
char *fpp, fpath[128]; |
540 |
|
register DOBJECT *op; |
541 |
|
/* check arguments */ |
556 |
|
return(0); |
557 |
|
} |
558 |
|
/* get octree path */ |
559 |
< |
if ((fpp = getpath(oct, getlibpath(), R_OK)) == NULL) { |
559 |
> |
if ((fpp = getpath(oct, getrlibpath(), R_OK)) == NULL) { |
560 |
|
sprintf(errmsg, "cannot find octree \"%s\"", oct); |
561 |
|
error(COMMAND, errmsg); |
562 |
|
return(0); |
574 |
|
op->xfav[op->xfac=0] = NULL; |
575 |
|
/* load octree into display list */ |
576 |
|
dolights = 0; |
577 |
< |
op->listid = rgl_octlist(fpath, op->center, &op->radius); |
577 |
> |
domats = 1; |
578 |
> |
op->listid = rgl_octlist(fpath, op->center, &op->radius, &op->nlists); |
579 |
|
/* start rtrace */ |
580 |
|
rtargv[RTARGC-1] = fpath; |
581 |
|
rtargv[RTARGC] = NULL; |
582 |
< |
open_process(op->rtp, rtargv); |
582 |
> |
open_process(&(op->rtp), rtargv); |
583 |
|
/* insert into main list */ |
584 |
|
op->next = dobjects; |
585 |
|
curobj = dobjects = op; |
612 |
|
savedxf(curobj = NULL); |
613 |
|
while ((lp = dlightsets) != NULL) { |
614 |
|
dlightsets = lp->next; |
615 |
< |
free((char *)lp); |
615 |
> |
free((void *)lp); |
616 |
|
} |
617 |
|
return(1); |
618 |
|
} |
731 |
|
return(0); |
732 |
|
} |
733 |
|
/* hold last transform */ |
734 |
< |
bcopy((char *)lastxfav, (char *)txfav, |
734 |
> |
bcopy((void *)lastxfav, (void *)txfav, |
735 |
|
(txfac=lastxfac)*sizeof(char *)); |
736 |
|
/* save this transform */ |
737 |
< |
bcopy((char *)curobj->xfav, (char *)lastxfav, |
737 |
> |
bcopy((void *)curobj->xfav, (void *)lastxfav, |
738 |
|
(lastxfac=curobj->xfac)*sizeof(char *)); |
739 |
|
/* copy back last transform */ |
740 |
< |
bcopy((char *)txfav, (char *)curobj->xfav, |
740 |
> |
bcopy((void *)txfav, (void *)curobj->xfav, |
741 |
|
(curobj->xfac=txfac)*sizeof(char *)); |
742 |
|
/* set matrices */ |
743 |
|
fullxf(&curobj->xfb, curobj->xfac, curobj->xfav); |
860 |
|
VCOPY(darr, rorg); VCOPY(darr+3, rdir); |
861 |
|
} |
862 |
|
/* trace it */ |
863 |
< |
if (process(op->rtp, darr, darr, sizeof(double), |
863 |
> |
if (process(&(op->rtp), (char *)darr, (char *)darr, sizeof(double), |
864 |
|
6*sizeof(double)) != sizeof(double)) |
865 |
|
error(SYSTEM, "rtrace communication error"); |
866 |
|
/* return distance */ |