--- ray/src/px/panim.c	1989/12/28 08:18:49	1.3
+++ ray/src/px/panim.c	2003/11/10 12:28:56	2.5
@@ -1,9 +1,6 @@
-/* Copyright (c) 1988 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: panim.c,v 2.5 2003/11/10 12:28:56 schorsch Exp $";
 #endif
-
 /*
  *  Send pictures to PC animation system.
  *
@@ -11,8 +8,9 @@ static char SCCSid[] = "$SunId$ LBL";
  */
 
 #include <stdio.h>
-#include <rasterfile.h>
+#include <string.h>
 
+#include "rtprocess.h"
 #include "random.h"
 #include "color.h"
 #include "clntrpc.h"
@@ -20,6 +18,9 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #define GAMMA		2.0		/* gamma correction factor */
 
+
+char	*pcom = NULL;			/* pipe command */
+
 BYTE	gammamap[256];			/* gamma correction table */
 
 
@@ -35,12 +36,14 @@ char	*argv[];
 	for (progname = *argv++; --argc; argv++)
 		if (!strcmp(*argv, "-p") && argv[1]) {
 			port = atoi(*++argv); argc--;
+		} else if (!strcmp(*argv, "-u") && argv[1]) {
+			pcom = *++argv; argc--;
 		} else
 			break;
 	if (!argc) {
 		fputs("Usage: ", stderr);
 		fputs(progname, stderr);
-		fputs(" [-p port] hostname [-c copies][-r record] [frame] ..\n",
+		fputs(" [-p port] [-u uncompress] hostname [-c copies][-r record] [frame] ..\n",
 				stderr);
 		exit(1);
 	}
@@ -71,6 +74,7 @@ char	*argv[];
 sendframe(file)			/* convert and send a frame */
 char	*file;
 {
+	char	command[PATH_MAX];
 	COLR	scanin[SCANLINE];
 	int	xres, yres;
 	int	xbeg, ybeg;
@@ -79,14 +83,29 @@ char	*file;
 	register int	x;
 						/* open file */
 	if (file == NULL) {
-		fp = stdin;
+		if (pcom != NULL)
+			fp = popen(pcom, "r");
+		else
+			fp = stdin;
 		file = "<stdin>";
-	} else if ((fp = fopen(file, "r")) == NULL) {
+	} else {
+		if (pcom != NULL) {
+			sprintf(command, "( %s ) < \"%s\"", pcom, file);
+			fp = popen(command, "r");
+		} else
+			fp = fopen(file, "r");
+	}
+	if (fp == NULL) {
 		perror(file);
 		exit(1);
 	}
 						/* get dimensions */
 	getheader(fp, NULL);
+	if (checkheader(fp, COLRFMT, NULL) < 0) {
+		fputs(file, stderr);
+		fputs(": not a Radiance picture\n", stderr);
+		exit(1);
+	}
 	if (fgetresolu(&xres, &yres, fp) != (YMAJOR|YDECR) ||
 			xres > SCANLINE || yres > NUMSCANS) {
 		fputs(file, stderr);
@@ -97,7 +116,7 @@ char	*file;
 	xbeg = (SCANLINE-xres)/2;
 	ybeg = (NUMSCANS-yres)/2;
 						/* clear output */
-	bzero(sc_frame_arr, sizeof(sc_frame_arr));
+	memset(sc_frame_arr, '\0', sizeof(sc_frame_arr));
 						/* get frame */
 	for (y = yres-1; y >= 0; y--) {
 		if (freadcolrs(scanin, xres, fp) < 0) {
@@ -105,7 +124,7 @@ char	*file;
 			fputs(": read error\n", stderr);
 			exit(1);
 		}
-		normcolrs(scanin, xres);	/* normalize */
+		normcolrs(scanin, xres, 0);	/* normalize */
 		for (x = 0; x < xres; x++)	/* convert */
 			sc_frame_arr[y+ybeg][x+xbeg] =
 			((gammamap[scanin[x][RED]]+(random()&7))&0xf8)<<7
@@ -115,7 +134,10 @@ char	*file;
 						/* send frame */
 	scry_send_frame();
 						/* close file */
-	fclose(fp);
+	if (pcom != NULL)
+		pclose(fp);
+	else
+		fclose(fp);
 }
 
 
@@ -125,7 +147,7 @@ compgamma()				/* compute gamma correction map */
 	register int  i, val;
 
 	for (i = 0; i < 256; i++) {
-		val = pow(i/256.0, 1.0/GAMMA) * 256.0;
+		val = pow((i+0.5)/256.0, 1.0/GAMMA) * 256.0;
 		if (val > 248) val = 248;
 		gammamap[i] = val;
 	}