src/ot/writeoct.c

#ifndef lint
static const char RCSid[] = "$Id: writeoct.c,v 2.6 2004/04/29 14:36:49 greg Exp $";
#endif
/*
 *  writeoct.c - routines for writing octree information to stdout.
 *
 *     7/30/85
 */

#include  "standard.h"

#include  "octree.h"
#include  "object.h"
#include  "oconv.h"

#ifdef putc_unlocked            /* avoid horrendous overhead of flockfile */
#undef putc
#define putc    putc_unlocked
#endif

static void oputstr(char *s);
static void putfullnode(OCTREE fn);
static void oputint(long i, int siz);
static void oputflt(double f);
static void puttree(OCTREE ot);


void
writeoct(               /* write octree structures to stdout */
        int  store,
        CUBE  *scene,
        char  *ofn[]
)
{
        char  sbuf[64];
        int  i;
                                        /* write format number */
        oputint((long)(OCTMAGIC+sizeof(OBJECT)), 2);

        if (!(store & IO_BOUNDS))
                return;
                                        /* write boundaries */
        for (i = 0; i < 3; i++) {
                sprintf(sbuf, "%.12g", scene->cuorg[i]);
                oputstr(sbuf);
        }
        sprintf(sbuf, "%.12g", scene->cusize);
        oputstr(sbuf);
                                        /* write object file names */
        if (store & IO_FILES)
                for (i = 0; ofn[i] != NULL; i++)
                        oputstr(ofn[i]);
        oputstr("");
                                        /* write number of objects */
        oputint((long)nobjects, sizeof(OBJECT));

        if (!(store & IO_TREE))
                return;
                                        /* write the octree */
        puttree(scene->cutree);

        if (store & IO_FILES || !(store & IO_SCENE))
                return;
                                        /* write the scene */
        writescene(0, nobjects, stdout);
}


static void
oputstr(                        /* write null-terminated string to stdout */
        register char  *s
)
{
        putstr(s, stdout);
        if (ferror(stdout))
                error(SYSTEM, "write error in putstr");
}


static void
putfullnode(                    /* write out a full node */
        OCTREE  fn
)
{
        OBJECT  oset[MAXSET+1];
        register int  i;

        objset(oset, fn);
        for (i = 0; i <= oset[0]; i++)
                oputint((long)oset[i], sizeof(OBJECT));
}


static void
oputint(                        /* write a siz-byte integer to stdout */
        register long  i,
        register int  siz
)
{
        putint(i, siz, stdout);
        if (ferror(stdout))
                error(SYSTEM, "write error in putint");
}


static void
oputflt(                        /* put out floating point number */
        double  f
)
{
        putflt(f, stdout);
        if (ferror(stdout))
                error(SYSTEM, "write error in putflt");
}


static void
puttree(                        /* write octree to stdout in pre-order form */
        register OCTREE  ot
)
{
        register int  i;
        
        if (istree(ot)) {
                putc(OT_TREE, stdout);          /* indicate tree */
                for (i = 0; i < 8; i++)         /* write tree */
                        puttree(octkid(ot, i));
        } else if (isfull(ot)) {
                putc(OT_FULL, stdout);          /* indicate fullnode */
                putfullnode(ot);                /* write fullnode */
        } else
                putc(OT_EMPTY, stdout);         /* indicate empty */
}
Revision:	2.7
Committed:	Tue Nov 9 16:09:20 2004 UTC (19 years, 11 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R8, rad3R9, rad4R2P1, rad5R3
Changes since 2.6:	+2 -1 lines
Log Message:	Undefined putc macro before redefining it
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.7	static const char RCSid[] = "$Id: writeoct.c,v 2.6 2004/04/29 14:36:49 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* writeoct.c - routines for writing octree information to stdout.
6			*
7			* 7/30/85
8			*/
9
10			#include "standard.h"
11
12			#include "octree.h"
13			#include "object.h"
14	schorsch	2.5	#include "oconv.h"
15	greg	1.6
16	greg	2.6	#ifdef putc_unlocked /* avoid horrendous overhead of flockfile */
17	greg	2.7	#undef putc
18	greg	2.6	#define putc putc_unlocked
19			#endif
20	greg	1.1
21	schorsch	2.5	static void oputstr(char *s);
22			static void putfullnode(OCTREE fn);
23			static void oputint(long i, int siz);
24			static void oputflt(double f);
25			static void puttree(OCTREE ot);
26
27
28			void
29			writeoct( /* write octree structures to stdout */
30			int store,
31			CUBE *scene,
32			char *ofn[]
33			)
34	greg	1.1	{
35			char sbuf[64];
36	greg	2.4	int i;
37	greg	1.1	/* write format number */
38	greg	2.2	oputint((long)(OCTMAGIC+sizeof(OBJECT)), 2);
39	greg	1.1
40			if (!(store & IO_BOUNDS))
41			return;
42			/* write boundaries */
43			for (i = 0; i < 3; i++) {
44			sprintf(sbuf, "%.12g", scene->cuorg[i]);
45	greg	2.2	oputstr(sbuf);
46	greg	1.1	}
47			sprintf(sbuf, "%.12g", scene->cusize);
48	greg	2.2	oputstr(sbuf);
49	greg	1.1	/* write object file names */
50			if (store & IO_FILES)
51			for (i = 0; ofn[i] != NULL; i++)
52	greg	2.2	oputstr(ofn[i]);
53			oputstr("");
54	greg	1.3	/* write number of objects */
55	greg	2.2	oputint((long)nobjects, sizeof(OBJECT));
56	greg	1.1
57			if (!(store & IO_TREE))
58			return;
59			/* write the octree */
60			puttree(scene->cutree);
61
62			if (store & IO_FILES \|\| !(store & IO_SCENE))
63			return;
64			/* write the scene */
65	greg	2.4	writescene(0, nobjects, stdout);
66	greg	1.1	}
67
68
69	schorsch	2.5	static void
70			oputstr( /* write null-terminated string to stdout */
71			register char *s
72			)
73	greg	1.1	{
74	greg	2.2	putstr(s, stdout);
75	greg	1.1	if (ferror(stdout))
76			error(SYSTEM, "write error in putstr");
77			}
78
79
80	schorsch	2.5	static void
81			putfullnode( /* write out a full node */
82			OCTREE fn
83			)
84	greg	1.1	{
85			OBJECT oset[MAXSET+1];
86			register int i;
87
88			objset(oset, fn);
89			for (i = 0; i <= oset[0]; i++)
90	greg	2.2	oputint((long)oset[i], sizeof(OBJECT));
91	greg	1.1	}
92
93
94	schorsch	2.5	static void
95			oputint( /* write a siz-byte integer to stdout */
96			register long i,
97			register int siz
98			)
99	greg	1.1	{
100	greg	2.2	putint(i, siz, stdout);
101	greg	1.1	if (ferror(stdout))
102			error(SYSTEM, "write error in putint");
103			}
104
105
106	schorsch	2.5	static void
107			oputflt( /* put out floating point number */
108			double f
109			)
110	greg	1.1	{
111	greg	2.2	putflt(f, stdout);
112			if (ferror(stdout))
113			error(SYSTEM, "write error in putflt");
114	greg	1.1	}
115
116
117	schorsch	2.5	static void
118			puttree( /* write octree to stdout in pre-order form */
119			register OCTREE ot
120			)
121	greg	1.1	{
122			register int i;
123
124			if (istree(ot)) {
125			putc(OT_TREE, stdout); /* indicate tree */
126			for (i = 0; i < 8; i++) /* write tree */
127			puttree(octkid(ot, i));
128			} else if (isfull(ot)) {
129			putc(OT_FULL, stdout); /* indicate fullnode */
130			putfullnode(ot); /* write fullnode */
131			} else
132			putc(OT_EMPTY, stdout); /* indicate empty */
133			}