--- ray/src/rt/srcsupp.c 1991/10/21 12:58:16 1.14 +++ ray/src/rt/srcsupp.c 2003/12/31 19:38:27 2.14 @@ -1,13 +1,14 @@ -/* Copyright (c) 1991 Regents of the University of California */ - #ifndef lint -static char SCCSid[] = "$SunId$ LBL"; +static const char RCSid[] = "$Id: srcsupp.c,v 2.14 2003/12/31 19:38:27 greg Exp $"; #endif - /* * Support routines for source objects and materials + * + * External symbols declared in source.h */ +#include "copyright.h" + #include "ray.h" #include "otypes.h" @@ -18,7 +19,7 @@ static char SCCSid[] = "$SunId$ LBL"; #include "face.h" -#define SRCINC 4 /* realloc increment for array */ +#define SRCINC 8 /* realloc increment for array */ SRCREC *source = NULL; /* our list of sources */ int nsources = 0; /* the number of sources */ @@ -26,13 +27,10 @@ int nsources = 0; /* the number of sources */ SRCFUNC sfun[NUMOTYPE]; /* source dispatch table */ +void initstypes() /* initialize source dispatch table */ { extern VSMATERIAL mirror_vs, direct1_vs, direct2_vs; - extern int fsetsrc(), ssetsrc(), sphsetsrc(), cylsetsrc(), rsetsrc(); - extern int nopart(), flatpart(), cylpart(); - extern double fgetplaneq(), rgetplaneq(); - extern double fgetmaxdisk(), rgetmaxdisk(); static SOBJECT fsobj = {fsetsrc, flatpart, fgetplaneq, fgetmaxdisk}; static SOBJECT ssobj = {ssetsrc, nopart}; static SOBJECT sphsobj = {sphsetsrc, nopart}; @@ -56,17 +54,21 @@ newsource() /* allocate new source in our array */ if (nsources == 0) source = (SRCREC *)malloc(SRCINC*sizeof(SRCREC)); else if (nsources%SRCINC == 0) - source = (SRCREC *)realloc((char *)source, + source = (SRCREC *)realloc((void *)source, (unsigned)(nsources+SRCINC)*sizeof(SRCREC)); if (source == NULL) return(-1); source[nsources].sflags = 0; source[nsources].nhits = 1; - source[nsources].ntests = 2; /* initial hit probability = 1/2 */ + source[nsources].ntests = 2; /* initial hit probability = 50% */ +#if SHADCACHE + source[nsources].obscache = NULL; +#endif return(nsources++); } +void setflatss(src) /* set sampling for a flat source */ register SRCREC *src; { @@ -86,6 +88,7 @@ register SRCREC *src; } +void fsetsrc(src, so) /* set a face as a source */ register SRCREC *src; OBJREC *so; @@ -119,8 +122,7 @@ OBJREC *so; } src->srad = sqrt(src->srad); /* compute size vectors */ - if (f->nv == 4 || (f->nv == 5 && /* parallelogram case */ - dist2(VERTEX(f,0),VERTEX(f,4)) <= FTINY*FTINY)) + if (f->nv == 4) /* parallelogram case */ for (j = 0; j < 3; j++) { src->ss[SU][j] = .5*(VERTEX(f,1)[j]-VERTEX(f,0)[j]); src->ss[SV][j] = .5*(VERTEX(f,3)[j]-VERTEX(f,0)[j]); @@ -130,6 +132,7 @@ OBJREC *so; } +void ssetsrc(src, so) /* set a source as a source */ register SRCREC *src; register OBJREC *so; @@ -156,6 +159,7 @@ register OBJREC *so; } +void sphsetsrc(src, so) /* set a sphere as a source */ register SRCREC *src; register OBJREC *so; @@ -174,10 +178,11 @@ register OBJREC *so; for (i = 0; i < 3; i++) src->ss[SU][i] = src->ss[SV][i] = src->ss[SW][i] = 0.0; for (i = 0; i < 3; i++) - src->ss[i][i] = .886227 * so->oargs.farg[3]; + src->ss[i][i] = .7236 * so->oargs.farg[3]; } +void rsetsrc(src, so) /* set a ring (disk) as a source */ register SRCREC *src; OBJREC *so; @@ -199,6 +204,7 @@ OBJREC *so; } +void cylsetsrc(src, so) /* set a cylinder as a source */ register SRCREC *src; OBJREC *so; @@ -212,9 +218,10 @@ OBJREC *so; co = getcone(so, 0); if (CO_R0(co) > .2*co->al) /* heuristic constraint */ objerror(so, WARNING, "source aspect too small"); + src->sflags |= SCYL; for (i = 0; i < 3; i++) src->sloc[i] = .5 * (CO_P1(co)[i] + CO_P0(co)[i]); - src->srad = co->al; + src->srad = .5*co->al; src->ss2 = 2.*CO_R0(co)*co->al; /* set sampling vectors */ for (i = 0; i < 3; i++) @@ -227,7 +234,7 @@ OBJREC *so; fcross(src->ss[SW], src->ss[SV], co->ad); normalize(src->ss[SW]); for (i = 0; i < 3; i++) - src->ss[SW][i] *= .886227 * CO_R0(co); + src->ss[SW][i] *= .8559 * CO_R0(co); fcross(src->ss[SV], src->ss[SW], co->ad); } @@ -238,16 +245,49 @@ register OBJREC *m; { register SPOT *ns; + if ((ns = (SPOT *)m->os) != NULL) + return(ns); if ((ns = (SPOT *)malloc(sizeof(SPOT))) == NULL) return(NULL); ns->siz = 2.0*PI * (1.0 - cos(PI/180.0/2.0 * m->oargs.farg[3])); VCOPY(ns->aim, m->oargs.farg+4); if ((ns->flen = normalize(ns->aim)) == 0.0) objerror(m, USER, "zero focus vector"); + m->os = (char *)ns; return(ns); } +int +spotout(r, s) /* check if we're outside spot region */ +register RAY *r; +register SPOT *s; +{ + double d; + FVECT vd; + + if (s == NULL) + return(0); + if (s->flen < -FTINY) { /* distant source */ + vd[0] = s->aim[0] - r->rorg[0]; + vd[1] = s->aim[1] - r->rorg[1]; + vd[2] = s->aim[2] - r->rorg[2]; + d = DOT(r->rdir,vd); + /* wrong side? + if (d <= FTINY) + return(1); */ + d = DOT(vd,vd) - d*d; + if (PI*d > s->siz) + return(1); /* out */ + return(0); /* OK */ + } + /* local source */ + if (s->siz < 2.0*PI * (1.0 + DOT(s->aim,r->rdir))) + return(1); /* out */ + return(0); /* OK */ +} + + double fgetmaxdisk(ocent, op) /* get center and squared radius of face */ FVECT ocent; @@ -319,6 +359,7 @@ OBJREC *op; } +int commonspot(sp1, sp2, org) /* set sp1 to intersection of sp1 and sp2 */ register SPOT *sp1, *sp2; FVECT org; @@ -342,6 +383,7 @@ FVECT org; } +int commonbeam(sp1, sp2, dir) /* set sp1 to intersection of sp1 and sp2 */ register SPOT *sp1, *sp2; FVECT dir; @@ -366,6 +408,7 @@ FVECT dir; } +int checkspot(sp, nrm) /* check spotlight for behind source */ register SPOT *sp; /* spotlight */ FVECT nrm; /* source surface normal */ @@ -461,90 +504,4 @@ double r1s, r2s; /* radii squared */ for (i = 0; i < 3; i++) cc[i] = c1[i] + l*disp[i]; return(a2); -} - - -sourcehit(r) /* check to see if ray hit distant source */ -register RAY *r; -{ - int first, last; - register int i; - - if (r->rsrc >= 0) { /* check only one if aimed */ - first = last = r->rsrc; - } else { /* otherwise check all */ - first = 0; last = nsources-1; - } - for (i = first; i <= last; i++) - if ((source[i].sflags & (SDISTANT|SVIRTUAL)) == SDISTANT) - /* - * Check to see if ray is within - * solid angle of source. - */ - if (2.0*PI * (1.0 - DOT(source[i].sloc,r->rdir)) - <= source[i].ss2) { - r->ro = source[i].so; - if (!(source[i].sflags & SSKIP)) - break; - } - - if (r->ro != NULL) { - for (i = 0; i < 3; i++) - r->ron[i] = -r->rdir[i]; - r->rod = 1.0; - r->rox = NULL; - return(1); - } - return(0); -} - - -#define wrongsource(m, r) (r->rsrc>=0 && \ - source[r->rsrc].so!=r->ro && \ - (m->otype!=MAT_ILLUM || \ - objptr(source[r->rsrc].so->omod)->otype==MAT_ILLUM)) - -#define distglow(m, r) (m->otype==MAT_GLOW && \ - r->rot > m->oargs.farg[3]) - -#define badambient(m, r) ((r->crtype&(AMBIENT|SHADOW))==AMBIENT && \ - !distglow(m, r)) - -#define passillum(m, r) (m->otype==MAT_ILLUM && \ - !(r->rsrc>=0&&source[r->rsrc].so==r->ro)) - -#define srcignore(m, r) (directinvis && !(r->crtype&SHADOW) && \ - !distglow(m, r)) - - -m_light(m, r) /* ray hit a light source */ -register OBJREC *m; -register RAY *r; -{ - /* check for over-counting */ - if (wrongsource(m, r) || badambient(m, r)) - return; - /* check for passed illum */ - if (passillum(m, r)) { - if (m->oargs.nsargs < 1 || !strcmp(m->oargs.sarg[0], VOIDID)) - raytrans(r); - else - rayshade(r, modifier(m->oargs.sarg[0])); - return; - } - /* otherwise treat as source */ - /* check for behind */ - if (r->rod < 0.0) - return; - /* check for invisibility */ - if (srcignore(m, r)) - return; - /* get distribution pattern */ - raytexture(r, m->omod); - /* get source color */ - setcolor(r->rcol, m->oargs.farg[0], - m->oargs.farg[1], - m->oargs.farg[2]); - /* modify value */ - multcolor(r->rcol, r->pcol); }