#include <stdio.h>
#include <cvl/cvl.h>

/*
 * FOHEAD outputs a CVL picture header to the specified stream.
 * The length of the comment field is returned, unless an error occurs,
 * in which case -1 is returned.
 */

/* Joseph Pallas        9/18/80         cc -O -c fohead.c        */

int fohead (fout, newarea)
FILE *fout;
struct cvl_p *newarea;
{

	if (fwrite(newarea, 1, sizeof *newarea, fout) != sizeof *newarea)
		return(-1);
	return(newarea->cv_lcom);
}