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

Comparing ray/src/util/findglare.c (file contents):
Revision 1.4 by greg, Mon Mar 18 16:21:09 1991 UTC vs.
Revision 2.18 by greg, Tue Jun 3 21:31:51 2025 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   * Find glare sources in a scene or image.
6   *
# Line 12 | Line 9 | static char SCCSid[] = "$SunId$ LBL";
9  
10   #include "glare.h"
11  
12 < #define FEQ(a,b)        ((a)-(b)<=FTINY&&(a)-(b)<=FTINY)
13 < #define VEQ(v1,v2)      (FEQ((v1)[0],(v2)[0])&&FEQ((v1)[1],(v2)[1]) \
17 <                                &&FEQ((v1)[2],(v2)[2]))
12 > char    *rtargv[64] = {"rtrace", "-h-", "-ov", "-fff", "-ld-", "-i-", "-I-"};
13 > int     rtargc = 7;
14  
15 < char    *rtargv[32] = {"rtrace", "-h", "-ov", "-fff"};
20 < int     rtargc = 4;
21 <
22 < VIEW    ourview;                        /* our view */
15 > VIEW    ourview = STDVIEW;              /* our view */
16   VIEW    pictview = STDVIEW;             /* picture view */
17   VIEW    leftview, rightview;            /* leftmost and rightmost views */
18  
# Line 27 | Line 20 | char   *picture = NULL;                /* picture file name */
20   char    *octree = NULL;                 /* octree file name */
21  
22   int     verbose = 0;                    /* verbose reporting */
30 – char    *progname;                      /* global argv[0] */
23  
24 + double  threshold = 0.;                 /* glare threshold */
25 +
26   int     sampdens = SAMPDENS;            /* sample density */
27   ANGLE   glarang[180] = {AEND};          /* glare calculation angles */
28   int     nglarangs = 0;
29   double  maxtheta;                       /* maximum angle (in radians) */
30   int     hsize;                          /* horizontal size */
37 – int     hlim;                           /* central limit of horizontal */
31  
32   struct illum    *indirect;              /* array of indirect illuminances */
33  
34 + long    npixinvw;                       /* number of pixels in view */
35 + long    npixmiss;                       /* number of pixels missed */
36  
37 < main(argc, argv)
38 < int     argc;
39 < char    *argv[];
37 > static int angcmp(const void *ap1, const void *ap2);
38 > static void init(void);
39 > static void cleanup(void);
40 > static void printsources(void);
41 > static void printillum(void);
42 >
43 >
44 >
45 > int
46 > main(
47 >        int     argc,
48 >        char    *argv[]
49 > )
50   {
51 +        int     combine = 1;
52          int     gotview = 0;
53          int     rval, i;
54          char    *err;
55 <
56 <        progname = argv[0];
55 >                                        /* set global progname */
56 >        fixargv0(argv[0]);
57                                          /* process options */
58          for (i = 1; i < argc && argv[i][0] == '-'; i++) {
59 +                                                /* expand arguments */
60 +                while ((rval = expandarg(&argc, &argv, i)) > 0)
61 +                        ;
62 +                if (rval < 0) {
63 +                        fprintf(stderr, "%s: cannot expand '%s'\n",
64 +                                        argv[0], argv[i]);
65 +                        exit(1);
66 +                }
67                  rval = getviewopt(&ourview, argc-i, argv+i);
68                  if (rval >= 0) {
69                          i += rval;
# Line 57 | Line 71 | char   *argv[];
71                          continue;
72                  }
73                  switch (argv[i][1]) {
74 +                case 't':
75 +                        threshold = atof(argv[++i]);
76 +                        break;
77                  case 'r':
78                          sampdens = atoi(argv[++i])/2;
79                          break;
# Line 67 | Line 84 | char   *argv[];
84                          }
85                          if (argv[i][2] != 'f')
86                                  goto userr;
87 <                        rval = viewfile(argv[++i], &ourview, 0, 0);
87 >                        rval = viewfile(argv[++i], &ourview, NULL);
88                          if (rval < 0) {
89                                  fprintf(stderr,
90                                  "%s: cannot open view file \"%s\"\n",
# Line 93 | Line 110 | char   *argv[];
110                  case 'p':
111                          picture = argv[++i];
112                          break;
113 +                case 'c':
114 +                        combine = !combine;
115 +                        break;
116                  case 'd':
117 +                        rtargv[rtargc++] = argv[i];
118 +                        if (argv[i][2] != 'v')
119 +                                rtargv[rtargc++] = argv[++i];
120 +                        break;
121                  case 'l':
122 +                        if (argv[i][2] == 'd')
123 +                                break;
124 +                        /* FALL THROUGH */
125 +                case 's':
126 +                case 'P':
127 +                case 'n':
128                          rtargv[rtargc++] = argv[i];
129                          rtargv[rtargc++] = argv[++i];
130                          break;
131 +                case 'w':
132 +                case 'u':
133 +                case 'b':
134 +                        rtargv[rtargc++] = argv[i];
135 +                        break;
136                  case 'a':
137                          rtargv[rtargc++] = argv[i];
138                          if (argv[i][2] == 'v') {
# Line 106 | Line 141 | char   *argv[];
141                          }
142                          rtargv[rtargc++] = argv[++i];
143                          break;
144 +                case 'm':
145 +                        rtargv[rtargc++] = argv[i];
146 +                        if ((argv[i][2] == 'e') | (argv[i][2] == 'a')) {
147 +                                rtargv[rtargc++] = argv[++i];
148 +                                rtargv[rtargc++] = argv[++i];
149 +                        }
150 +                        rtargv[rtargc++] = argv[++i];
151 +                        break;
152                  default:
153                          goto userr;
154                  }
# Line 119 | Line 162 | char   *argv[];
162          }
163                                                  /* get view */
164          if (picture != NULL) {
165 <                rval = viewfile(picture, &pictview, 0, 0);
165 >                rval = viewfile(picture, &pictview, NULL);
166                  if (rval < 0) {
167                          fprintf(stderr, "%s: cannot open picture file \"%s\"\n",
168                                          progname, picture);
# Line 146 | Line 189 | char   *argv[];
189                                          progname);
190                          exit(1);
191                  }
192 <                copystruct(&ourview, &pictview);
193 <        } else if (picture != NULL && !VEQ(ourview.vp, pictview.vp)) {
192 >                ourview = pictview;
193 >        } else if (picture != NULL && !VABSEQ(ourview.vp, pictview.vp)) {
194                  fprintf(stderr, "%s: picture must have same viewpoint\n",
195                                  progname);
196                  exit(1);
# Line 168 | Line 211 | char   *argv[];
211                  exit(1);
212          }
213          init();                                 /* initialize program */
214 <        comp_thresh();                          /* compute glare threshold */
214 >        if (threshold <= FTINY)
215 >                comp_thresh();                  /* compute glare threshold */
216          analyze();                              /* analyze view */
217 +        if (combine)
218 +                absorb_specks();                /* eliminate tiny sources */
219          cleanup();                              /* tidy up */
220                                                  /* print header */
221 +        newheader("RADIANCE", stdout);
222          printargs(argc, argv, stdout);
223          fputs(VIEWSTR, stdout);
224          fprintview(&ourview, stdout);
225 <        printf("\n\n");
225 >        printf("\n");
226 >        fputformat("ascii", stdout);
227 >        printf("\n");
228          printsources();                         /* print glare sources */
229          printillum();                           /* print illuminances */
230          exit(0);
# Line 187 | Line 236 | userr:
236   }
237  
238  
239 < init()                          /* initialize global variables */
239 > static int
240 > angcmp(         /* compare two angles */
241 >        const void      *ap1,
242 >        const void      *ap2
243 > )
244   {
245 +        int     a1, a2;
246 +
247 +        a1 = *(ANGLE *)ap1;
248 +        a2 = *(ANGLE *)ap2;
249 +        if (a1 == a2) {
250 +                fprintf(stderr, "%s: duplicate glare angle (%d)\n",
251 +                                progname, a1);
252 +                exit(1);
253 +        }
254 +        return(a1-a2);
255 + }
256 +
257 +
258 + static void
259 + init(void)                              /* initialize global variables */
260 + {
261          double  d;
262 <        register int    i;
262 >        int     i;
263  
264          if (verbose)
265                  fprintf(stderr, "%s: initializing data structures...\n",
# Line 198 | Line 267 | init()                         /* initialize global variables */
267                                                  /* set direction vectors */
268          for (i = 0; glarang[i] != AEND; i++)
269                  ;
270 <        if (i > 0 && glarang[0] <= 0 || glarang[i-1] >= 180) {
271 <                fprintf(stderr, "%s: glare angles must be between 1 and 179\n",
270 >        qsort(glarang, i, sizeof(ANGLE), angcmp);
271 >        if (i > 0 && (glarang[0] <= 0 || glarang[i-1] > 180)) {
272 >                fprintf(stderr, "%s: glare angles must be between 1 and 180\n",
273                                  progname);
274                  exit(1);
275          }
276          nglarangs = i;
277          /* nglardirs = 2*nglarangs + 1; */
278 <        /* vsize = sampdens; */
278 >        /* vsize = sampdens - 1; */
279          if (nglarangs > 0)
280                  maxtheta = (PI/180.)*glarang[nglarangs-1];
281          else
282                  maxtheta = 0.0;
283 <        hlim = sampdens*maxtheta;
214 <        hsize = sampdens + hlim;
283 >        hsize = hlim(0) + sampdens - 1;
284          if (hsize > (int)(PI*sampdens))
285                  hsize = PI*sampdens;
286          indirect = (struct illum *)calloc(nglardirs, sizeof(struct illum));
287          if (indirect == NULL)
288                  memerr("indirect illuminances");
289 <        copystruct(&leftview, &ourview);
290 <        copystruct(&rightview, &ourview);
289 >        npixinvw = npixmiss = 0L;
290 >        leftview = ourview;
291 >        rightview = ourview;
292          spinvector(leftview.vdir, ourview.vdir, ourview.vup, maxtheta);
293          spinvector(rightview.vdir, ourview.vdir, ourview.vup, -maxtheta);
294          setview(&leftview);
295          setview(&rightview);
296          indirect[nglarangs].lcos =
297          indirect[nglarangs].rcos = cos(maxtheta);
298 <        indirect[nglarangs].lsin =
299 <        -(indirect[nglarangs].rsin = sin(maxtheta));
298 >        indirect[nglarangs].rsin =
299 >        -(indirect[nglarangs].lsin = sin(maxtheta));
300          indirect[nglarangs].theta = 0.0;
301          for (i = 0; i < nglarangs; i++) {
302                  d = (glarang[nglarangs-1] - glarang[i])*(PI/180.);
303                  indirect[nglarangs-i-1].lcos =
304                  indirect[nglarangs+i+1].rcos = cos(d);
305 <                indirect[nglarangs-i-1].lsin =
306 <                -(indirect[nglarangs+i+1].rsin = sin(d));
305 >                indirect[nglarangs+i+1].rsin =
306 >                -(indirect[nglarangs-i-1].lsin = sin(d));
307                  d = (glarang[nglarangs-1] + glarang[i])*(PI/180.);
308                  indirect[nglarangs-i-1].rcos =
309                  indirect[nglarangs+i+1].lcos = cos(d);
310 <                indirect[nglarangs+i+1].lsin =
311 <                -(indirect[nglarangs-i-1].rsin = sin(d));
312 <                indirect[nglarangs-i-1].theta = -(PI/180.)*glarang[i];
313 <                indirect[nglarangs+i+1].theta = (PI/180.)*glarang[i];
310 >                indirect[nglarangs-i-1].rsin =
311 >                -(indirect[nglarangs+i+1].lsin = sin(d));
312 >                indirect[nglarangs-i-1].theta = (PI/180.)*glarang[i];
313 >                indirect[nglarangs+i+1].theta = -(PI/180.)*glarang[i];
314          }
315                                                  /* open picture */
316          if (picture != NULL) {
# Line 262 | Line 332 | init()                         /* initialize global variables */
332   }
333  
334  
335 < cleanup()                               /* close files, wait for children */
335 > static void
336 > cleanup(void)                           /* close files, wait for children */
337   {
338          if (verbose)
339 <                fprintf(stderr, "%s: cleaning up...\n", progname);
339 >                fprintf(stderr, "%s: cleaning up...        \n", progname);
340          if (picture != NULL)
341                  close_pict();
342          if (octree != NULL)
343                  done_rtrace();
344 +        if (npixinvw < 100*npixmiss)
345 +                fprintf(stderr, "%s: warning -- missing %d%% of samples\n",
346 +                                progname, (int)(100L*npixmiss/npixinvw));
347   }
348  
349  
350 < compdir(vd, x, y)                       /* compute direction for x,y */
351 < FVECT   vd;
352 < int     x, y;
350 > int
351 > compdir(                        /* compute direction for x,y */
352 >        FVECT   vd,
353 >        int     x,
354 >        int     y
355 > )
356   {
357 +        int     hl;
358          FVECT   org;                    /* dummy variable */
359  
360 <        if (x <= -hlim)                 /* left region */
360 >        hl = hlim(y);
361 >        if (x <= -hl) {                 /* left region */
362 >                if (x <= -hl-sampdens)
363 >                        return(-1);
364                  return(viewray(org, vd, &leftview,
365 <                                (x+hlim)/(2.*sampdens)+.5,
366 <                                y/(2.*sampdens)+.5));
367 <        if (x >= hlim)                  /* right region */
365 >                                (double)(x+hl)/(2*sampdens)+.5,
366 >                                (double)y/(2*sampdens)+.5));
367 >        }
368 >        if (x >= hl) {                  /* right region */
369 >                if (x >= hl+sampdens)
370 >                        return(-1);
371                  return(viewray(org, vd, &rightview,
372 <                                (x-hlim)/(2.*sampdens)+.5,
373 <                                y/(2.*sampdens)+.5));
374 <                                                /* central region */
375 <        if (viewray(org, vd, &ourview, .5, y/(2.*sampdens)+.5) < 0)
372 >                                (double)(x-hl)/(2*sampdens)+.5,
373 >                                (double)y/(2*sampdens)+.5));
374 >        }
375 >                                        /* central region */
376 >        if (viewray(org, vd, &ourview, .5, (double)y/(2*sampdens)+.5) < 0)
377                  return(-1);
378 <        spinvector(vd, vd, ourview.vup, h_theta(x));
378 >        spinvector(vd, vd, ourview.vup, h_theta(x,y));
379          return(0);
380   }
381  
382  
383 < spinvector(vres, vorig, vnorm, theta)   /* rotate vector around normal */
384 < FVECT  vres, vorig, vnorm;
385 < double  theta;
383 > double
384 > pixsize(                /* return the solid angle of pixel at (x,y) */
385 >        int     x,
386 >        int     y
387 > )
388   {
389 <        extern double  sin(), cos();
390 <        double  sint, cost, dotp;
391 <        FVECT  vperp;
392 <        register int  i;
393 <        
394 <        sint = sin(theta);
395 <        cost = cos(theta);
396 <        dotp = DOT(vorig, vnorm);
397 <        fcross(vperp, vnorm, vorig);
398 <        for (i = 0; i < 3; i++)
399 <                vres[i] = vnorm[i]*dotp*(1.-cost) +
400 <                                vorig[i]*cost + vperp[i]*sint;
389 >        int     hl, xo;
390 >        double  disc;
391 >
392 >        hl = hlim(y);
393 >        if (x < -hl)
394 >                xo = x+hl;
395 >        else if (x > hl)
396 >                xo = x-hl;
397 >        else
398 >                xo = 0;
399 >        disc = 1. - (double)((long)xo*xo + (long)y*y)/((long)sampdens*sampdens);
400 >        if (disc <= FTINY*FTINY)
401 >                return(0.);
402 >        return(1./(sampdens*sampdens*sqrt(disc)));
403   }
404  
405  
406 < memerr(s)                       /* malloc failure */
407 < char    *s;
406 > void
407 > memerr(                 /* malloc failure */
408 >        char    *s
409 > )
410   {
411 <        fprintf(stderr, "%s: out of memory for %s\n", s);
411 >        fprintf(stderr, "%s: out of memory for %s\n", progname, s);
412          exit(1);
413   }
414  
415  
416 < printsources()                  /* print out glare sources */
416 > static void
417 > printsources(void)                      /* print out glare sources */
418   {
419 <        register struct source  *sp;
419 >        struct source   *sp;
420  
421          printf("BEGIN glare source\n");
422          for (sp = donelist; sp != NULL; sp = sp->next)
423 <                printf("\t%f %f %f\t%f\t%f\n",
423 >                printf("\t%f %f %f\t%e\t%e\n",
424                                  sp->dir[0], sp->dir[1], sp->dir[2],
425                                  sp->dom, sp->brt);
426          printf("END glare source\n");
427   }
428  
429  
430 < printillum()                    /* print out indirect illuminances */
430 > static void
431 > printillum(void)                        /* print out indirect illuminances */
432   {
433 <        register int    i;
433 >        int     i;
434  
435          printf("BEGIN indirect illuminance\n");
436          for (i = 0; i < nglardirs; i++)
437 <                printf("\t%.0f\t%f\n", (180.0/PI)*indirect[i].theta,
438 <                                PI * indirect[i].sum / (double)indirect[i].n);
437 >                if (indirect[i].n > FTINY)
438 >                        printf("\t%.0f\t%f\n", (180.0/PI)*indirect[i].theta,
439 >                                        PI * indirect[i].sum / indirect[i].n);
440          printf("END indirect illuminance\n");
441   }

Diff Legend

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