--- ray/src/rt/srcsupp.c 1992/02/26 09:49:37 2.4 +++ ray/src/rt/srcsupp.c 2005/10/16 16:04:10 2.15 @@ -1,13 +1,14 @@ -/* Copyright (c) 1992 Regents of the University of California */ - #ifndef lint -static char SCCSid[] = "$SunId$ LBL"; +static const char RCSid[] = "$Id: srcsupp.c,v 2.15 2005/10/16 16:04:10 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; @@ -106,7 +109,7 @@ OBJREC *so; src->sloc[j] /= (double)f->nv; } if (!inface(src->sloc, f)) - objerror(so, USER, "cannot hit center"); + objerror(so, USER, "cannot hit center for source"); src->sflags |= SFLAT; VCOPY(src->snorm, f->norm); src->ss2 = f->area; @@ -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; @@ -178,6 +182,7 @@ register OBJREC *so; } +void rsetsrc(src, so) /* set a ring (disk) as a source */ register SRCREC *src; OBJREC *so; @@ -190,7 +195,7 @@ OBJREC *so; co = getcone(so, 0); VCOPY(src->sloc, CO_P0(co)); if (CO_R0(co) > 0.0) - objerror(so, USER, "cannot hit center"); + objerror(so, USER, "cannot hit center for source"); src->sflags |= SFLAT; VCOPY(src->snorm, co->ad); src->srad = CO_R1(co); @@ -199,6 +204,7 @@ OBJREC *so; } +void cylsetsrc(src, so) /* set a cylinder as a source */ register SRCREC *src; OBJREC *so; @@ -239,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; @@ -320,6 +359,7 @@ OBJREC *op; } +int commonspot(sp1, sp2, org) /* set sp1 to intersection of sp1 and sp2 */ register SPOT *sp1, *sp2; FVECT org; @@ -343,6 +383,7 @@ FVECT org; } +int commonbeam(sp1, sp2, dir) /* set sp1 to intersection of sp1 and sp2 */ register SPOT *sp1, *sp2; FVECT dir; @@ -367,6 +408,7 @@ FVECT dir; } +int checkspot(sp, nrm) /* check spotlight for behind source */ register SPOT *sp; /* spotlight */ FVECT nrm; /* source surface normal */ @@ -462,147 +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); -} - - -/**************************************************************** - * The following macros were separated from the m_light() routine - * because they are very nasty and difficult to understand. - */ - -/* wrongillum * - * - * We cannot allow an illum to pass to another illum, because that - * would almost certainly constitute overcounting. - * However, we do allow an illum to pass to another illum - * that is actually going to relay to a virtual light source. - */ - -#define wrongillum(m, r) (!(source[r->rsrc].sflags&SVIRTUAL) && \ - objptr(source[r->rsrc].so->omod)->otype==MAT_ILLUM) - -/* wrongsource * - * - * This source is the wrong source (ie. overcounted) if we are - * aimed to a different source than the one we hit and the one - * we hit is not an illum which should be passed. - */ - -#define wrongsource(m, r) (r->rsrc>=0 && source[r->rsrc].so!=r->ro && \ - (m->otype!=MAT_ILLUM || wrongillum(m,r))) - -/* distglow * - * - * A distant glow is an object that sometimes acts as a light source, - * but is too far away from the test point to be one in this case. - */ - -#define distglow(m, r) (m->otype==MAT_GLOW && \ - r->rot > m->oargs.farg[3]) - -/* badcomponent * - * - * We must avoid counting light sources in the ambient calculation, - * since the direct component is handled separately. Therefore, any - * ambient ray which hits an active light source must be discarded. - * The same is true for stray specular samples, since the specular - * contribution from light sources is calculated separately. - */ - -#define badcomponent(m, r) (r->crtype&(AMBIENT|SPECULAR) && \ - !(r->crtype&SHADOW || r->rod < 0.0 || \ - distglow(m, r))) - -/* overcount * - * - * All overcounting possibilities are contained here. - */ - -#define overcount(m, r) (badcomponent(m,r) || wrongsource(m,r)) - -/* passillum * - * - * An illum passes to another material type when we didn't hit it - * on purpose (as part of a direct calculation), or it is relaying - * a virtual light source. - */ - -#define passillum(m, r) (m->otype==MAT_ILLUM && \ - (r->rsrc<0 || source[r->rsrc].so!=r->ro || \ - source[r->rsrc].sflags&SVIRTUAL)) - -/* srcignore * - * - * The -di flag renders light sources invisible, and here is the test. - */ - -#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 (overcount(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); }