ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/source.c
(Generate patch)

Comparing ray/src/rt/source.c (file contents):
Revision 2.37 by greg, Fri Sep 12 22:35:54 2003 UTC vs.
Revision 2.38 by greg, Wed Dec 31 01:50:02 2003 UTC

# Line 13 | Line 13 | static const char RCSid[] = "$Id$";
13  
14   #include  "otypes.h"
15  
16 + #include  "otspecial.h"
17 +
18   #include  "source.h"
19  
20   #include  "random.h"
# Line 44 | Line 46 | static CNTPTR  *cntord;                        /* source ordering in direct
46   static int  maxcntr = 0;                /* size of contribution arrays */
47  
48  
49 + OBJREC *                        /* find an object's actual material */
50 + findmaterial(register OBJREC *o)
51 + {
52 +        while (!ismaterial(o->otype)) {
53 +                if (ismixture(o->otype))
54 +                        return(NULL);   /* reject mixed materials */
55 +                if (o->otype == MOD_ALIAS && o->oargs.nsargs) {
56 +                        OBJECT  aobj;
57 +                        OBJREC  *ao;
58 +                        aobj = lastmod(objndx(o), o->oargs.sarg[0]);
59 +                        if (aobj < 0)
60 +                                objerror(o, USER, "bad reference");
61 +                        ao = objptr(aobj);
62 +                        if (ismaterial(ao->otype))
63 +                                return(ao);
64 +                }
65 +                if (o->omod == OVOID)
66 +                        return(NULL);
67 +                o = objptr(o->omod);
68 +        }
69 +        return(o);
70 + }
71 +
72 +
73   void
74   marksources()                   /* find and mark source objects */
75   {
# Line 61 | Line 87 | marksources()                  /* find and mark source objects */
87                  if (!issurface(o->otype) || o->omod == OVOID)
88                          continue;
89                                          /* find material */
90 <                m = objptr(o->omod);
65 <                while (!ismaterial(m->otype))
66 <                        if (ismixture(m->otype) || m->omod == OVOID) {
67 <                                m = NULL;
68 <                                break;
69 <                        } else
70 <                                m = objptr(m->omod);
90 >                m = findmaterial(o);
91                  if (m == NULL || !islight(m->otype))
92                          continue;       /* not source modifier */
93          
# Line 108 | Line 128 | marksources()                  /* find and mark source objects */
128                                  source[ns].sflags |= SSKIP;
129                          }
130                  }
131 + #if  SHADCACHE
132 +                source[ns].obscache = NULL;
133 + #endif
134                  if (!(source[ns].sflags & SSKIP))
135                          foundsource++;
136          }
# Line 132 | Line 155 | void
155   freesources()                   /* free all source structures */
156   {
157          if (nsources > 0) {
158 + #if SHADCACHE
159 +                while (nsources--)
160 +                        freeobscache(&source[nsources]);
161 + #endif
162                  free((void *)source);
163                  source = NULL;
164                  nsources = 0;
# Line 147 | Line 174 | freesources()                  /* free all source structures */
174  
175  
176   int
177 < srcray(sr, r, si)               /* send a ray to a source, return domega */
178 < register RAY  *sr;              /* returned source ray */
179 < RAY  *r;                        /* ray which hit object */
180 < SRCINDEX  *si;                  /* source sample index */
177 > srcray(                         /* send a ray to a source, return domega */
178 > register RAY  *sr,              /* returned source ray */
179 > RAY  *r,                        /* ray which hit object */
180 > SRCINDEX  *si                   /* source sample index */
181 > )
182   {
183      double  d;                          /* distance to source */
184      register SRCREC  *srcp;
# Line 185 | Line 213 | SRCINDEX  *si;                 /* source sample index */
213  
214  
215   void
216 < srcvalue(r)                     /* punch ray to source and compute value */
217 < register RAY  *r;
216 > srcvalue(                       /* punch ray to source and compute value */
217 > register RAY  *r
218 > )
219   {
220          register SRCREC  *sp;
221  
# Line 226 | Line 255 | nomat:
255  
256  
257   int
258 < sourcehit(r)                    /* check to see if ray hit distant source */
259 < register RAY  *r;
258 > sourcehit(                      /* check to see if ray hit distant source */
259 > register RAY  *r
260 > )
261   {
262          int  first, last;
263          register int  i;
# Line 264 | Line 294 | register RAY  *r;
294   }
295  
296  
297 + #if  SHADCACHE                  /* preemptive shadow checking */
298 + #define ABS(x)  ((x)>0 ? (x) : -(x))
299 +
300 + static void                             /* find closest blockers to source */
301 + initobscache(SRCREC *srcp)
302 + {
303 +        int     i;
304 +        int     cachelen;
305 +
306 +        if (srcp->sflags & SDISTANT)
307 +                cachelen = 4*SHADCACHE*SHADCACHE;
308 +        else if (srcp->sflags & SFLAT)
309 +                cachelen = SHADCACHE*SHADCACHE*3 + (SHADCACHE&1)*SHADCACHE*4;
310 +        else /* spherical distribution */
311 +                cachelen = SHADCACHE*SHADCACHE*6;
312 +                                        /* allocate cache */
313 +        DCHECK(srcp->obscache != NULL,
314 +                        CONSISTENCY, "initobscache() called twice");
315 +        srcp->obscache = (OBSCACHE *)malloc(sizeof(OBSCACHE) +
316 +                                                sizeof(OBJECT)*(cachelen-1));
317 +        if (srcp->obscache == NULL)
318 +                error(SYSTEM, "out of memory in initobscache()");
319 +                                        /* set parameters */
320 +        if (srcp->sflags & SDISTANT) {
321 +                int     ax, ax1, ax2;
322 +                RREAL   amax = 0;
323 +                for (ax1 = 3; ax1--; )
324 +                        if (ABS(srcp->sloc[ax1]) > amax) {
325 +                                amax = ABS(srcp->sloc[ax1]);
326 +                                ax = ax1;
327 +                        }
328 +                srcp->obscache->p.d.ax = ax;
329 +                ax1 = (ax+1)%3;
330 +                ax2 = (ax+2)%3;
331 +                VCOPY(srcp->obscache->p.d.o, thescene.cuorg);
332 +                if (srcp->sloc[ax] > 0)
333 +                        srcp->obscache->p.d.o[ax] += thescene.cusize;
334 +                if (srcp->sloc[ax1] < 0)
335 +                        srcp->obscache->p.d.o[ax1] += thescene.cusize *
336 +                                        srcp->sloc[ax1] / ABS(srcp->sloc[ax]);
337 +                if (srcp->sloc[ax2] < 0)
338 +                        srcp->obscache->p.d.o[ax2] += thescene.cusize *
339 +                                        srcp->sloc[ax2] / ABS(srcp->sloc[ax]);
340 +                srcp->obscache->p.d.e1 = (1.-FTINY) / (thescene.cusize*(1. +
341 +                                fabs(srcp->sloc[ax1]/srcp->sloc[ax])));
342 +                srcp->obscache->p.d.e2 = (1.-FTINY) / (thescene.cusize*(1. +
343 +                                fabs(srcp->sloc[ax2]/srcp->sloc[ax])));
344 +        } else if (srcp->sflags & SFLAT) {
345 +                VCOPY(srcp->obscache->p.f.u, srcp->ss[SU]);
346 +                normalize(srcp->obscache->p.f.u);
347 +                fcross(srcp->obscache->p.f.v,
348 +                                srcp->snorm, srcp->obscache->p.f.u);
349 +        }
350 +                                        /* XXX Should cast rays from source */
351 +        for (i = cachelen; i--; )
352 +                srcp->obscache->obs[i] = OVOID;
353 + }
354 +
355 +
356 + static OBJECT *                 /* return occluder cache entry */
357 + srcobstructp(register RAY *r)
358 + {
359 +        static OBJECT   noobs;
360 +        SRCREC          *srcp;
361 +        int             ondx;
362 +
363 +        DCHECK(r->rsrc < 0, CONSISTENCY,
364 +                        "srcobstructp() called with unaimed ray");
365 +        noobs = OVOID;
366 +        srcp = &source[r->rsrc];
367 +        if (srcp->obscache == NULL)     /* initialize cache */
368 +                initobscache(srcp);
369 +                                        /* compute cache index */
370 +        if (srcp->sflags & SDISTANT) {
371 +                int     ax, ax1, ax2;
372 +                double  t;
373 +                ax = srcp->obscache->p.d.ax;
374 +                if ((ax1 = ax+1) >= 3) ax1 -= 3;
375 +                if ((ax2 = ax+2) >= 3) ax2 -= 3;
376 +                t = (srcp->obscache->p.d.o[ax] - r->rorg[ax]) / srcp->sloc[ax];
377 +                if (t <= FTINY)
378 +                        return &noobs;  /* could happen if ray is outside */
379 +                ondx = 2*SHADCACHE*(int)(2*SHADCACHE*srcp->obscache->p.d.e1 *
380 +                                (r->rorg[ax1] + t*srcp->sloc[ax1] -
381 +                                        srcp->obscache->p.d.o[ax1]));
382 +                ondx += (int)(2*SHADCACHE*srcp->obscache->p.d.e2 *
383 +                                (r->rorg[ax2] + t*srcp->sloc[ax2] -
384 +                                        srcp->obscache->p.d.o[ax2]));
385 +        } else if (srcp->sflags & SFLAT) {
386 +                FVECT   sd;
387 +                RREAL   sd0m, sd1m;
388 +                sd[0] = -DOT(r->rdir, srcp->obscache->p.f.u);
389 +                sd[1] = -DOT(r->rdir, srcp->obscache->p.f.v);
390 +                sd[2] = -DOT(r->rdir, srcp->snorm);
391 +                if (sd[2] < 0)
392 +                        return &noobs;  /* shouldn't happen */
393 +                sd0m = ABS(sd[0]);
394 +                sd1m = ABS(sd[1]);
395 +                if (sd[2] >= sd0m && sd[2] >= sd1m) {
396 +                        ondx = SHADCACHE*(int)(SHADCACHE*(.5-FTINY) *
397 +                                        (1. + sd[0]/sd[2]));
398 +                        ondx += (int)(SHADCACHE*(.5-FTINY) *
399 +                                        (1. + sd[1]/sd[2]));
400 +                } else if (sd0m >= sd1m) {
401 +                        ondx = SHADCACHE*SHADCACHE;
402 +                        if (sd[0] < 0)
403 +                                ondx += ((SHADCACHE+1)>>1)*SHADCACHE;
404 +                        ondx += SHADCACHE*(int)(SHADCACHE*(.5-FTINY) *
405 +                                        sd[2]/sd0m);
406 +                        ondx += (int)(SHADCACHE*(.5-FTINY) *
407 +                                        (1. + sd[1]/sd0m));
408 +                } else /* sd1m > sd0m */ {
409 +                        ondx = SHADCACHE*SHADCACHE +
410 +                                        ((SHADCACHE+1)>>1)*SHADCACHE*2;
411 +                        if (sd[1] < 0)
412 +                                ondx += ((SHADCACHE+1)>>1)*SHADCACHE;
413 +                        ondx += SHADCACHE*(int)(SHADCACHE*(.5-FTINY) *
414 +                                        sd[2]/sd1m);
415 +                        ondx += (int)(SHADCACHE*(.5-FTINY) *
416 +                                        (1. + sd[0]/sd1m));
417 +                }
418 +        } else /* spherical distribution */ {
419 +                int     ax, ax1, ax2;
420 +                RREAL   amax = 0;
421 +                for (ax1 = 3; ax1--; )
422 +                        if (ABS(r->rdir[ax1]) > amax) {
423 +                                amax = ABS(r->rdir[ax1]);
424 +                                ax = ax1;
425 +                        }
426 +                if ((ax1 = ax+1) >= 3) ax1 -= 3;
427 +                if ((ax2 = ax+2) >= 3) ax2 -= 3;
428 +                ondx = 2*SHADCACHE*SHADCACHE * ax;
429 +                if (r->rdir[ax] < 0)
430 +                        ondx += SHADCACHE*SHADCACHE;
431 +                ondx += SHADCACHE*(int)(SHADCACHE*(.5-FTINY) *
432 +                                        (1. + r->rdir[ax1]/amax));
433 +                ondx += (int)(SHADCACHE*(.5-FTINY) *
434 +                                (1. + r->rdir[ax2]/amax));
435 +        }
436 +                                        /* return cache pointer */
437 +        return(&srcp->obscache->obs[ondx]);
438 + }
439 +
440 +
441 + void                            /* free obstruction cache */
442 + freeobscache(SRCREC *srcp)
443 + {
444 +        if (srcp->obscache == NULL)
445 +                return;
446 +        free((void *)srcp->obscache);
447 +        srcp->obscache = NULL;
448 + }
449 +
450 +        
451 + void                            /* record a source blocker */
452 + srcblocker(register RAY *r)
453 + {
454 +        OBJREC  *m;
455 +
456 +        if (r->robj == OVOID || objptr(r->robj) != r->ro ||
457 +                        isvolume(r->ro->otype))
458 +                return;                 /* don't record complex blockers */
459 +        m = findmaterial(r->ro);
460 +        if (m == NULL)
461 +                return;                 /* no material?! */
462 +        if (!(ofun[m->otype].flags & T_OPAQUE))
463 +                return;                 /* material not a reliable blocker */
464 +
465 +        *srcobstructp(r) = r->robj;     /* else record obstructor */
466 + }
467 +
468 +
469 + int                             /* check ray against cached blocker */
470 + srcblocked(RAY *r)
471 + {
472 +        OBJECT  obs = *srcobstructp(r);
473 +        OBJREC  *op;
474 +
475 +        if (obs == OVOID)
476 +                return(0);
477 +        op = objptr(obs);               /* check for intersection */
478 +        return ((*ofun[op->otype].funp)(op, r));
479 + }
480 +
481 + #endif
482 +
483 +
484   static int
485 < cntcmp(sc1, sc2)                        /* contribution compare (descending) */
486 < register CNTPTR  *sc1, *sc2;
485 > cntcmp(                         /* contribution compare (descending) */
486 > const void *p1,
487 > const void *p2
488 > )
489   {
490 +        register const CNTPTR  *sc1 = (const CNTPTR *)p1;
491 +        register const CNTPTR  *sc2 = (const CNTPTR *)p2;
492 +
493          if (sc1->brt > sc2->brt)
494                  return(-1);
495          if (sc1->brt < sc2->brt)
# Line 277 | Line 499 | register CNTPTR  *sc1, *sc2;
499  
500  
501   void
502 < direct(r, f, p)                         /* add direct component */
503 < RAY  *r;                        /* ray that hit surface */
504 < void  (*f)();                   /* direct component coefficient function */
505 < char  *p;                       /* data for f */
502 > direct(                                 /* add direct component */
503 > RAY  *r,                        /* ray that hit surface */
504 > void  (*f)(),                   /* direct component coefficient function */
505 > char  *p                        /* data for f */
506 > )
507   {
508          extern void  (*trace)();
509          register int  sn;
# Line 313 | Line 536 | char  *p;                      /* data for f */
536                  cntord[sn].brt = bright(scp->coef);
537                  if (cntord[sn].brt <= 0.0)
538                          continue;
539 + #if SHADCACHE
540 +                                                /* check shadow cache */
541 +                if (si.np == 1 && srcblocked(&sr)) {
542 +                        cntord[sn].brt = 0.0;
543 +                        continue;
544 +                }
545 + #endif
546                  VCOPY(scp->dir, sr.rdir);
547                                                  /* compute potential */
548                  sr.revf = srcvalue;
# Line 373 | Line 603 | char  *p;                      /* data for f */
603                          rayparticipate(&sr);
604                          if (trace != NULL)
605                                  (*trace)(&sr);  /* trace execution */
606 <                        if (bright(sr.rcol) <= FTINY)
606 >                        if (bright(sr.rcol) <= FTINY) {
607 > #if SHADCACHE
608 >                                if ((scp <= srccnt || scp[-1].sno != scp->sno)
609 >                                                && (scp >= srccnt+ncnts ||
610 >                                                    scp[1].sno != scp->sno))
611 >                                        srcblocker(&sr);
612 > #endif
613                                  continue;       /* missed! */
614 +                        }
615                          copycolor(scp->val, sr.rcol);
616                          multcolor(scp->val, scp->coef);
617                  }
# Line 407 | Line 644 | char  *p;                      /* data for f */
644  
645  
646   void
647 < srcscatter(r)                   /* compute source scattering into ray */
648 < register RAY  *r;
647 > srcscatter(                     /* compute source scattering into ray */
648 > register RAY  *r
649 > )
650   {
651          int  oldsampndx;
652          int  nsamps;
# Line 565 | Line 803 | weaksrcmat(int obj)            /* identify material */
803  
804  
805   int
806 < m_light(m, r)                   /* ray hit a light source */
807 < register OBJREC  *m;
808 < register RAY  *r;
806 > m_light(                                /* ray hit a light source */
807 > register OBJREC  *m,
808 > register RAY  *r
809 > )
810   {
811                                                  /* check for over-counting */
812          if (badcomponent(m, r))

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines