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

Comparing ray/src/util/glaresrc.c (file contents):
Revision 1.5 by greg, Tue Mar 19 17:06:25 1991 UTC vs.
Revision 1.11 by greg, Wed Apr 10 15:59:10 1991 UTC

# Line 16 | Line 16 | static char SCCSid[] = "$SunId$ LBL";
16   struct source   *curlist = NULL;        /* current source list */
17   struct source   *donelist = NULL;       /* finished sources */
18  
19 – double  threshold;                      /* glare threshold */
19  
21 –
20   struct srcspan *
21   newspan(l, r, v, sb)            /* allocate a new source span */
22   int     l, r, v;
# Line 51 | Line 49 | analyze()                      /* analyze our scene */
49                  memerr("view span brightness buffer");
50          for (v = vsize; v >= -vsize; v--) {
51                  close_sources(v);
52 + #ifndef DEBUG
53 +                if (verbose)
54 +                        fprintf(stderr, "%s: analyzing... %3ld%%\r",
55 +                                progname, 100L*(vsize-v)/(2*vsize));
56 + #endif
57                  getviewspan(v, spanbr);
58                  left = hsize + 1;
59                  for (h = -hsize; h <= hsize; h++) {
# Line 75 | Line 78 | analyze()                      /* analyze our scene */
78                  if (left < h)
79                          addsrcspan(newspan(left,h,v,spanbr));
80          }
78 –        close_allsrcs();
81          free((char *)spanbr);
82 +        close_allsrcs();
83   }
84  
85  
# Line 88 | Line 91 | double br;
91          register int    i;
92  
93          if (h <= -hlim) {                       /* left region */
94 <                d = (double)(h+hlim)/sampdens;
95 <                if (d <= -1.0+FTINY)
94 >                d = (double)(-h-hlim)/sampdens;
95 >                if (d >= 1.0-FTINY)
96                          return;
97                  tanb = d/sqrt(1.0-d*d);
98                  for (i = 0; i < nglardirs; i++) {
99                          d = indirect[i].lcos - tanb*indirect[i].lsin;
100                          if (d > 0.0) {
101                                  indirect[i].sum += d * br;
102 <                                indirect[i].n++;
102 >                                indirect[i].n += d;
103                          }
104                  }
105                  return;
106          }
107          if (h >= hlim) {                        /* right region */
108 <                d = (double)(h-hlim)/sampdens;
109 <                if (d >= 1.0-FTINY)
108 >                d = (double)(-h+hlim)/sampdens;
109 >                if (d <= -1.0+FTINY)
110                          return;
111                  tanb = d/sqrt(1.0-d*d);
112                  for (i = 0; i < nglardirs; i++) {
113                          d = indirect[i].rcos - tanb*indirect[i].rsin;
114                          if (d > 0.0) {
115                                  indirect[i].sum += d * br;
116 <                                indirect[i].n++;
116 >                                indirect[i].n += d;
117                          }
118                  }
119                  return;
# Line 120 | Line 123 | double br;
123                  d = cos(h_theta(h) - indirect[i].theta);
124                  if (d > 0.0) {
125                          indirect[i].sum += d * br;
126 <                        indirect[i].n++;
126 >                        indirect[i].n += d;
127                  }
128          }
129   }
# Line 154 | Line 157 | comp_thresh()                  /* compute glare threshold */
157                  exit(1);
158          }
159          if (verbose) {
160 + #ifdef DEBUG
161                  pict_stats();
162 + #endif
163                  fprintf(stderr,
164                          "%s: threshold set to %f cd/m2 from %d samples\n",
165                                  progname, threshold, nsamps);
# Line 177 | Line 182 | struct srcspan *nss;
182                                  if (cs == NULL)
183                                          cs = this;
184                                  else {
180 –                                        mergesource(cs, this);
185                                          last->next = this->next;
186 <                                        free((char *)this);
186 >                                        mergesource(cs, this);
187                                          this = last;
188                                  }
189                                  break;
# Line 191 | Line 195 | struct srcspan *nss;
195                  cs = (struct source *)malloc(sizeof(struct source));
196                  if (cs == NULL)
197                          memerr("source records");
198 +                cs->dom = 0.0;
199                  cs->first = NULL;
200                  cs->next = curlist;
201                  curlist = cs;
# Line 221 | Line 226 | struct source  *sp, *ap;
226          if (prev->next == NULL)
227                  prev->next = alp;
228          sp->first = head.next;
229 <        ap->first = NULL;
229 >        if (ap->dom > 0.0 && sp->dom > 0.0) {           /* sources are done */
230 >                sp->dir[0] *= sp->dom;
231 >                sp->dir[1] *= sp->dom;
232 >                sp->dir[2] *= sp->dom;
233 >                fvsum(sp->dir, sp->dir, ap->dir, ap->dom);
234 >                normalize(sp->dir);
235 >                sp->brt = (sp->brt*sp->dom + ap->brt*ap->dom)
236 >                                / (sp->dom + ap->dom);
237 >        }
238 >        free((char *)ap);
239   }
240  
241  
# Line 294 | Line 308 | register struct source *sp;
308          "%s: found source at (%.3f,%.3f,%.3f), dw %.5f, br %.1f (%d samps)\n",
309                          progname, sp->dir[0], sp->dir[1], sp->dir[2],
310                          sp->dom, sp->brt, n);
311 + }
312 +
313 +
314 + struct source *
315 + findbuddy(s, l)                 /* find close enough source to s in l*/
316 + register struct source  *s, *l;
317 + {
318 +        struct source   *bestbuddy = NULL;
319 +        double  d, r, mindist = MAXBUDDY;
320 +
321 +        r = sqrt(s->dom/PI);
322 +        for ( ; l != NULL; l = l->next) {
323 +                d = sqrt(dist2(l->dir, s->dir)) - sqrt(l->dom/PI) - r;
324 +                if (d < mindist) {
325 +                        bestbuddy = l;
326 +                        mindist = d;
327 +                }
328 +        }
329 +        return(bestbuddy);
330 + }
331 +
332 +
333 + absorb_specks()                 /* eliminate too-small sources */
334 + {
335 +        struct source   head, *buddy;
336 +        register struct source  *last, *this;
337 +
338 +        if (verbose)
339 +                fprintf(stderr, "%s: absorbing small sources...\n", progname);
340 +        head.next = donelist;
341 +        last = &head;
342 +        for (this = head.next; this != NULL; this = this->next)
343 +                if (TOOSMALL(this)) {
344 +                        last->next = this->next;
345 +                        buddy = findbuddy(this, head.next);
346 +                        if (buddy != NULL)
347 +                                mergesource(buddy, this);
348 +                        else
349 +                                absorb(this);
350 +                        this = last;
351 +                } else
352 +                        last = this;
353 +        donelist = head.next;
354 + }
355 +
356 +
357 + absorb(s)                       /* absorb a source into indirect */
358 + register struct source  *s;
359 + {
360 +        FVECT   dir;
361 +        double  d;
362 +        register int    i;
363 +
364 +        for (i = 0; i < nglardirs; i++) {
365 +                spinvector(dir, ourview.vdir, ourview.vup, indirect[i].theta);
366 +                d = DOT(dir,s->dir)*s->dom*(sampdens*sampdens);
367 +                if (d <= 0.0)
368 +                        continue;
369 +                indirect[i].sum += d * s->brt;
370 +                indirect[i].n += d;
371 +        }
372 +        for ( ; s->first != NULL; s->first = s->first->next)
373 +                free((char *)s->first);
374 +        free((char *)s);
375   }

Diff Legend

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