src/rt/ambio.c

#ifndef lint
static const char       RCSid[] = "$Id: ambio.c,v 2.9 2014/06/19 16:26:55 greg Exp $";
#endif
/*
 * Read and write portable ambient values
 *
 *  Declarations of external symbols in ambient.h
 */

#include "copyright.h"

#include "ray.h"
#include "ambient.h"


#define  badflt(x)      ((x) < -FHUGE || (x) > FHUGE)

#define  badvec(v)      (badflt((v)[0]) | badflt((v)[1]) | badflt((v)[2]))


void
putambmagic(fp)                 /* write out ambient value magic number */
FILE  *fp;
{
        putint(AMBMAGIC, 2, fp);
}


int
hasambmagic(fp)                 /* read in and check validity of magic # */
FILE  *fp;
{
        int  magic;

        magic = getint(2, fp);
        if (feof(fp))
                return(0);
        return(magic == AMBMAGIC);
}


#ifndef OLDAMB

#define  putpos(v,fp)   putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)

#define  getpos(v,fp)   (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)

#define  putv2(v2,fp)   putflt((v2)[0],fp);putflt((v2)[1],fp)

#define  getv2(v2,fp)   (v2)[0]=getflt(fp);(v2)[1]=getflt(fp)

int
writambval(                     /* write ambient value to stream */
        AMBVAL  *av,
        FILE  *fp
)
{
        COLR  clr;

        putint(av->lvl, 1, fp);
        putflt(av->weight, fp);
        putpos(av->pos, fp);
        putint(av->ndir, sizeof(av->ndir), fp);
        putint(av->udir, sizeof(av->udir), fp);
        setcolr(clr, colval(av->val,RED),
                        colval(av->val,GRN), colval(av->val,BLU));
        fwrite((char *)clr, sizeof(clr), 1, fp);
        putv2(av->rad, fp);
        putv2(av->gpos, fp);
        putv2(av->gdir, fp);
        putint(av->corral, sizeof(av->corral), fp);
        return(ferror(fp) ? -1 : 0);
}


int
ambvalOK(                       /* check consistency of ambient value */
        AMBVAL  *av
)
{
        double  d;

        if (badvec(av->pos)) return(0);
        if (!av->ndir | !av->udir) return(0);
        if ((av->weight <= 0.) | (av->weight > 1.)) return(0);
        if ((av->rad[0] <= 0.) | (av->rad[0] >= FHUGE)) return(0);
        if ((av->rad[1] <= 0.) | (av->rad[1] >= FHUGE)) return(0);
        if ((colval(av->val,RED) < 0.) |
                        (colval(av->val,RED) >= FHUGE) |
                        (colval(av->val,GRN) < 0.) |
                        (colval(av->val,GRN) >= FHUGE) |
                        (colval(av->val,BLU) < 0.) |
                        (colval(av->val,BLU) >= FHUGE)) return(0);
        if (badflt(av->gpos[0]) || badflt(av->gpos[1])) return(0);
        if (badflt(av->gdir[0]) || badflt(av->gdir[1])) return(0);
        return(1);
}


int
readambval(                     /* read ambient value from stream */
        AMBVAL  *av,
        FILE  *fp
)
{
        COLR  clr;

        av->lvl = getint(1, fp) & 0xff;
        if (feof(fp))
                return(0);
        av->weight = getflt(fp);
        getpos(av->pos, fp);
        av->ndir = getint(sizeof(av->ndir), fp);
        av->udir = getint(sizeof(av->udir), fp);
        if (fread((char *)clr, sizeof(clr), 1, fp) != 1)
                return(0);
        colr_color(av->val, clr);
        getv2(av->rad, fp);
        getv2(av->gpos, fp);
        getv2(av->gdir, fp);
        av->corral = (uint32)getint(sizeof(av->corral), fp);
        return(feof(fp) ? 0 : ambvalOK(av));
}


#else /* ! NEWAMB */


#define  putvec(v,fp)   putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)

#define  getvec(v,fp)   (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)


int
writambval(av, fp)              /* write ambient value to stream */
AMBVAL  *av;
FILE  *fp;
{
        COLR  clr;

        putint(av->lvl, 1, fp);
        putflt(av->weight, fp);
        putvec(av->pos, fp);
        putvec(av->dir, fp);
        setcolr(clr, colval(av->val,RED),
                        colval(av->val,GRN), colval(av->val,BLU));
        fwrite((char *)clr, sizeof(clr), 1, fp);
        putflt(av->rad, fp);
        putvec(av->gpos, fp);
        putvec(av->gdir, fp);
        return(ferror(fp) ? -1 : 0);
}


int
ambvalOK(av)                    /* check consistency of ambient value */
AMBVAL  *av;
{
        double  d;

        if (badvec(av->pos)) return(0);
        if (badvec(av->dir)) return(0);
        d = DOT(av->dir,av->dir);
        if (d < 0.9999 || d > 1.0001) return(0);
        if (av->lvl < 0 || av->lvl > 100) return(0);
        if (av->weight <= 0. || av->weight > 1.) return(0);
        if (av->rad <= 0. || av->rad >= FHUGE) return(0);
        if (colval(av->val,RED) < 0. ||
                        colval(av->val,RED) > FHUGE ||
                        colval(av->val,GRN) < 0. ||
                        colval(av->val,GRN) > FHUGE ||
                        colval(av->val,BLU) < 0. ||
                        colval(av->val,BLU) > FHUGE) return(0);
        if (badvec(av->gpos)) return(0);
        if (badvec(av->gdir)) return(0);
        return(1);
}


int
readambval(av, fp)              /* read ambient value from stream */
AMBVAL  *av;
FILE  *fp;
{
        COLR  clr;

        av->lvl = getint(1, fp);
        if (feof(fp))
                return(0);
        av->weight = getflt(fp);
        getvec(av->pos, fp);
        getvec(av->dir, fp);
        if (fread((char *)clr, sizeof(clr), 1, fp) != 1)
                return(0);
        colr_color(av->val, clr);
        av->rad = getflt(fp);
        getvec(av->gpos, fp);
        getvec(av->gdir, fp);
        return(feof(fp) ? 0 : ambvalOK(av));
}

#endif  /* ! NEWAMB */
Revision:	2.10
Committed:	Wed Mar 2 22:03:49 2016 UTC (8 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.9:	+17 -18 lines
Log Message:	Minor changes should not affect behavior
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.10	static const char RCSid[] = "$Id: ambio.c,v 2.9 2014/06/19 16:26:55 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Read and write portable ambient values
6	greg	2.4	*
7			* Declarations of external symbols in ambient.h
8	greg	2.1	*/
9
10	greg	2.5	#include "copyright.h"
11	greg	2.1
12	greg	2.4	#include "ray.h"
13	greg	2.1	#include "ambient.h"
14
15
16	greg	2.3	#define badflt(x) ((x) < -FHUGE \|\| (x) > FHUGE)
17	greg	2.1
18	greg	2.6	#define badvec(v) (badflt((v)[0]) \| badflt((v)[1]) \| badflt((v)[2]))
19	greg	2.3
20	greg	2.1
21	greg	2.4	void
22	greg	2.2	putambmagic(fp) /* write out ambient value magic number */
23			FILE *fp;
24			{
25	greg	2.6	putint(AMBMAGIC, 2, fp);
26	greg	2.2	}
27
28
29	greg	2.4	int
30	greg	2.2	hasambmagic(fp) /* read in and check validity of magic # */
31			FILE *fp;
32			{
33	greg	2.6	int magic;
34	greg	2.2
35			magic = getint(2, fp);
36			if (feof(fp))
37			return(0);
38			return(magic == AMBMAGIC);
39			}
40
41
42	greg	2.9	#ifndef OLDAMB
43	greg	2.6
44			#define putpos(v,fp) putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)
45
46			#define getpos(v,fp) (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)
47
48			#define putv2(v2,fp) putflt((v2)[0],fp);putflt((v2)[1],fp)
49
50			#define getv2(v2,fp) (v2)[0]=getflt(fp);(v2)[1]=getflt(fp)
51
52			int
53			writambval( /* write ambient value to stream */
54			AMBVAL *av,
55			FILE *fp
56			)
57			{
58	greg	2.10	COLR clr;
59	greg	2.6
60			putint(av->lvl, 1, fp);
61			putflt(av->weight, fp);
62			putpos(av->pos, fp);
63			putint(av->ndir, sizeof(av->ndir), fp);
64			putint(av->udir, sizeof(av->udir), fp);
65	greg	2.10	setcolr(clr, colval(av->val,RED),
66	greg	2.6	colval(av->val,GRN), colval(av->val,BLU));
67	greg	2.10	fwrite((char *)clr, sizeof(clr), 1, fp);
68	greg	2.6	putv2(av->rad, fp);
69			putv2(av->gpos, fp);
70			putv2(av->gdir, fp);
71	greg	2.8	putint(av->corral, sizeof(av->corral), fp);
72	greg	2.6	return(ferror(fp) ? -1 : 0);
73			}
74
75
76			int
77			ambvalOK( /* check consistency of ambient value */
78			AMBVAL *av
79			)
80			{
81			double d;
82
83			if (badvec(av->pos)) return(0);
84			if (!av->ndir \| !av->udir) return(0);
85	greg	2.7	if ((av->weight <= 0.) \| (av->weight > 1.)) return(0);
86	greg	2.6	if ((av->rad[0] <= 0.) \| (av->rad[0] >= FHUGE)) return(0);
87			if ((av->rad[1] <= 0.) \| (av->rad[1] >= FHUGE)) return(0);
88	greg	2.7	if ((colval(av->val,RED) < 0.) \|
89	greg	2.10	(colval(av->val,RED) >= FHUGE) \|
90	greg	2.7	(colval(av->val,GRN) < 0.) \|
91	greg	2.10	(colval(av->val,GRN) >= FHUGE) \|
92	greg	2.7	(colval(av->val,BLU) < 0.) \|
93	greg	2.10	(colval(av->val,BLU) >= FHUGE)) return(0);
94	greg	2.6	if (badflt(av->gpos[0]) \|\| badflt(av->gpos[1])) return(0);
95			if (badflt(av->gdir[0]) \|\| badflt(av->gdir[1])) return(0);
96			return(1);
97			}
98
99
100			int
101			readambval( /* read ambient value from stream */
102			AMBVAL *av,
103			FILE *fp
104			)
105			{
106	greg	2.10	COLR clr;
107	greg	2.6
108	greg	2.10	av->lvl = getint(1, fp) & 0xff;
109	greg	2.6	if (feof(fp))
110			return(0);
111			av->weight = getflt(fp);
112			getpos(av->pos, fp);
113			av->ndir = getint(sizeof(av->ndir), fp);
114			av->udir = getint(sizeof(av->udir), fp);
115	greg	2.10	if (fread((char *)clr, sizeof(clr), 1, fp) != 1)
116	greg	2.6	return(0);
117	greg	2.10	colr_color(av->val, clr);
118	greg	2.6	getv2(av->rad, fp);
119			getv2(av->gpos, fp);
120			getv2(av->gdir, fp);
121	greg	2.8	av->corral = (uint32)getint(sizeof(av->corral), fp);
122	greg	2.6	return(feof(fp) ? 0 : ambvalOK(av));
123			}
124
125
126			#else /* ! NEWAMB */
127
128
129			#define putvec(v,fp) putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)
130
131			#define getvec(v,fp) (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)
132
133
134	greg	2.4	int
135	greg	2.1	writambval(av, fp) /* write ambient value to stream */
136	greg	2.6	AMBVAL *av;
137	greg	2.1	FILE *fp;
138			{
139	greg	2.10	COLR clr;
140	greg	2.1
141	greg	2.6	putint(av->lvl, 1, fp);
142	greg	2.1	putflt(av->weight, fp);
143			putvec(av->pos, fp);
144			putvec(av->dir, fp);
145	greg	2.10	setcolr(clr, colval(av->val,RED),
146	greg	2.1	colval(av->val,GRN), colval(av->val,BLU));
147	greg	2.10	fwrite((char *)clr, sizeof(clr), 1, fp);
148	greg	2.1	putflt(av->rad, fp);
149			putvec(av->gpos, fp);
150			putvec(av->gdir, fp);
151			return(ferror(fp) ? -1 : 0);
152			}
153
154
155	greg	2.3	int
156			ambvalOK(av) /* check consistency of ambient value */
157	greg	2.6	AMBVAL *av;
158	greg	2.3	{
159			double d;
160
161			if (badvec(av->pos)) return(0);
162			if (badvec(av->dir)) return(0);
163			d = DOT(av->dir,av->dir);
164			if (d < 0.9999 \|\| d > 1.0001) return(0);
165			if (av->lvl < 0 \|\| av->lvl > 100) return(0);
166			if (av->weight <= 0. \|\| av->weight > 1.) return(0);
167			if (av->rad <= 0. \|\| av->rad >= FHUGE) return(0);
168			if (colval(av->val,RED) < 0. \|\|
169			colval(av->val,RED) > FHUGE \|\|
170			colval(av->val,GRN) < 0. \|\|
171			colval(av->val,GRN) > FHUGE \|\|
172			colval(av->val,BLU) < 0. \|\|
173			colval(av->val,BLU) > FHUGE) return(0);
174			if (badvec(av->gpos)) return(0);
175			if (badvec(av->gdir)) return(0);
176			return(1);
177			}
178
179
180	greg	2.4	int
181	greg	2.1	readambval(av, fp) /* read ambient value from stream */
182	greg	2.6	AMBVAL *av;
183	greg	2.1	FILE *fp;
184			{
185	greg	2.10	COLR clr;
186	greg	2.1
187			av->lvl = getint(1, fp);
188			if (feof(fp))
189			return(0);
190			av->weight = getflt(fp);
191			getvec(av->pos, fp);
192			getvec(av->dir, fp);
193	greg	2.10	if (fread((char *)clr, sizeof(clr), 1, fp) != 1)
194	greg	2.1	return(0);
195	greg	2.10	colr_color(av->val, clr);
196	greg	2.1	av->rad = getflt(fp);
197			getvec(av->gpos, fp);
198			getvec(av->gdir, fp);
199	greg	2.3	return(feof(fp) ? 0 : ambvalOK(av));
200	greg	2.1	}
201	greg	2.6
202			#endif /* ! NEWAMB */