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.21 by greg, Mon Dec 11 15:00:24 1995 UTC vs.
Revision 2.25 by greg, Tue May 28 13:41:41 1996 UTC

# Line 22 | Line 22 | static char SCCSid[] = "$SunId$ LBL";
22  
23   extern double  ssampdist;               /* scatter sampling distance */
24  
25 + #ifndef MAXSSAMP
26 + #define MAXSSAMP        16              /* maximum samples per ray */
27 + #endif
28 +
29   /*
30   * Structures used by direct()
31   */
# Line 333 | Line 337 | char  *p;                      /* data for f */
337                                  ( sr.ro != source[scp->sno].so ||
338                                  source[scp->sno].sflags & SFOLLOW )) {
339                                                  /* follow entire path */
340 <                        if (!raycont(&sr))
337 <                                objerror(sr.ro, USER, "material not found");
340 >                        raycont(&sr);
341                          rayparticipate(&sr);
342                          if (trace != NULL)
343                                  (*trace)(&sr);  /* trace execution */
# Line 378 | Line 381 | register RAY  *r;
381          int  nsamps;
382          RAY  sr;
383          SRCINDEX  si;
384 <        double  t, lastt, d;
385 <        COLOR  cumval, ctmp;
384 >        double  t, d;
385 >        double  re, ge, be;
386 >        COLOR  cvext;
387          int  i, j;
388  
389 <        if (r->slights == NULL || r->slights[0] == 0 || r->gecc >= 1.-FTINY)
389 >        if (r->slights == NULL || r->slights[0] == 0
390 >                        || r->gecc >= 1.-FTINY || r->rot >= FHUGE)
391                  return;
392          if (ssampdist <= FTINY || (nsamps = r->rot/ssampdist + .5) < 1)
393                  nsamps = 1;
394 + #if MAXSSAMP
395 +        else if (nsamps > MAXSSAMP)
396 +                nsamps = MAXSSAMP;
397 + #endif
398          oldsampndx = samplendx;
399          samplendx = random()&0x7fff;            /* randomize */
400          for (i = r->slights[0]; i > 0; i--) {   /* for each source */
401 <                setcolor(cumval, 0., 0., 0.);
393 <                lastt = r->rot;
394 <                for (j = nsamps; j-- > 0; ) {   /* for each sample position */
401 >                for (j = 0; j < nsamps; j++) {  /* for each sample position */
402                          samplendx++;
403                          t = r->rot * (j+frandom())/nsamps;
404 +                                                        /* extinction */
405 +                        re = t*colval(r->cext,RED);
406 +                        ge = t*colval(r->cext,GRN);
407 +                        be = t*colval(r->cext,BLU);
408 +                        setcolor(cvext, re > 92. ? 0. : exp(-re),
409 +                                        ge > 92. ? 0. : exp(-ge),
410 +                                        be > 92. ? 0. : exp(-be));
411 +                        if (intens(cvext) <= FTINY)
412 +                                break;                  /* too far away */
413                          sr.rorg[0] = r->rorg[0] + r->rdir[0]*t;
414                          sr.rorg[1] = r->rorg[1] + r->rdir[1]*t;
415                          sr.rorg[2] = r->rorg[2] + r->rdir[2]*t;
# Line 405 | Line 421 | register RAY  *r;
421                                          sr.rsrc != r->slights[i])
422                                  continue;               /* no path */
423                          copycolor(sr.cext, r->cext);
424 <                        sr.albedo = r->albedo;
424 >                        copycolor(sr.albedo, r->albedo);
425                          sr.gecc = r->gecc;
426                          rayvalue(&sr);                  /* eval. source ray */
427                          if (bright(sr.rcol) <= FTINY)
428                                  continue;
413                                                        /* compute fall-off */
414                        d = lastt - t;
415                        setcolor(ctmp,  1.-d*colval(r->cext,RED),
416                                        1.-d*colval(r->cext,GRN),
417                                        1.-d*colval(r->cext,BLU));
418                        multcolor(cumval, ctmp);
419                        lastt = t;
429                          if (r->gecc <= FTINY)           /* compute P(theta) */
430                                  d = 1.;
431                          else {
432                                  d = DOT(r->rdir, sr.rdir);
433 <                                d = sqrt(1. + r->gecc*r->gecc - 2.*r->gecc*d);
434 <                                d = (1. - r->gecc*r->gecc) / (d*d*d);
433 >                                d = 1. + r->gecc*r->gecc - 2.*r->gecc*d;
434 >                                d = (1. - r->gecc*r->gecc) / (d*sqrt(d));
435                          }
436                                                          /* other factors */
437 <                        d *= si.dom * r->albedo * r->rot / (4.*PI*nsamps);
437 >                        d *= si.dom * r->rot / (4.*PI*nsamps);
438                          multcolor(sr.rcol, r->cext);
439 +                        multcolor(sr.rcol, r->albedo);
440                          scalecolor(sr.rcol, d);
441 <                        addcolor(cumval, sr.rcol);
441 >                        multcolor(sr.rcol, cvext);
442 >                        addcolor(r->rcol, sr.rcol);     /* add it in */
443                  }
433                                                /* final fall-off */
434                setcolor(ctmp,  1.-lastt*colval(r->cext,RED),
435                                1.-lastt*colval(r->cext,GRN),
436                                1.-lastt*colval(r->cext,BLU));
437                multcolor(cumval, ctmp);
438                addcolor(r->rcol, cumval);      /* sum into ray result */
444          }
445          samplendx = oldsampndx;
446   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines