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

Comparing ray/src/rt/srcsamp.c (file contents):
Revision 2.6 by greg, Wed Jul 20 12:48:44 1994 UTC vs.
Revision 2.16 by greg, Sat Jun 6 02:11:44 2009 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1991 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   * Source sampling routines
6 + *
7 + *  External symbols declared in source.h
8   */
9  
10 + #include "copyright.h"
11 +
12   #include  "ray.h"
13  
14   #include  "source.h"
# Line 24 | Line 25 | register RAY  *r;              /* origin is read, direction is set
25   register SRCINDEX  *si;         /* source index (modified to current) */
26   {
27          int  cent[3], size[3], parr[2];
28 +        SRCREC  *srcp;
29          FVECT  vpos;
30          double  d;
31          register int  i;
# Line 50 | Line 52 | nextsample:
52          if (!skipparts(cent, size, parr, si->spt))
53                  error(CONSISTENCY, "bad source partition in nextssamp");
54                                          /* compute sample */
55 +        srcp = source + si->sn;
56          if (dstrsrc > FTINY) {                  /* jitter sample */
57                  dimlist[ndims] = si->sn + 8831;
58                  dimlist[ndims+1] = si->sp + 3109;
59                  d = urand(ilhash(dimlist,ndims+2)+samplendx);
60 <                if (source[si->sn].sflags & SFLAT) {
60 >                if (srcp->sflags & SFLAT) {
61                          multisamp(vpos, 2, d);
62 <                        vpos[2] = 0.5;
62 >                        vpos[SW] = 0.5;
63                  } else
64                          multisamp(vpos, 3, d);
65                  for (i = 0; i < 3; i++)
# Line 67 | Line 70 | nextsample:
70  
71          for (i = 0; i < 3; i++)
72                  vpos[i] += (double)cent[i]/MAXSPART;
73 +                                        /* avoid circular aiming failures */
74 +        if ((srcp->sflags & SCIR) && (si->np > 1 || dstrsrc > 0.7)) {
75 +                FVECT   trim;
76 +                if (srcp->sflags & (SFLAT|SDISTANT)) {
77 +                        d = 1.12837917;         /* correct setflatss() */
78 +                        trim[SU] = d*sqrt(1.0 - 0.5*vpos[SV]*vpos[SV]);
79 +                        trim[SV] = d*sqrt(1.0 - 0.5*vpos[SU]*vpos[SU]);
80 +                        trim[SW] = 0.0;
81 +                } else {
82 +                        trim[SW] = trim[SU] = vpos[SU]*vpos[SU];
83 +                        d = vpos[SV]*vpos[SV];
84 +                        if (d > trim[SW]) trim[SW] = d;
85 +                        trim[SU] += d;
86 +                        d = vpos[SW]*vpos[SW];
87 +                        if (d > trim[SW]) trim[SW] = d;
88 +                        trim[SU] += d;
89 +                        if (trim[SU] > FTINY*FTINY) {
90 +                                d = 1.0/0.7236; /* correct sphsetsrc() */
91 +                                trim[SW] = trim[SV] = trim[SU] =
92 +                                                d*sqrt(trim[SW]/trim[SU]);
93 +                        } else
94 +                                trim[SW] = trim[SV] = trim[SU] = 0.0;
95 +                }
96 +                for (i = 0; i < 3; i++)
97 +                        vpos[i] *= trim[i];
98 +        }
99                                          /* compute direction */
100          for (i = 0; i < 3; i++)
101 <                r->rdir[i] = source[si->sn].sloc[i] +
102 <                                vpos[SU]*source[si->sn].ss[SU][i] +
103 <                                vpos[SV]*source[si->sn].ss[SV][i] +
104 <                                vpos[SW]*source[si->sn].ss[SW][i];
101 >                r->rdir[i] = srcp->sloc[i] +
102 >                                vpos[SU]*srcp->ss[SU][i] +
103 >                                vpos[SV]*srcp->ss[SV][i] +
104 >                                vpos[SW]*srcp->ss[SW][i];
105  
106 <        if (!(source[si->sn].sflags & SDISTANT))
106 >        if (!(srcp->sflags & SDISTANT))
107                  for (i = 0; i < 3; i++)
108                          r->rdir[i] -= r->rorg[i];
109                                          /* compute distance */
# Line 82 | Line 111 | nextsample:
111                  goto nextsample;                /* at source! */
112  
113                                          /* compute sample size */
114 <        if (source[si->sn].sflags & SFLAT) {
114 >        if (srcp->sflags & SFLAT) {
115                  si->dom = sflatform(si->sn, r->rdir);
116                  si->dom *= size[SU]*size[SV]/(MAXSPART*(double)MAXSPART);
117 <        } else if (source[si->sn].sflags & SCYL) {
117 >        } else if (srcp->sflags & SCYL) {
118                  si->dom = scylform(si->sn, r->rdir);
119                  si->dom *= size[SU]/(double)MAXSPART;
120          } else {
121                  si->dom = size[SU]*size[SV]*(double)size[SW] /
122                                  (MAXSPART*MAXSPART*(double)MAXSPART) ;
123          }
124 <        if (source[si->sn].sflags & SDISTANT) {
125 <                si->dom *= source[si->sn].ss2;
124 >        if (srcp->sflags & SDISTANT) {
125 >                si->dom *= srcp->ss2;
126                  return(FHUGE);
127          }
128          if (si->dom <= 1e-4)
129                  goto nextsample;                /* behind source? */
130 <        si->dom *= source[si->sn].ss2/(d*d);
130 >        si->dom *= srcp->ss2/(d*d);
131          return(d);              /* sample OK, return distance */
132   }
133  
134  
135 + int
136   skipparts(ct, sz, pp, pt)               /* skip to requested partition */
137   int  ct[3], sz[3];              /* center and size of partition (returned) */
138   register int  pp[2];            /* current index, number to skip (modified) */
# Line 112 | Line 142 | unsigned char  *pt;            /* partition array */
142                                          /* check this partition */
143          p = spart(pt, pp[0]);
144          pp[0]++;
145 <        if (p == S0)                    /* leaf partition */
145 >        if (p == S0) {                  /* leaf partition */
146                  if (pp[1]) {
147                          pp[1]--;
148                          return(0);      /* not there yet */
149                  } else
150                          return(1);      /* we've arrived */
151 +        }
152                                  /* else check lower */
153          sz[p] >>= 1;
154          ct[p] -= sz[p];
# Line 134 | Line 165 | unsigned char  *pt;            /* partition array */
165   }
166  
167  
168 + void
169   nopart(si, r)                   /* single source partition */
170   register SRCINDEX  *si;
171   RAY  *r;
# Line 144 | Line 176 | RAY  *r;
176   }
177  
178  
179 + void
180   cylpart(si, r)                  /* partition a cylinder */
181   SRCINDEX  *si;
182   register RAY  *r;
# Line 220 | Line 253 | double  d2;
253   }
254  
255  
256 + void
257   flatpart(si, r)                         /* partition a flat source */
258   register SRCINDEX  *si;
259   register RAY  *r;
260   {
261 <        register FLOAT  *vp;
261 >        register RREAL  *vp;
262          FVECT  v;
263          double  du2, dv2;
264          int  pi;
# Line 235 | Line 269 | register RAY  *r;
269          v[1] = r->rorg[1] - vp[1];
270          v[2] = r->rorg[2] - vp[2];
271          vp = source[si->sn].snorm;
272 <        if (DOT(v,vp) <= FTINY) {       /* behind source */
272 >        if (DOT(v,vp) <= 0.) {          /* behind source */
273                  si->np = 0;
274                  return;
275          }
# Line 308 | Line 342 | scylform(sn, dir)              /* compute cosine for cylinder's pr
342   int  sn;
343   register FVECT  dir;            /* assume normalized */
344   {
345 <        register FLOAT  *dv;
345 >        register RREAL  *dv;
346          double  d;
347  
348          dv = source[sn].ss[SU];

Diff Legend

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