src/common/lamps.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 * Load lamp data.
 */

/* ====================================================================
 * The Radiance Software License, Version 1.0
 *
 * Copyright (c) 1990 - 2002 The Regents of the University of California,
 * through Lawrence Berkeley National Laboratory.   All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *         notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in
 *       the documentation and/or other materials provided with the
 *       distribution.
 *
 * 3. The end-user documentation included with the redistribution,
 *           if any, must include the following acknowledgment:
 *             "This product includes Radiance software
 *                 (http://radsite.lbl.gov/)
 *                 developed by the Lawrence Berkeley National Laboratory
 *               (http://www.lbl.gov/)."
 *       Alternately, this acknowledgment may appear in the software itself,
 *       if and wherever such third-party acknowledgments normally appear.
 *
 * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
 *       and "The Regents of the University of California" must
 *       not be used to endorse or promote products derived from this
 *       software without prior written permission. For written
 *       permission, please contact [email protected].
 *
 * 5. Products derived from this software may not be called "Radiance",
 *       nor may "Radiance" appear in their name, without prior written
 *       permission of Lawrence Berkeley National Laboratory.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
 * information on Lawrence Berkeley National Laboratory, please see
 * <http://www.lbl.gov/>.
 */

#include  <stdio.h>
#include  <stdlib.h>
#include  <ctype.h>
#include  "color.h"

extern char     *eindex(), *expsave();
extern FILE     *frlibopen();

typedef struct lamp {
        char    *pattern;                       /* search pattern */
        float   *color;                         /* pointer to lamp value */
        struct lamp     *next;                  /* next lamp in list */
} LAMP;                                 /* a lamp entry */

static LAMP     *lamps = NULL;          /* lamp list */


float *
matchlamp(s)                            /* see if string matches any lamp */
char    *s;
{
        register LAMP   *lp;

        for (lp = lamps; lp != NULL; lp = lp->next) {
                expset(lp->pattern);
                if (eindex(s) != NULL)
                        return(lp->color);
        }
        return(NULL);
}


loadlamps(file)                                 /* load lamp type file */
char    *file;
{
        LAMP    *lastp;
        register LAMP   *lp;
        FILE    *fp;
        float   xyz[3];
        char    buf[128], str[128];
        register char   *cp1, *cp2;

        if ((fp = frlibopen(file)) == NULL)
                return(0);
        lastp = NULL;
        while (fgets(buf, sizeof(buf), fp) != NULL) {
                                        /* work on a copy of buffer */
                strcpy(str, buf);
                                        /* get pattern for this entry */
                for (cp1 = str; isspace(*cp1); cp1++)
                        ;
                if (!*cp1 || *cp1 == '#')
                        continue;
                for (cp2 = cp1+1; *cp2; cp2++)
                        if (*cp2 == *cp1 && cp2[-1] != '\\')
                                break;
                if (!*cp2) {
                        cp1 = "unclosed pattern";
                        goto fmterr;
                }
                cp1++; *cp2++ = '\0';
                if (ecompile(cp1, 1, 0) < 0) {
                        cp1 = "bad regular expression";
                        goto fmterr;
                }
                if ((lp = (LAMP *)malloc(sizeof(LAMP))) == NULL)
                        goto memerr;
                if ((lp->pattern = expsave()) == NULL)
                        goto memerr;
                                                /* get specification */
                for (cp1 = cp2; isspace(*cp1); cp1++)
                        ;
                if (!isdigit(*cp1) && *cp1 != '.' && *cp1 != '(') {
                        cp1 = "missing lamp specification";
                        goto fmterr;
                }
                if (*cp1 == '(') {              /* find alias */
                        for (cp2 = ++cp1; *cp2; cp2++)
                                if (*cp2 == ')' && cp2[-1] != '\\')
                                        break;
                        *cp2 = '\0';
                        if ((lp->color = matchlamp(cp1)) == NULL) {
                                cp1 = "unmatched alias";
                                goto fmterr;
                        }
                } else {                        /* or read specificaion */
                        if ((lp->color=(float *)malloc(6*sizeof(float)))==NULL)
                                goto memerr;
                        if (sscanf(cp1, "%f %f %f", &lp->color[3], &
                                        lp->color[4], &lp->color[5]) != 3) {
                                cp1 = "bad lamp data";
                                goto fmterr;
                        }
                                                /* convert xyY to XYZ */
                        xyz[1] = lp->color[5];
                        xyz[0] = lp->color[3]/lp->color[4] * xyz[1];
                        xyz[2] = xyz[1]*(1./lp->color[4] - 1.) - xyz[0];
                                                /* XYZ to RGB */
                        cie_rgb(lp->color, xyz);
                }
                if (lastp == NULL)
                        lamps = lp;
                else
                        lastp->next = lp;
                lp->next = NULL;
                lastp = lp;
        }
        fclose(fp);
        return(lastp != NULL);
memerr:
        fputs("Out of memory in loadlamps\n", stderr);
        return(-1);
fmterr:
        fputs(buf, stderr);
        fprintf(stderr, "%s: %s\n", file, cp1);
        return(-1);
}


freelamps()                     /* free our lamps list */
{
        register LAMP   *lp1, *lp2;
        
        for (lp1 = lamps; lp1 != NULL; lp1 = lp2) {
                free(lp1->pattern);
                if (lp1->color != NULL) {
                        for (lp2 = lp1->next; lp2 != NULL; lp2 = lp2->next)
                                if (lp2->color == lp1->color)
                                        lp2->color = NULL;
                        free((void *)lp1->color);
                }
                lp2 = lp1->next;
                free((void *)lp1);
        }
        lamps = NULL;
}
Revision:	2.6
Committed:	Sat Feb 22 02:07:22 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.5:	+62 -7 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.6	static const char RCSid[] = "$Id$";
3	greg	1.1	#endif
4			/*
5			* Load lamp data.
6			*/
7
8	greg	2.6	/* ====================================================================
9			* The Radiance Software License, Version 1.0
10			*
11			* Copyright (c) 1990 - 2002 The Regents of the University of California,
12			* through Lawrence Berkeley National Laboratory. All rights reserved.
13			*
14			* Redistribution and use in source and binary forms, with or without
15			* modification, are permitted provided that the following conditions
16			* are met:
17			*
18			* 1. Redistributions of source code must retain the above copyright
19			* notice, this list of conditions and the following disclaimer.
20			*
21			* 2. Redistributions in binary form must reproduce the above copyright
22			* notice, this list of conditions and the following disclaimer in
23			* the documentation and/or other materials provided with the
24			* distribution.
25			*
26			* 3. The end-user documentation included with the redistribution,
27			* if any, must include the following acknowledgment:
28			* "This product includes Radiance software
29			* (http://radsite.lbl.gov/)
30			* developed by the Lawrence Berkeley National Laboratory
31			* (http://www.lbl.gov/)."
32			* Alternately, this acknowledgment may appear in the software itself,
33			* if and wherever such third-party acknowledgments normally appear.
34			*
35			* 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
36			* and "The Regents of the University of California" must
37			* not be used to endorse or promote products derived from this
38			* software without prior written permission. For written
39			* permission, please contact [email protected].
40			*
41			* 5. Products derived from this software may not be called "Radiance",
42			* nor may "Radiance" appear in their name, without prior written
43			* permission of Lawrence Berkeley National Laboratory.
44			*
45			* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
46			* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
47			* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
48			* DISCLAIMED. IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
49			* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
50			* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
51			* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
52			* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
53			* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
54			* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
55			* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
56			* SUCH DAMAGE.
57			* ====================================================================
58			*
59			* This software consists of voluntary contributions made by many
60			* individuals on behalf of Lawrence Berkeley National Laboratory. For more
61			* information on Lawrence Berkeley National Laboratory, please see
62			* <http://www.lbl.gov/>.
63			*/
64
65	greg	1.1	#include <stdio.h>
66	greg	2.6	#include <stdlib.h>
67	greg	1.1	#include <ctype.h>
68	greg	2.5	#include "color.h"
69	greg	1.1
70	greg	2.6	extern char eindex(), expsave();
71	greg	2.4	extern FILE *frlibopen();
72	greg	1.1
73			typedef struct lamp {
74			char pattern; / search pattern */
75			float color; / pointer to lamp value */
76			struct lamp next; / next lamp in list */
77			} LAMP; /* a lamp entry */
78
79			static LAMP lamps = NULL; / lamp list */
80
81
82			float *
83			matchlamp(s) /* see if string matches any lamp */
84			char *s;
85			{
86			register LAMP *lp;
87
88			for (lp = lamps; lp != NULL; lp = lp->next) {
89			expset(lp->pattern);
90			if (eindex(s) != NULL)
91			return(lp->color);
92			}
93			return(NULL);
94			}
95
96
97			loadlamps(file) /* load lamp type file */
98			char *file;
99			{
100			LAMP *lastp;
101			register LAMP *lp;
102			FILE *fp;
103			float xyz[3];
104			char buf[128], str[128];
105			register char cp1, cp2;
106
107	greg	2.4	if ((fp = frlibopen(file)) == NULL)
108	greg	1.1	return(0);
109			lastp = NULL;
110			while (fgets(buf, sizeof(buf), fp) != NULL) {
111			/* work on a copy of buffer */
112			strcpy(str, buf);
113			/* get pattern for this entry */
114			for (cp1 = str; isspace(*cp1); cp1++)
115			;
116			if (!cp1 \|\| cp1 == '#')
117			continue;
118			for (cp2 = cp1+1; *cp2; cp2++)
119			if (cp2 == cp1 && cp2[-1] != '\\')
120			break;
121			if (!*cp2) {
122			cp1 = "unclosed pattern";
123			goto fmterr;
124			}
125			cp1++; *cp2++ = '\0';
126			if (ecompile(cp1, 1, 0) < 0) {
127			cp1 = "bad regular expression";
128			goto fmterr;
129			}
130			if ((lp = (LAMP *)malloc(sizeof(LAMP))) == NULL)
131			goto memerr;
132			if ((lp->pattern = expsave()) == NULL)
133			goto memerr;
134			/* get specification */
135			for (cp1 = cp2; isspace(*cp1); cp1++)
136			;
137			if (!isdigit(cp1) && cp1 != '.' && *cp1 != '(') {
138			cp1 = "missing lamp specification";
139			goto fmterr;
140			}
141			if (cp1 == '(') { / find alias */
142			for (cp2 = ++cp1; *cp2; cp2++)
143			if (*cp2 == ')' && cp2[-1] != '\\')
144			break;
145			*cp2 = '\0';
146			if ((lp->color = matchlamp(cp1)) == NULL) {
147			cp1 = "unmatched alias";
148			goto fmterr;
149			}
150			} else { /* or read specificaion */
151	greg	2.3	if ((lp->color=(float )malloc(6sizeof(float)))==NULL)
152	greg	1.1	goto memerr;
153	greg	2.3	if (sscanf(cp1, "%f %f %f", &lp->color[3], &
154			lp->color[4], &lp->color[5]) != 3) {
155	greg	1.1	cp1 = "bad lamp data";
156			goto fmterr;
157			}
158			/* convert xyY to XYZ */
159	greg	2.3	xyz[1] = lp->color[5];
160			xyz[0] = lp->color[3]/lp->color[4] * xyz[1];
161			xyz[2] = xyz[1]*(1./lp->color[4] - 1.) - xyz[0];
162	greg	1.1	/* XYZ to RGB */
163			cie_rgb(lp->color, xyz);
164			}
165			if (lastp == NULL)
166			lamps = lp;
167			else
168			lastp->next = lp;
169			lp->next = NULL;
170			lastp = lp;
171			}
172			fclose(fp);
173	greg	1.3	return(lastp != NULL);
174	greg	1.1	memerr:
175			fputs("Out of memory in loadlamps\n", stderr);
176			return(-1);
177			fmterr:
178			fputs(buf, stderr);
179			fprintf(stderr, "%s: %s\n", file, cp1);
180			return(-1);
181			}
182	greg	1.2
183
184			freelamps() /* free our lamps list */
185			{
186			register LAMP lp1, lp2;
187
188	greg	2.2	for (lp1 = lamps; lp1 != NULL; lp1 = lp2) {
189	greg	1.2	free(lp1->pattern);
190			if (lp1->color != NULL) {
191			for (lp2 = lp1->next; lp2 != NULL; lp2 = lp2->next)
192			if (lp2->color == lp1->color)
193			lp2->color = NULL;
194	greg	2.6	free((void *)lp1->color);
195	greg	1.2	}
196	greg	2.2	lp2 = lp1->next;
197	greg	2.6	free((void *)lp1);
198	greg	1.2	}
199			lamps = NULL;
200			}