--- ray/src/px/pcomb.c	1991/11/12 16:04:51	2.1
+++ ray/src/px/pcomb.c	1992/10/02 16:22:51	2.8
@@ -1,4 +1,4 @@
-/* Copyright (c) 1991 Regents of the University of California */
+/* Copyright (c) 1992 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -12,11 +12,17 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include <stdio.h>
 
+#ifdef MSDOS
+#include <fcntl.h>
+#endif
+
+#include <math.h>
+
 #include <errno.h>
 
 #include "color.h"
 
-#include  "resolu.h"
+#include "resolu.h"
 
 #include "calcomp.h"
 
@@ -34,6 +40,7 @@ struct {
 
 int	nfiles;				/* number of input files */
 
+char	Command[] = "<Command>";
 char	vcolin[3][4] = {"ri", "gi", "bi"};
 char	vcolout[3][4] = {"ro", "go", "bo"};
 char	vbrtin[] = "li";
@@ -63,7 +70,9 @@ int	wrongformat = 0;
 
 FILE	*popen();
 
+extern char	*emalloc();
 
+
 main(argc, argv)
 int	argc;
 char	*argv[];
@@ -71,6 +80,12 @@ 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
 						/* scan options */
 	for (a = 1; a < argc; a++) {
 		if (argv[a][0] == '-')
@@ -124,10 +139,13 @@ char	*argv[];
 				goto usage;
 			}
 		else {
-			input[nfiles].name = argv[a];
-			input[nfiles].fp = argv[a][0]=='!' ?
-					popen(argv[a]+1, "r") :
-					fopen(argv[a], "r");
+			if (argv[a][0] == '!') {
+				input[nfiles].name = Command;
+				input[nfiles].fp = popen(argv[a]+1, "r");
+			} else {
+				input[nfiles].name = argv[a];
+				input[nfiles].fp = fopen(argv[a], "r");
+			}
 			if (input[nfiles].fp == NULL) {
 				perror(argv[a]);
 				quit(1);
@@ -343,13 +361,16 @@ advance()			/* read in data for next scanline */
 			input[i].scan[0] = st;
 			if (yscan <= MIDSCN)		/* hit bottom? */
 				continue;
-			if (freadscan(st, xmax, input[i].fp) < 0) {	/* read */
+			if (freadscan(st, xmax, input[i].fp) < 0) {  /* read */
 				eputs(input[i].name);
 				eputs(": read error\n");
 				quit(1);
 			}
-			for (j = 0; j < xmax; j++)	/* adjust color */
-				multcolor(st[j], input[i].coef);
+			if (fabs(colval(input[i].coef,RED)-1.0) > 1e-3 ||
+				fabs(colval(input[i].coef,GRN)-1.0) > 1e-3 ||
+				fabs(colval(input[i].coef,BLU)-1.0) > 1e-3)
+				for (j = 0; j < xmax; j++)  /* adjust color */
+					multcolor(st[j], input[i].coef);
 		}
 }
 
@@ -446,8 +467,15 @@ char	*msg;
 }
 
 
-quit(code)
-int	code;
+quit(code)		/* exit gracefully */
+int  code;
 {
+	register int  i;
+				/* close input files */
+	for (i = 0; i < nfiles; i++)
+		if (input[i].name == Command)
+			pclose(input[i].fp);
+		else
+			fclose(input[i].fp);
 	exit(code);
 }