/* Copyright (c) 1992 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "@(#)writeoct.c 2.2 7/13/92 LBL";
#endif

/*
 *  writeoct.c - routines for writing octree information to stdout.
 *
 *     7/30/85
 */

#include  "standard.h"

#include  "octree.h"

#include  "object.h"

#include  "otypes.h"

static int  oputint(), oputstr(), puttree(), putobj();


writeoct(store, scene, ofn)		/* write octree structures to stdout */
int  store;
CUBE  *scene;
char  *ofn[];
{
	char  sbuf[64];
	register 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 */
	for (i = 0; i < NUMOTYPE; i++)
		oputstr(ofun[i].funame);
	oputstr("");
	for (i = 0; i < nobjects; i++)
		putobj(objptr(i));
	putobj(NULL);
}


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


static
putfullnode(fn)			/* 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
oputint(i, siz)			/* 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
oputflt(f)			/* put out floating point number */
double  f;
{
	putflt(f, stdout);
	if (ferror(stdout))
		error(SYSTEM, "write error in putflt");
}


static
puttree(ot)			/* 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 */
}


static
putobj(o)			/* write out object */
register OBJREC  *o;
{
	register int  i;

	if (o == NULL) {		/* terminator */
		oputint(-1L, 1);
		return;
	}
	oputint((long)o->otype, 1);
	oputint((long)o->omod, sizeof(OBJECT));
	oputstr(o->oname);
	oputint((long)o->oargs.nsargs, 2);
	for (i = 0; i < o->oargs.nsargs; i++)
		oputstr(o->oargs.sarg[i]);
#ifdef  IARGS
	oputint((long)o->oargs.niargs, 2);
	for (i = 0; i < o->oargs.niargs; i++)
		oputint((long)o->oargs.iarg[i], 4);
#endif
	oputint((long)o->oargs.nfargs, 2);
	for (i = 0; i < o->oargs.nfargs; i++)
		oputflt(o->oargs.farg[i]);
}