--- ray/src/px/pcomb.c	1996/09/19 12:10:46	2.20
+++ ray/src/px/pcomb.c	2003/07/21 22:30:18	2.26
@@ -1,9 +1,6 @@
-/* Copyright (c) 1992 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: pcomb.c,v 2.26 2003/07/21 22:30:18 schorsch Exp $";
 #endif
-
 /*
  *  Combine picture files according to calcomp functions.
  *
@@ -11,17 +8,13 @@ static char SCCSid[] = "$SunId$ LBL";
  */
 
 #include "standard.h"
-
+#include "platform.h"
 #include "color.h"
-
-#include "resolu.h"
-
 #include "calcomp.h"
-
 #include "view.h"
 
 #define MAXINP		32		/* maximum number of input files */
-#define WINSIZ		17		/* scanline window size */
+#define WINSIZ		64		/* scanline window size */
 #define MIDSCN		((WINSIZ-1)/2+1)
 
 struct {
@@ -88,12 +81,9 @@ char	*argv[];
 	int	original;
 	double	f;
 	int	a, i;
-#ifdef MSDOS
-	extern int  _fmode;
-	_fmode = O_BINARY;
-	setmode(fileno(stdin), O_BINARY);
-	setmode(fileno(stdout), O_BINARY);
-#endif
+	SET_DEFAULT_BINARY();
+	SET_FILE_BINARY(stdin);
+	SET_FILE_BINARY(stdout);
 	progname = argv[0];
 						/* scan options */
 	for (a = 1; a < argc; a++) {
@@ -114,11 +104,12 @@ char	*argv[];
 		break;
 	}
 	newheader("RADIANCE", stdout);	/* start header */
+	fputnow(stdout);
 					/* process files */
 	for (nfiles = 0; nfiles < MAXINP; nfiles++) {
 		setcolor(input[nfiles].coef, 1.0, 1.0, 1.0);
 		setcolor(input[nfiles].expos, 1.0, 1.0, 1.0);
-		copystruct(&input[nfiles].vw, &stdview);
+		input[nfiles].vw = stdview;
 		input[nfiles].pa = 1.0;
 	}
 	nfiles = 0;
@@ -171,6 +162,7 @@ char	*argv[];
 					colval(input[nfiles].expos,GRN);
 			colval(input[nfiles].coef,BLU) /=
 					colval(input[nfiles].expos,BLU);
+			setcolor(input[nfiles].expos, 1.0, 1.0, 1.0);
 		}
 		nfiles++;
 		original = 0;
@@ -227,7 +219,7 @@ usage:
 }
 
 
-tputs(s)			/* put out string preceded by a tab */
+tabputs(s)			/* put out string preceded by a tab */
 char	*s;
 {
 	char	fmt[32];
@@ -235,14 +227,14 @@ char	*s;
 	COLOR	ctmp;
 
 	if (isheadid(s))			/* header id */
-		return;		/* don't echo */
+		return(0);	/* don't echo */
 	if (formatval(fmt, s)) {		/* check format */
 		if (globmatch(ourfmt, fmt)) {
 			wrongformat = 0;
 			strcpy(ourfmt, fmt);
 		} else
-			wrongformat = 1;
-		return;		/* don't echo */
+			wrongformat = globmatch(PICFMT, fmt) ? 1 : -1;
+		return(0);	/* don't echo */
 	}
 	if (isexpos(s)) {			/* exposure */
 		d = exposval(s);
@@ -256,7 +248,7 @@ char	*s;
 		gotview++;
 						/* echo line */
 	putchar('\t');
-	fputs(s, stdout);
+	return(fputs(s, stdout));
 }
 
 
@@ -267,12 +259,16 @@ checkfile()			/* ready a file */
 	gotview = 0;
 	fputs(input[nfiles].name, stdout);
 	fputs(":\n", stdout);
-	getheader(input[nfiles].fp, tputs, NULL);
-	if (wrongformat) {
+	getheader(input[nfiles].fp, tabputs, NULL);
+	if (wrongformat < 0) {
 		eputs(input[nfiles].name);
-		eputs(": not in Radiance picture format\n");
+		eputs(": not a Radiance picture\n");
 		quit(1);
 	}
+	if (wrongformat > 0) {
+		wputs(input[nfiles].name);
+		wputs(": warning -- incompatible picture format\n");
+	}
 	if (!gotview || setview(&input[nfiles].vw) != NULL)
 		input[nfiles].vw.type = 0;
 	if (!fgetsresolu(&input[nfiles].rs, input[nfiles].fp)) {
@@ -397,7 +393,7 @@ combine()			/* combine pictures */
 		    quit(1);
 	    }
 	}
-	efree(scanout);
+	efree((char *)scanout);
 }
 
 
@@ -522,7 +518,7 @@ register char	*nam;
 	static unsigned long	ltick[MAXINP];
 	static FVECT	lorg[MAXINP], ldir[MAXINP];
 	static double	ldist[MAXINP];
-	FLOAT	loc[2];
+	RREAL	loc[2];
 	int	fn;
 	register int	i;
 
@@ -531,7 +527,7 @@ register char	*nam;
 		errno = EDOM;
 		return(0.0);
 	}
-	if (ltick[fn] < eclock) {		/* need to compute? */
+	if (ltick[fn] != eclock) {		/* need to compute? */
 		lorg[fn][0] = lorg[fn][1] = lorg[fn][2] = 0.0;
 		ldir[fn][0] = ldir[fn][1] = ldir[fn][2] = 0.0;
 		ldist[fn] = -1.0;
@@ -560,7 +556,7 @@ l_psize()			/* compute pixel size in steradians */
 	static unsigned long	ltick[MAXINP];
 	static double	psize[MAXINP];
 	FVECT	dir0, org, dirx, diry;
-	FLOAT	locx[2], locy[2];
+	RREAL	locx[2], locy[2];
 	double	d;
 	int	fn;
 	register int	i;
@@ -571,7 +567,7 @@ l_psize()			/* compute pixel size in steradians */
 		return(0.0);
 	}
 	fn = d - .5;
-	if (ltick[fn] < eclock) {		/* need to compute? */
+	if (ltick[fn] != eclock) {		/* need to compute? */
 		psize[fn] = 0.0;
 		if (input[fn].vw.type == 0)
 			errno = EDOM;
@@ -591,7 +587,7 @@ l_psize()			/* compute pixel size in steradians */
 					diry[i] -= dir0[i];
 				}
 				fcross(dir0, dirx, diry);
-				psize[fn] = 0.5 * sqrt(DOT(dir0,dir0));
+				psize[fn] = sqrt(DOT(dir0,dir0));
 			}
 		}
 		ltick[fn] = eclock;
@@ -600,6 +596,7 @@ l_psize()			/* compute pixel size in steradians */
 }
 
 
+void
 wputs(msg)
 char	*msg;
 {
@@ -608,6 +605,7 @@ char	*msg;
 }
 
 
+void
 eputs(msg)
 char	*msg;
 {
@@ -615,6 +613,7 @@ char	*msg;
 }
 
 
+void
 quit(code)		/* exit gracefully */
 int  code;
 {