ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/common/readoct.c

Comparing ray/src/common/readoct.c (file contents):
Revision 2.13 by greg, Sat Feb 22 02:07:22 2003 UTC vs.
Revision 2.32 by greg, Tue Feb 7 20:28:16 2023 UTC

#	Line 5 | Line 5 | static const char      RCSid[] = "$Id$";
5		*  readoct.c - routines to read octree information.
6		*/
7
8	<	/* ====================================================================
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	<	*/
8	>	#include "copyright.h"
9
10	<	#include  "standard.h"
10	>	#include  <stdio.h>
11	>	#include  <time.h>
12
13	+	#include  "platform.h"
14	+	#include  "paths.h"
15	+	#include  "standard.h"
16		#include  "octree.h"
68	–
17		#include  "object.h"
70	–
18		#include  "otypes.h"
19	+	#include  "resolu.h"
20
21	<	static double  ogetflt();
22	<	static long  ogetint();
23	<	static char  *ogetstr();
24	<	static int  nonsurfinset();
25	<	static int  getobj(), octerror(), skiptree();
26	<	static OCTREE  getfullnode(), gettree();
21	>	static double  ogetflt(void);
22	>	static long  ogetint(int);
23	>	static char  *ogetstr(char *);
24	>	static int  nonsurfintree(OCTREE ot);
25	>	static void  octerror(int  etyp, char  *msg);
26	>	static void  skiptree(void);
27	>	static OCTREE  getfullnode(void), gettree(void);
28
29		static char  *infn;                     /* input file specification */
30		static FILE  *infp;                     /* input file stream */
31		static int  objsize;                    /* size of stored OBJECT's */
32		static OBJECT  objorig;                 /* zeroeth object */
33		static OBJECT  fnobjects;               /* number of objects in this file */
85	–	static short  otypmap[NUMOTYPE+8];      /* object type map */
34
35
36		int
37	<	readoct(inpspec, load, scene, ofn)      /* read in octree file or stream */
38	<	char  *inpspec;
39	<	int  load;
40	<	CUBE  *scene;
41	<	char  *ofn[];
37	>	readoct(                                /* read in octree file or stream */
38	>	char  *inpspec,
39	>	int  load,
40	>	CUBE  *scene,
41	>	char  *ofn[]
42	>	)
43		{
44		char  sbuf[512];
45		int  nf;
46	<	register int  i;
46	>	int  i;
47		long  m;
48
49		if (inpspec == NULL) {
#	Line 114 | Line 63 | char  *ofn[];
63		error(SYSTEM, errmsg);
64		}
65		}
66	<	#ifdef MSDOS
67	<	setmode(fileno(infp), O_BINARY);
66	>	#ifdef getc_unlocked                    /* avoid stupid semaphores */
67	>	flockfile(infp);
68		#endif
69	+	SET_FILE_BINARY(infp);
70		/* get header */
71		if (checkheader(infp, OCTFMT, load&IO_INFO ? stdout : (FILE *)NULL) < 0)
72		octerror(USER, "not an octree");
#	Line 154 | Line 104 | char  *ofn[];
104		else if (load & IO_SCENE && nf == 0)
105		skiptree();
106
107	<	if (load & IO_SCENE)            /* get the scene */
107	>	if (load & IO_SCENE) {          /* get the scene */
108		if (nf == 0) {
109	<	for (i = 0; *ogetstr(sbuf); i++)
110	<	if ((otypmap[i] = otype(sbuf)) < 0) {
111	<	sprintf(errmsg, "unknown type \"%s\"", sbuf);
162	<	octerror(WARNING, errmsg);
163	<	}
164	<	while (getobj() != OVOID)
165	<	;
109	>	/* load binary scene data */
110	>	readscene(infp, objsize);
111	>
112		} else {                    /* consistency checks */
113		/* check object count */
114		if (nobjects != objorig+fnobjects)
115		octerror(USER, "bad object count; octree stale?");
116		/* check for non-surfaces */
117	<	if (dosets(nonsurfinset))
117	>	if (nonsurfintree(scene->cutree))
118		octerror(USER, "modifier in tree; octree stale?");
119		}
120	+	}
121		/* close the input */
122		if (infn[0] == '!')
123		pclose(infp);
124	<	else
124	>	else if (infp != stdin)
125		fclose(infp);
126	+	#ifdef getc_unlocked
127	+	else
128	+	funlockfile(infp);
129	+	#endif
130		return(nf);
131		}
132
133
134		static char *
135	<	ogetstr(s)                      /* get null-terminated string */
185	<	char  *s;
135	>	ogetstr(char *s)                /* get null-terminated string */
136		{
137		extern char  *getstr();
138
#	Line 211 | Line 161 | getfullnode()                  /* get a set, return fullnode */
161
162
163		static long
164	<	ogetint(siz)                    /* get a siz-byte integer */
215	<	int  siz;
164	>	ogetint(int siz)                /* get a siz-byte integer */
165		{
166		extern long  getint();
167		register long  r;
#	Line 259 | Line 208 | gettree()                      /* get a pre-ordered octree */
208		default:
209		octerror(USER, "damaged octree");
210		}
211	+	return EMPTY; /* pro forma return */
212		}
213
214
215		static int
216	<	nonsurfinset(os)                        /* check set for modifier */
267	<	register OBJECT  *os;
216	>	nonsurfintree(OCTREE ot)                /* check tree for modifiers */
217		{
218	<	register OBJECT  s;
218	>	OBJECT  set[MAXSET+1];
219		register int  i;
220
221	<	for (i = *os; i-- > 0; )
222	<	if ((s = *++os) >= objorig && s < objorig+fnobjects &&
223	<	ismodifier(objptr(s)->otype))
221	>	if (isempty(ot))
222	>	return(0);
223	>	if (istree(ot)) {
224	>	for (i = 0; i < 8; i++)
225	>	if (nonsurfintree(octkid(ot, i)))
226	>	return(1);
227	>	return(0);
228	>	}
229	>	objset(set, ot);
230	>	for (i = set[0]; i > 0; i-- )
231	>	if (ismodifier(objptr(set[i])->otype))
232		return(1);
233		return(0);
234		}
235
236
237	<	static
238	<	skiptree()                              /* skip octree on input */
237	>	static void
238	>	skiptree(void)                          /* skip octree on input */
239		{
240		register int  i;
241
#	Line 302 | Line 259 | skiptree()                             /* skip octree on input */
259		}
260
261
262	<	static
263	<	getobj()                                /* get next object */
307	<	{
308	<	char  sbuf[MAXSTR];
309	<	int  obj;
310	<	register int  i;
311	<	register long  m;
312	<	register OBJREC  *objp;
313	<
314	<	i = ogetint(1);
315	<	if (i == -1)
316	<	return(OVOID);          /* terminator */
317	<	if ((obj = newobject()) == OVOID)
318	<	error(SYSTEM, "out of object space");
319	<	objp = objptr(obj);
320	<	if ((objp->otype = otypmap[i]) < 0)
321	<	octerror(USER, "reference to unknown type");
322	<	if ((m = ogetint(objsize)) != OVOID) {
323	<	m += objorig;
324	<	if ((OBJECT)m != m)
325	<	octerror(USER, "too many objects");
326	<	}
327	<	objp->omod = m;
328	<	objp->oname = savqstr(ogetstr(sbuf));
329	<	if (objp->oargs.nsargs = ogetint(2)) {
330	<	objp->oargs.sarg = (char **)malloc
331	<	(objp->oargs.nsargs*sizeof(char *));
332	<	if (objp->oargs.sarg == NULL)
333	<	goto memerr;
334	<	for (i = 0; i < objp->oargs.nsargs; i++)
335	<	objp->oargs.sarg[i] = savestr(ogetstr(sbuf));
336	<	} else
337	<	objp->oargs.sarg = NULL;
338	<	#ifdef  IARGS
339	<	if (objp->oargs.niargs = ogetint(2)) {
340	<	objp->oargs.iarg = (long *)malloc
341	<	(objp->oargs.niargs*sizeof(long));
342	<	if (objp->oargs.iarg == NULL)
343	<	goto memerr;
344	<	for (i = 0; i < objp->oargs.niargs; i++)
345	<	objp->oargs.iarg[i] = ogetint(4);
346	<	} else
347	<	objp->oargs.iarg = NULL;
348	<	#endif
349	<	if (objp->oargs.nfargs = ogetint(2)) {
350	<	objp->oargs.farg = (FLOAT *)malloc
351	<	(objp->oargs.nfargs*sizeof(FLOAT));
352	<	if (objp->oargs.farg == NULL)
353	<	goto memerr;
354	<	for (i = 0; i < objp->oargs.nfargs; i++)
355	<	objp->oargs.farg[i] = ogetflt();
356	<	} else
357	<	objp->oargs.farg = NULL;
358	<	/* initialize */
359	<	objp->os = NULL;
360	<	/* insert */
361	<	insertobject(obj);
362	<	return(obj);
363	<	memerr:
364	<	error(SYSTEM, "out of memory in getobj");
365	<	}
366	<
367	<
368	<	static
369	<	octerror(etyp, msg)                     /* octree error */
370	<	int  etyp;
371	<	char  *msg;
262	>	static void
263	>	octerror(int etyp, char *msg)           /* octree error */
264		{
265		char  msgbuf[128];
266

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)