src/util/findglare.c

#ifndef lint
static const char       RCSid[] = "$Id: findglare.c,v 2.17 2023/01/15 16:38:10 greg Exp $";
#endif
/*
 * Find glare sources in a scene or image.
 *
 *      Greg Ward       March 1991
 */

#include "glare.h"

char    *rtargv[64] = {"rtrace", "-h-", "-ov", "-fff", "-ld-", "-i-", "-I-"};
int     rtargc = 7;

VIEW    ourview = STDVIEW;              /* our view */
VIEW    pictview = STDVIEW;             /* picture view */
VIEW    leftview, rightview;            /* leftmost and rightmost views */

char    *picture = NULL;                /* picture file name */
char    *octree = NULL;                 /* octree file name */

int     verbose = 0;                    /* verbose reporting */

double  threshold = 0.;                 /* glare threshold */

int     sampdens = SAMPDENS;            /* sample density */
ANGLE   glarang[180] = {AEND};          /* glare calculation angles */
int     nglarangs = 0;
double  maxtheta;                       /* maximum angle (in radians) */
int     hsize;                          /* horizontal size */

struct illum    *indirect;              /* array of indirect illuminances */

long    npixinvw;                       /* number of pixels in view */
long    npixmiss;                       /* number of pixels missed */

static int angcmp(const void *ap1, const void *ap2);
static void init(void);
static void cleanup(void);
static void printsources(void);
static void printillum(void);


int
main(
        int     argc,
        char    *argv[]
)
{
        int     combine = 1;
        int     gotview = 0;
        int     rval, i;
        char    *err;
                                        /* set global progname */
        fixargv0(argv[0]);
                                        /* process options */
        for (i = 1; i < argc && argv[i][0] == '-'; i++) {
                                                /* expand arguments */
                while ((rval = expandarg(&argc, &argv, i)) > 0)
                        ;
                if (rval < 0) {
                        fprintf(stderr, "%s: cannot expand '%s'\n",
                                        argv[0], argv[i]);
                        exit(1);
                }
                rval = getviewopt(&ourview, argc-i, argv+i);
                if (rval >= 0) {
                        i += rval;
                        gotview++;
                        continue;
                }
                switch (argv[i][1]) {
                case 't':
                        threshold = atof(argv[++i]);
                        break;
                case 'r':
                        sampdens = atoi(argv[++i])/2;
                        break;
                case 'v':
                        if (argv[i][2] == '\0') {
                                verbose++;
                                break;
                        }
                        if (argv[i][2] != 'f')
                                goto userr;
                        rval = viewfile(argv[++i], &ourview, NULL);
                        if (rval < 0) {
                                fprintf(stderr,
                                "%s: cannot open view file \"%s\"\n",
                                                progname, argv[i]);
                                exit(1);
                        } else if (rval == 0) {
                                fprintf(stderr,
                                        "%s: bad view file \"%s\"\n",
                                                progname, argv[i]);
                                exit(1);
                        } else
                                gotview++;
                        break;
                case 'g':
                        if (argv[i][2] != 'a')
                                goto userr;
                        if (setscan(glarang, argv[++i]) < 0) {
                                fprintf(stderr, "%s: bad angle spec \"%s\"\n",
                                        progname, argv[i]);
                                exit(1);
                        }
                        break;
                case 'p':
                        picture = argv[++i];
                        break;
                case 'c':
                        combine = !combine;
                        break;
                case 'd':
                        rtargv[rtargc++] = argv[i];
                        if (argv[i][2] != 'v')
                                rtargv[rtargc++] = argv[++i];
                        break;
                case 'l':
                        if (argv[i][2] == 'd')
                                break;
                        /* FALL THROUGH */
                case 's':
                case 'P':
                case 'n':
                        rtargv[rtargc++] = argv[i];
                        rtargv[rtargc++] = argv[++i];
                        break;
                case 'w':
                case 'u':
                case 'b':
                        rtargv[rtargc++] = argv[i];
                        break;
                case 'a':
                        rtargv[rtargc++] = argv[i];
                        if (argv[i][2] == 'v') {
                                rtargv[rtargc++] = argv[++i];
                                rtargv[rtargc++] = argv[++i];
                        }
                        rtargv[rtargc++] = argv[++i];
                        break;
                case 'm':
                        rtargv[rtargc++] = argv[i];
                        if ((argv[i][2] == 'e') | (argv[i][2] == 'a')) {
                                rtargv[rtargc++] = argv[++i];
                                rtargv[rtargc++] = argv[++i];
                        }
                        rtargv[rtargc++] = argv[++i];
                        break;
                default:
                        goto userr;
                }
        }
                                                /* get octree */
        if (i < argc-1)
                goto userr;
        if (i == argc-1) {
                rtargv[rtargc++] = octree = argv[i];
                rtargv[rtargc] = NULL;
        }
                                                /* get view */
        if (picture != NULL) {
                rval = viewfile(picture, &pictview, NULL);
                if (rval < 0) {
                        fprintf(stderr, "%s: cannot open picture file \"%s\"\n",
                                        progname, picture);
                        exit(1);
                } else if (rval == 0) {
                        fprintf(stderr,
                                "%s: cannot get view from picture \"%s\"\n",
                                        progname, picture);
                        exit(1);
                }
                if (pictview.type == VT_PAR) {
                        fprintf(stderr, "%s: %s: cannot use parallel view\n",
                                        progname, picture);
                        exit(1);
                }
                if ((err = setview(&pictview)) != NULL) {
                        fprintf(stderr, "%s: %s\n", picture, err);
                        exit(1);
                }
        }
        if (!gotview) {
                if (picture == NULL) {
                        fprintf(stderr, "%s: must have view or picture\n",
                                        progname);
                        exit(1);
                }
                ourview = pictview;
        } else if (picture != NULL && !VABSEQ(ourview.vp, pictview.vp)) {
                fprintf(stderr, "%s: picture must have same viewpoint\n",
                                progname);
                exit(1);
        }
        ourview.type = VT_HEM;
        ourview.horiz = ourview.vert = 180.0;
        ourview.hoff = ourview.voff = 0.0;
        fvsum(ourview.vdir, ourview.vdir, ourview.vup,
                        -DOT(ourview.vdir,ourview.vup));
        if ((err = setview(&ourview)) != NULL) {
                fprintf(stderr, "%s: %s\n", progname, err);
                exit(1);
        }
        if (octree == NULL && picture == NULL) {
                fprintf(stderr,
                "%s: must specify at least one of picture or octree\n",
                                progname);
                exit(1);
        }
        init();                                 /* initialize program */
        if (threshold <= FTINY)
                comp_thresh();                  /* compute glare threshold */
        analyze();                              /* analyze view */
        if (combine)
                absorb_specks();                /* eliminate tiny sources */
        cleanup();                              /* tidy up */
                                                /* print header */
        newheader("RADIANCE", stdout);
        printargs(argc, argv, stdout);
        fputs(VIEWSTR, stdout);
        fprintview(&ourview, stdout);
        printf("\n");
        fputformat("ascii", stdout);
        printf("\n");
        printsources();                         /* print glare sources */
        printillum();                           /* print illuminances */
        exit(0);
userr:
        fprintf(stderr,
"Usage: %s [view options][-ga angles][-p picture][[rtrace options] octree]\n",
                        progname);
        exit(1);
}


static int
angcmp(         /* compare two angles */
        const void      *ap1,
        const void      *ap2
)
{
        int     a1, a2;

        a1 = *(ANGLE *)ap1;
        a2 = *(ANGLE *)ap2;
        if (a1 == a2) {
                fprintf(stderr, "%s: duplicate glare angle (%d)\n",
                                progname, a1);
                exit(1);
        }
        return(a1-a2);
}


static void
init(void)                              /* initialize global variables */
{
        double  d;
        int     i;

        if (verbose)
                fprintf(stderr, "%s: initializing data structures...\n",
                                progname);
                                                /* set direction vectors */
        for (i = 0; glarang[i] != AEND; i++)
                ;
        qsort(glarang, i, sizeof(ANGLE), angcmp);
        if (i > 0 && (glarang[0] <= 0 || glarang[i-1] > 180)) {
                fprintf(stderr, "%s: glare angles must be between 1 and 180\n",
                                progname);
                exit(1);
        }
        nglarangs = i;
        /* nglardirs = 2*nglarangs + 1; */
        /* vsize = sampdens - 1; */
        if (nglarangs > 0)
                maxtheta = (PI/180.)*glarang[nglarangs-1];
        else
                maxtheta = 0.0;
        hsize = hlim(0) + sampdens - 1;
        if (hsize > (int)(PI*sampdens))
                hsize = PI*sampdens;
        indirect = (struct illum *)calloc(nglardirs, sizeof(struct illum));
        if (indirect == NULL)
                memerr("indirect illuminances");
        npixinvw = npixmiss = 0L;
        leftview = ourview;
        rightview = ourview;
        spinvector(leftview.vdir, ourview.vdir, ourview.vup, maxtheta);
        spinvector(rightview.vdir, ourview.vdir, ourview.vup, -maxtheta);
        setview(&leftview);
        setview(&rightview);
        indirect[nglarangs].lcos =
        indirect[nglarangs].rcos = cos(maxtheta);
        indirect[nglarangs].rsin =
        -(indirect[nglarangs].lsin = sin(maxtheta));
        indirect[nglarangs].theta = 0.0;
        for (i = 0; i < nglarangs; i++) {
                d = (glarang[nglarangs-1] - glarang[i])*(PI/180.);
                indirect[nglarangs-i-1].lcos =
                indirect[nglarangs+i+1].rcos = cos(d);
                indirect[nglarangs+i+1].rsin =
                -(indirect[nglarangs-i-1].lsin = sin(d));
                d = (glarang[nglarangs-1] + glarang[i])*(PI/180.);
                indirect[nglarangs-i-1].rcos =
                indirect[nglarangs+i+1].lcos = cos(d);
                indirect[nglarangs-i-1].rsin =
                -(indirect[nglarangs+i+1].lsin = sin(d));
                indirect[nglarangs-i-1].theta = (PI/180.)*glarang[i];
                indirect[nglarangs+i+1].theta = -(PI/180.)*glarang[i];
        }
                                                /* open picture */
        if (picture != NULL) {
                if (verbose)
                        fprintf(stderr, "%s: opening picture file \"%s\"...\n",
                                        progname, picture);
                open_pict(picture);
        }
                                                /* start rtrace */
        if (octree != NULL) {
                if (verbose) {
                        fprintf(stderr,
                                "%s: starting luminance calculation...\n\t",
                                        progname);
                        printargs(rtargc, rtargv, stderr);
                }
                fork_rtrace(rtargv);
        }
}


static void
cleanup(void)                           /* close files, wait for children */
{
        if (verbose)
                fprintf(stderr, "%s: cleaning up...        \n", progname);
        if (picture != NULL)
                close_pict();
        if (octree != NULL)
                done_rtrace();
        if (npixinvw < 100*npixmiss)
                fprintf(stderr, "%s: warning -- missing %d%% of samples\n",
                                progname, (int)(100L*npixmiss/npixinvw));
}


int
compdir(                        /* compute direction for x,y */
        FVECT   vd,
        int     x,
        int     y
)
{
        int     hl;
        FVECT   org;                    /* dummy variable */

        hl = hlim(y);
        if (x <= -hl) {                 /* left region */
                if (x <= -hl-sampdens)
                        return(-1);
                return(viewray(org, vd, &leftview,
                                (double)(x+hl)/(2*sampdens)+.5,
                                (double)y/(2*sampdens)+.5));
        }
        if (x >= hl) {                  /* right region */
                if (x >= hl+sampdens)
                        return(-1);
                return(viewray(org, vd, &rightview,
                                (double)(x-hl)/(2*sampdens)+.5,
                                (double)y/(2*sampdens)+.5));
        }
                                        /* central region */
        if (viewray(org, vd, &ourview, .5, (double)y/(2*sampdens)+.5) < 0)
                return(-1);
        spinvector(vd, vd, ourview.vup, h_theta(x,y));
        return(0);
}


double
pixsize(                /* return the solid angle of pixel at (x,y) */
        int     x,
        int     y
)
{
        int     hl, xo;
        double  disc;

        hl = hlim(y);
        if (x < -hl)
                xo = x+hl;
        else if (x > hl)
                xo = x-hl;
        else
                xo = 0;
        disc = 1. - (double)((long)xo*xo + (long)y*y)/((long)sampdens*sampdens);
        if (disc <= FTINY*FTINY)
                return(0.);
        return(1./(sampdens*sampdens*sqrt(disc)));
}


void
memerr(                 /* malloc failure */
        char    *s
)
{
        fprintf(stderr, "%s: out of memory for %s\n", progname, s);
        exit(1);
}


static void
printsources(void)                      /* print out glare sources */
{
        struct source   *sp;

        printf("BEGIN glare source\n");
        for (sp = donelist; sp != NULL; sp = sp->next)
                printf("\t%f %f %f\t%e\t%e\n",
                                sp->dir[0], sp->dir[1], sp->dir[2],
                                sp->dom, sp->brt);
        printf("END glare source\n");
}


static void
printillum(void)                        /* print out indirect illuminances */
{
        int     i;

        printf("BEGIN indirect illuminance\n");
        for (i = 0; i < nglardirs; i++)
                if (indirect[i].n > FTINY)
                        printf("\t%.0f\t%f\n", (180.0/PI)*indirect[i].theta,
                                        PI * indirect[i].sum / indirect[i].n);
        printf("END indirect illuminance\n");
}
Revision:	2.18
Committed:	Tue Jun 3 21:31:51 2025 UTC (3 days, 20 hours ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 2.17:	+3 -4 lines
Log Message:	refactor: More consistent use of global char * progname and fixargv0()
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.18	static const char RCSid[] = "$Id: findglare.c,v 2.17 2023/01/15 16:38:10 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Find glare sources in a scene or image.
6			*
7			* Greg Ward March 1991
8			*/
9
10			#include "glare.h"
11
12	gregl	2.8	char *rtargv[64] = {"rtrace", "-h-", "-ov", "-fff", "-ld-", "-i-", "-I-"};
13			int rtargc = 7;
14	greg	1.1
15	greg	1.6	VIEW ourview = STDVIEW; /* our view */
16	greg	1.1	VIEW pictview = STDVIEW; /* picture view */
17			VIEW leftview, rightview; /* leftmost and rightmost views */
18
19			char picture = NULL; / picture file name */
20			char octree = NULL; / octree file name */
21
22			int verbose = 0; /* verbose reporting */
23
24	greg	1.8	double threshold = 0.; /* glare threshold */
25
26	greg	1.4	int sampdens = SAMPDENS; /* sample density */
27	greg	1.1	ANGLE glarang[180] = {AEND}; /* glare calculation angles */
28			int nglarangs = 0;
29	greg	1.2	double maxtheta; /* maximum angle (in radians) */
30	greg	1.1	int hsize; /* horizontal size */
31
32			struct illum indirect; / array of indirect illuminances */
33
34	greg	1.13	long npixinvw; /* number of pixels in view */
35			long npixmiss; /* number of pixels missed */
36	greg	1.1
37	schorsch	2.12	static int angcmp(const void ap1, const void ap2);
38	schorsch	2.11	static void init(void);
39			static void cleanup(void);
40			static void printsources(void);
41			static void printillum(void);
42	greg	1.13
43	schorsch	2.11
44
45			int
46			main(
47			int argc,
48			char *argv[]
49			)
50	greg	1.1	{
51	greg	1.16	int combine = 1;
52	greg	1.1	int gotview = 0;
53			int rval, i;
54			char *err;
55	greg	2.18	/* set global progname */
56			fixargv0(argv[0]);
57	greg	1.1	/* process options */
58			for (i = 1; i < argc && argv[i][0] == '-'; i++) {
59	greg	2.7	/* expand arguments */
60	greg	2.9	while ((rval = expandarg(&argc, &argv, i)) > 0)
61			;
62			if (rval < 0) {
63	greg	2.13	fprintf(stderr, "%s: cannot expand '%s'\n",
64	greg	2.9	argv[0], argv[i]);
65			exit(1);
66			}
67	greg	1.1	rval = getviewopt(&ourview, argc-i, argv+i);
68			if (rval >= 0) {
69			i += rval;
70			gotview++;
71			continue;
72			}
73			switch (argv[i][1]) {
74	greg	1.8	case 't':
75			threshold = atof(argv[++i]);
76			break;
77	greg	1.4	case 'r':
78			sampdens = atoi(argv[++i])/2;
79			break;
80	greg	1.1	case 'v':
81			if (argv[i][2] == '\0') {
82			verbose++;
83			break;
84			}
85			if (argv[i][2] != 'f')
86			goto userr;
87	greg	2.3	rval = viewfile(argv[++i], &ourview, NULL);
88	greg	1.1	if (rval < 0) {
89			fprintf(stderr,
90			"%s: cannot open view file \"%s\"\n",
91			progname, argv[i]);
92			exit(1);
93			} else if (rval == 0) {
94			fprintf(stderr,
95			"%s: bad view file \"%s\"\n",
96			progname, argv[i]);
97			exit(1);
98			} else
99			gotview++;
100			break;
101			case 'g':
102			if (argv[i][2] != 'a')
103			goto userr;
104			if (setscan(glarang, argv[++i]) < 0) {
105			fprintf(stderr, "%s: bad angle spec \"%s\"\n",
106			progname, argv[i]);
107			exit(1);
108			}
109			break;
110			case 'p':
111			picture = argv[++i];
112			break;
113	greg	1.16	case 'c':
114			combine = !combine;
115			break;
116	greg	1.1	case 'd':
117	gregl	2.8	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	greg	2.4	break;
124			/* FALL THROUGH */
125	greg	2.2	case 's':
126	greg	2.5	case 'P':
127	greg	2.14	case 'n':
128	greg	1.1	rtargv[rtargc++] = argv[i];
129			rtargv[rtargc++] = argv[++i];
130	greg	2.4	break;
131			case 'w':
132	greg	2.14	case 'u':
133			case 'b':
134	greg	2.4	rtargv[rtargc++] = argv[i];
135	greg	1.1	break;
136			case 'a':
137			rtargv[rtargc++] = argv[i];
138			if (argv[i][2] == 'v') {
139			rtargv[rtargc++] = argv[++i];
140			rtargv[rtargc++] = argv[++i];
141			}
142			rtargv[rtargc++] = argv[++i];
143			break;
144	greg	2.14	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	greg	1.1	default:
153			goto userr;
154			}
155			}
156			/* get octree */
157			if (i < argc-1)
158			goto userr;
159			if (i == argc-1) {
160			rtargv[rtargc++] = octree = argv[i];
161			rtargv[rtargc] = NULL;
162			}
163			/* get view */
164			if (picture != NULL) {
165	greg	2.3	rval = viewfile(picture, &pictview, NULL);
166	greg	1.1	if (rval < 0) {
167			fprintf(stderr, "%s: cannot open picture file \"%s\"\n",
168			progname, picture);
169			exit(1);
170			} else if (rval == 0) {
171			fprintf(stderr,
172			"%s: cannot get view from picture \"%s\"\n",
173			progname, picture);
174			exit(1);
175			}
176			if (pictview.type == VT_PAR) {
177			fprintf(stderr, "%s: %s: cannot use parallel view\n",
178			progname, picture);
179			exit(1);
180			}
181			if ((err = setview(&pictview)) != NULL) {
182			fprintf(stderr, "%s: %s\n", picture, err);
183			exit(1);
184			}
185			}
186			if (!gotview) {
187			if (picture == NULL) {
188			fprintf(stderr, "%s: must have view or picture\n",
189			progname);
190			exit(1);
191			}
192	schorsch	2.10	ourview = pictview;
193	greg	2.15	} else if (picture != NULL && !VABSEQ(ourview.vp, pictview.vp)) {
194	greg	1.1	fprintf(stderr, "%s: picture must have same viewpoint\n",
195			progname);
196			exit(1);
197			}
198			ourview.type = VT_HEM;
199			ourview.horiz = ourview.vert = 180.0;
200			ourview.hoff = ourview.voff = 0.0;
201			fvsum(ourview.vdir, ourview.vdir, ourview.vup,
202			-DOT(ourview.vdir,ourview.vup));
203			if ((err = setview(&ourview)) != NULL) {
204			fprintf(stderr, "%s: %s\n", progname, err);
205			exit(1);
206			}
207			if (octree == NULL && picture == NULL) {
208			fprintf(stderr,
209			"%s: must specify at least one of picture or octree\n",
210			progname);
211			exit(1);
212			}
213			init(); /* initialize program */
214	greg	1.8	if (threshold <= FTINY)
215			comp_thresh(); /* compute glare threshold */
216	greg	1.1	analyze(); /* analyze view */
217	greg	1.16	if (combine)
218			absorb_specks(); /* eliminate tiny sources */
219	greg	1.1	cleanup(); /* tidy up */
220			/* print header */
221	greg	2.7	newheader("RADIANCE", stdout);
222	greg	1.1	printargs(argc, argv, stdout);
223			fputs(VIEWSTR, stdout);
224			fprintview(&ourview, stdout);
225	greg	1.18	printf("\n");
226	greg	1.21	fputformat("ascii", stdout);
227	greg	1.18	printf("\n");
228	greg	1.1	printsources(); /* print glare sources */
229			printillum(); /* print illuminances */
230			exit(0);
231			userr:
232			fprintf(stderr,
233			"Usage: %s [view options][-ga angles][-p picture][[rtrace options] octree]\n",
234			progname);
235			exit(1);
236			}
237
238
239	schorsch	2.11	static int
240			angcmp( /* compare two angles */
241			const void *ap1,
242			const void *ap2
243			)
244	greg	1.23	{
245	greg	2.16	int a1, a2;
246	greg	1.23
247	schorsch	2.11	a1 = (ANGLE )ap1;
248			a2 = (ANGLE )ap2;
249	greg	1.23	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	schorsch	2.11	static void
259			init(void) /* initialize global variables */
260	greg	1.1	{
261			double d;
262	greg	2.16	int i;
263	greg	1.1
264			if (verbose)
265			fprintf(stderr, "%s: initializing data structures...\n",
266			progname);
267			/* set direction vectors */
268			for (i = 0; glarang[i] != AEND; i++)
269			;
270	greg	1.23	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	greg	1.1	progname);
274			exit(1);
275			}
276			nglarangs = i;
277			/* nglardirs = 2nglarangs + 1; /
278	greg	1.5	/* vsize = sampdens - 1; */
279	greg	1.2	if (nglarangs > 0)
280			maxtheta = (PI/180.)*glarang[nglarangs-1];
281			else
282			maxtheta = 0.0;
283	greg	1.19	hsize = hlim(0) + sampdens - 1;
284	greg	1.4	if (hsize > (int)(PI*sampdens))
285			hsize = PI*sampdens;
286	greg	1.1	indirect = (struct illum *)calloc(nglardirs, sizeof(struct illum));
287			if (indirect == NULL)
288			memerr("indirect illuminances");
289	greg	1.13	npixinvw = npixmiss = 0L;
290	schorsch	2.10	leftview = ourview;
291			rightview = ourview;
292	greg	1.3	spinvector(leftview.vdir, ourview.vdir, ourview.vup, maxtheta);
293			spinvector(rightview.vdir, ourview.vdir, ourview.vup, -maxtheta);
294	greg	1.1	setview(&leftview);
295			setview(&rightview);
296			indirect[nglarangs].lcos =
297			indirect[nglarangs].rcos = cos(maxtheta);
298	greg	1.9	indirect[nglarangs].rsin =
299			-(indirect[nglarangs].lsin = sin(maxtheta));
300	greg	1.1	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	greg	1.9	indirect[nglarangs+i+1].rsin =
306			-(indirect[nglarangs-i-1].lsin = sin(d));
307	greg	1.1	d = (glarang[nglarangs-1] + glarang[i])*(PI/180.);
308			indirect[nglarangs-i-1].rcos =
309			indirect[nglarangs+i+1].lcos = cos(d);
310	greg	1.9	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	greg	1.1	}
315			/* open picture */
316			if (picture != NULL) {
317			if (verbose)
318			fprintf(stderr, "%s: opening picture file \"%s\"...\n",
319			progname, picture);
320			open_pict(picture);
321			}
322			/* start rtrace */
323			if (octree != NULL) {
324			if (verbose) {
325			fprintf(stderr,
326			"%s: starting luminance calculation...\n\t",
327			progname);
328			printargs(rtargc, rtargv, stderr);
329			}
330			fork_rtrace(rtargv);
331			}
332			}
333
334
335	schorsch	2.11	static void
336			cleanup(void) /* close files, wait for children */
337	greg	1.1	{
338			if (verbose)
339	greg	1.17	fprintf(stderr, "%s: cleaning up... \n", progname);
340	greg	1.1	if (picture != NULL)
341			close_pict();
342			if (octree != NULL)
343			done_rtrace();
344	greg	1.13	if (npixinvw < 100*npixmiss)
345	greg	2.3	fprintf(stderr, "%s: warning -- missing %d%% of samples\n",
346			progname, (int)(100L*npixmiss/npixinvw));
347	greg	1.1	}
348
349
350	greg	2.16	int
351	schorsch	2.11	compdir( /* compute direction for x,y */
352			FVECT vd,
353			int x,
354			int y
355			)
356	greg	1.1	{
357	greg	1.19	int hl;
358	greg	1.1	FVECT org; /* dummy variable */
359
360	greg	1.19	hl = hlim(y);
361	greg	1.22	if (x <= -hl) { /* left region */
362			if (x <= -hl-sampdens)
363			return(-1);
364	greg	1.1	return(viewray(org, vd, &leftview,
365	greg	1.19	(double)(x+hl)/(2*sampdens)+.5,
366	greg	1.13	(double)y/(2*sampdens)+.5));
367	greg	1.22	}
368			if (x >= hl) { /* right region */
369			if (x >= hl+sampdens)
370			return(-1);
371	greg	1.1	return(viewray(org, vd, &rightview,
372	greg	1.19	(double)(x-hl)/(2*sampdens)+.5,
373	greg	1.13	(double)y/(2*sampdens)+.5));
374	greg	1.22	}
375	greg	1.14	/* central region */
376	greg	1.13	if (viewray(org, vd, &ourview, .5, (double)y/(2*sampdens)+.5) < 0)
377	greg	1.1	return(-1);
378	greg	1.19	spinvector(vd, vd, ourview.vup, h_theta(x,y));
379	greg	1.1	return(0);
380	greg	1.17	}
381
382
383	greg	2.16	double
384	schorsch	2.11	pixsize( /* return the solid angle of pixel at (x,y) */
385			int x,
386			int y
387			)
388	greg	1.17	{
389	greg	2.16	int hl, xo;
390	greg	1.19	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	greg	2.6	disc = 1. - (double)((long)xoxo + (long)yy)/((long)sampdens*sampdens);
400			if (disc <= FTINY*FTINY)
401	greg	1.19	return(0.);
402			return(1./(sampdenssampdenssqrt(disc)));
403	greg	1.1	}
404
405
406	greg	2.16	void
407	schorsch	2.11	memerr( /* malloc failure */
408			char *s
409			)
410	greg	1.1	{
411	greg	1.5	fprintf(stderr, "%s: out of memory for %s\n", progname, s);
412	greg	1.1	exit(1);
413			}
414
415
416	schorsch	2.11	static void
417			printsources(void) /* print out glare sources */
418	greg	1.1	{
419	greg	2.16	struct source *sp;
420	greg	1.1
421			printf("BEGIN glare source\n");
422			for (sp = donelist; sp != NULL; sp = sp->next)
423	greg	2.17	printf("\t%f %f %f\t%e\t%e\n",
424	greg	1.1	sp->dir[0], sp->dir[1], sp->dir[2],
425			sp->dom, sp->brt);
426			printf("END glare source\n");
427			}
428
429
430	schorsch	2.11	static void
431			printillum(void) /* print out indirect illuminances */
432	greg	1.1	{
433	greg	2.16	int i;
434	greg	1.1
435			printf("BEGIN indirect illuminance\n");
436			for (i = 0; i < nglardirs; i++)
437	greg	1.12	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	greg	1.2	printf("END indirect illuminance\n");
441	greg	1.1	}