static void
getfovimg(void) /* load foveal sampled image */
{
char combuf[PATH_MAX];
FILE *fp;
int x, y;
/* compute image size */
fvxr = sqrt(ourview.hn2)/FOVDIA + 0.5;
if (fvxr < 2) fvxr = 2;
fvyr = sqrt(ourview.vn2)/FOVDIA + 0.5;
if (fvyr < 2) fvyr = 2;
if (!(inpres.rt & YMAJOR)) { /* picture is rotated? */
y = fvyr;
fvyr = fvxr;
fvxr = y;
}
if ((fovimg = (COLOR *)malloc(fvxr*fvyr*sizeof(COLOR))) == NULL)
syserror("malloc");
sprintf(combuf, "pfilt -1 -b -pa 0 -x %d -y %d \"%s\"", fvxr, fvyr, infn);
if ((fp = popen(combuf, "r")) == NULL)
syserror("popen");
getheader(fp, NULL, NULL); /* skip header */
if (fgetresolu(&x, &y, fp) < 0 || (x != fvxr) | (y != fvyr))
goto readerr;
for (y = 0; y < fvyr; y++)
if (freadscan(fovscan(y), fvxr, fp) < 0)
goto readerr;
pclose(fp);
return;
readerr:
fprintf(stderr, "%s: error reading from pfilt process in fovimage\n",
progname);
exit(1);
}
static void
picdebug(void) /* put out debugging picture */
{
static COLOR blkcol = BLKCOLOR;
COLOR *scan;
int y, i;
register int x, rg;
if (fseek(stdin, 0L, 0) == EOF) {
fprintf(stderr, "%s: cannot seek on input picture\n", progname);
exit(1);
}
getheader(stdin, NULL, NULL); /* skip input header */
fgetresolu(&xmax, &ymax, stdin);
/* allocate scanline */
scan = (COLOR *)malloc(xmax*sizeof(COLOR));
if (scan == NULL) {
perror(progname);
exit(1);
}
/* finish debug header */
fputformat(COLRFMT, debugfp);
putc('\n', debugfp);
fprtresolu(xmax, ymax, debugfp);
/* write debug picture */
for (y = ymax-1; y >= 0; y--) {
if (freadscan(scan, xmax, stdin) < 0) {
fprintf(stderr, "%s: error rereading input picture\n",
progname);
exit(1);
}
for (x = 0; x < xmax; x++) {
rg = chartndx(x, y, &i);
if (rg == RG_CENT) {
if (!(1L<<i & gmtflags) || (x+y)&07) {
copycolor(scan[x], mbRGB[i]);
clipgamut(scan[x], bright(scan[x]),
CGAMUT, colmin, colmax);
} else
copycolor(scan[x], blkcol);
} else if (rg == RG_CORR)
cvtcolor(scan[x], scan[x]);
else if (rg != RG_ORIG)
copycolor(scan[x], blkcol);
}
if (fwritescan(scan, xmax, debugfp) < 0) {
fprintf(stderr, "%s: error writing debugging picture\n",
progname);
exit(1);
}
}
/* clean up */
fclose(debugfp);
free((void *)scan);
}
int
main(
int argc,
char *argv[]
)
{
int i;
progname = argv[0];
for (i = 1; i < argc; i++)
if (argv[i][0] == '-')
switch (argv[i][1]) {
case 't': /* threshold value */
thresh = atof(argv[++i]);
break;
default:
goto userr;
}
else
break;
if (i < argc-2)
goto userr;
if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
fprintf(stderr, "%s: can't open input \"%s\"\n",
progname, argv[i]);
exit(1);
}
if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
fprintf(stderr, "%s: can't open output \"%s\"\n",
progname, argv[i+1]);
exit(1);
}
/* assign threshold color */
setcolr(threshclr, thresh, thresh, thresh);
/* get our header */
if (checkheader(stdin, COLRFMT, NULL) < 0 ||
fgetresolu(&xmax, &ymax, stdin) < 0)
quiterr("bad picture format");
/* convert file */
ra2hex();
exit(0);
userr:
fprintf(stderr,
"Usage: %s [-t thresh] [input [output]]\n", progname);
exit(1);
}
static FILE *
lblopen( /* open pipe to label generator */
char *s,
int *xp,
int *yp
)
{
char com[PATH_MAX];
FILE *fp;
sprintf(com, "psign -s -.15 -a 2 -x %d -y %d '%.90s'", *xp, *yp, s);
if ((fp = popen(com, "r")) == NULL)
return(NULL);
if (checkheader(fp, COLRFMT, NULL) < 0)
goto err;
if (fgetresolu(xp, yp, fp) < 0)
goto err;
return(fp);
err:
pclose(fp);
return(NULL);
}
int
main(
int argc,
char *argv[]
)
{
int ncolumns = 0;
int autolabel = 0;
int curcol = 0, x0 = 0, curx = 0, cury = 0, spacing = 0;
int xsgn, ysgn;
char *thislabel;
int an;
SET_DEFAULT_BINARY();
SET_FILE_BINARY(stdin);
SET_FILE_BINARY(stdout);
progname = argv[0];
for (an = 1; an < argc && argv[an][0] == '-'; an++)
switch (argv[an][1]) {
case 'h':
echoheader = !echoheader;
break;
case 'x':
xsiz = atoi(argv[++an]);
break;
case 'y':
ysiz = atoi(argv[++an]);
break;
case 'b':
setcolr(bgcolr, atof(argv[an+1]),
atof(argv[an+2]),
atof(argv[an+3]));
an += 3;
break;
case 'a':
ncolumns = atoi(argv[++an]);
break;
case 's':
spacing = atoi(argv[++an]);
break;
case 'o':
curx = x0 = atoi(argv[++an]);
cury = atoi(argv[++an]);
break;
case 'l':
switch (argv[an][2]) {
case 'a':
autolabel++;
break;
case 'h':
labelht = atoi(argv[++an]);
break;
case '\0':
goto dofiles;
default:
goto userr;
}
break;
case '\0':
case 't':
goto dofiles;
default:
goto userr;
}
dofiles:
newheader("RADIANCE", stdout);
fputnow(stdout);
for (nfile = 0; an < argc; nfile++) {
if (nfile >= MAXFILE)
goto toomany;
thislabel = NULL;
input[nfile].flags = 0;
xsgn = ysgn = '-';
while (an < argc && (argv[an][0] == '-' || argv[an][0] == '+'
|| argv[an][0] == '=')) {
switch (argv[an][1]) {
case 't':
checkthresh = 1;
if (argv[an][0] == '-') {
input[nfile].flags |= HASMIN;
input[nfile].thmin = atof(argv[an+1]);
} else if (argv[an][0] == '+') {
input[nfile].flags |= HASMAX;
input[nfile].thmax = atof(argv[an+1]);
} else
goto userr;
an++;
break;
case 'l':
if (strcmp(argv[an], "-l"))
goto userr;
thislabel = argv[++an];
break;
case '+':
case '-':
case '0':
if (argv[an][0] != '=')
goto userr;
xsgn = argv[an][1];
ysgn = argv[an][2];
if (ysgn != '+' && ysgn != '-' && ysgn != '0')
goto userr;
break;
case '\0':
if (argv[an][0] == '-')
goto getfile;
goto userr;
default:
goto userr;
}
an++;
}
getfile:
if (argc-an < (ncolumns ? 1 : 3))
goto userr;
if (autolabel && thislabel == NULL)
thislabel = argv[an];
if (!strcmp(argv[an], "-")) {
input[nfile].name = StandardInput;
input[nfile].fp = stdin;
} else {
if (argv[an][0] == '!') {
input[nfile].name = Command;
input[nfile].fp = popen(argv[an]+1, "r");
} else {
input[nfile].name = argv[an];
input[nfile].fp = fopen(argv[an], "r");
}
if (input[nfile].fp == NULL) {
perror(argv[an]);
quit(1);
}
}
an++;
/* get header */
if (echoheader)
printf("%s:\n", input[nfile].name);
getheader(input[nfile].fp, headline, NULL);
if (wrongformat) {
fprintf(stderr, "%s: incompatible input format\n",
input[nfile].name);
quit(1);
}
/* get picture size */
if (fgetresolu(&input[nfile].xres, &input[nfile].yres,
input[nfile].fp) < 0) {
fprintf(stderr, "%s: bad picture size\n",
input[nfile].name);
quit(1);
}
if (ncolumns > 0) {
if (curcol >= ncolumns) {
cury = ymax + spacing;
curx = x0;
curcol = 0;
}
input[nfile].xloc = curx;
input[nfile].yloc = cury;
curx += input[nfile].xres + spacing;
curcol++;
} else {
input[nfile].xloc = atoi(argv[an++]);
if (xsgn == '+')
input[nfile].xloc -= input[nfile].xres;
else if (xsgn == '0')
input[nfile].xloc -= input[nfile].xres/2;
input[nfile].yloc = atoi(argv[an++]);
if (ysgn == '+')
input[nfile].yloc -= input[nfile].yres;
else if (ysgn == '0')
input[nfile].yloc -= input[nfile].yres/2;
}
if (input[nfile].xloc < xmin)
xmin = input[nfile].xloc;
if (input[nfile].yloc < ymin)
ymin = input[nfile].yloc;
if (input[nfile].xloc+input[nfile].xres > xmax)
xmax = input[nfile].xloc+input[nfile].xres;
if (input[nfile].yloc+input[nfile].yres > ymax)
ymax = input[nfile].yloc+input[nfile].yres;
if (thislabel != NULL) {
if (++nfile >= MAXFILE)
goto toomany;
input[nfile].name = Label;
input[nfile].flags = 0;
input[nfile].xres = input[nfile-1].xres;
input[nfile].yres = labelht;
if ((input[nfile].fp = lblopen(thislabel,
&input[nfile].xres,
&input[nfile].yres)) == NULL)
goto labelerr;
input[nfile].xloc = input[nfile-1].xloc;
input[nfile].yloc = input[nfile-1].yloc +
input[nfile-1].yres-input[nfile].yres;
}
}
if (xsiz <= 0)
xsiz = xmax;
else if (xsiz > xmax)
xmax = xsiz;
if (ysiz <= 0)
ysiz = ymax;
else if (ysiz > ymax)
ymax = ysiz;
/* add new header info. */
printargs(argc, argv, stdout);
if (strcmp(ourfmt, PICFMT))
fputformat(ourfmt, stdout); /* print format if known */
putchar('\n');
fprtresolu(xsiz, ysiz, stdout);
compos();
quit(0);
userr:
fprintf(stderr,
"Usage: %s [-h][-x xr][-y yr][-b r g b][-a n][-s p][-o x0 y0][-la][-lh h] ",
progname);
fprintf(stderr, "[-t min1][+t max1][-l lab][=SS] pic1 x1 y1 ..\n");
quit(1);
toomany:
fprintf(stderr, "%s: only %d files and labels allowed\n",
progname, MAXFILE);
quit(1);
labelerr:
fprintf(stderr, "%s: error opening label\n", progname);
quit(1);
return 1; /* pro forma return */
}
int
main(
int argc,
char **argv
)
{
int i;
progname = argv[0];
for (i = 1; i < argc && argv[i][0] == '-'; i++)
switch (argv[i][1]) {
case 'd': /* debug output */
i++;
if (badarg(argc-i, argv+i, "s"))
goto userr;
if ((debugfp = fopen(argv[i], "w")) == NULL) {
perror(argv[i]);
exit(1);
}
SET_FILE_BINARY(debugfp);
newheader("RADIANCE", debugfp); /* start */
printargs(argc, argv, debugfp); /* header */
break;
case 'p': /* picture position */
if (badarg(argc-i-1, argv+i+1, "iiiiiiii"))
goto userr;
bounds[0][0] = atoi(argv[++i]);
bounds[0][1] = atoi(argv[++i]);
bounds[1][0] = atoi(argv[++i]);
bounds[1][1] = atoi(argv[++i]);
bounds[2][0] = atoi(argv[++i]);
bounds[2][1] = atoi(argv[++i]);
bounds[3][0] = atoi(argv[++i]);
bounds[3][1] = atoi(argv[++i]);
scanning = 2;
break;
case 'P': /* pick position */
scanning = 3;
break;
case 'i': /* irradiance factor */
i++;
if (badarg(argc-i, argv+i, "f"))
goto userr;
irrad = atof(argv[i]);
break;
case 'm': /* raw map output */
rawmap = 1;
break;
case 'c': /* color input */
scanning = 0;
break;
default:
goto userr;
}
/* open files */
if (i < argc && freopen(argv[i], "r", stdin) == NULL) {
perror(argv[i]);
exit(1);
}
if (i+1 < argc && freopen(argv[i+1], "w", stdout) == NULL) {
perror(argv[i+1]);
exit(1);
}
if (scanning) { /* load input picture header */
SET_FILE_BINARY(stdin);
if (checkheader(stdin, COLRFMT, NULL) < 0 ||
fgetresolu(&xmax, &ymax, stdin) < 0) {
fprintf(stderr, "%s: bad input picture\n", progname);
exit(1);
}
if (scanning == 3) {
if (i >= argc)
goto userr;
pickchartpos(argv[i]);
scanning = 2;
}
} else { /* else set default xmax and ymax */
xmax = 512;
ymax = 2*512/3;
}
if (scanning != 2) { /* use default boundaries */
bounds[0][0] = bounds[2][0] = .029*xmax + .5;
bounds[0][1] = bounds[1][1] = .956*ymax + .5;
bounds[1][0] = bounds[3][0] = .971*xmax + .5;
bounds[2][1] = bounds[3][1] = .056*ymax + .5;
}
init(); /* initialize */
if (scanning) /* get picture colors */
getpicture();
else
getcolors();
compute(); /* compute color mapping */
if (rawmap) { /* print out raw correspondence */
register int j;
printf("# Color correspondence produced by:\n#\t\t");
printargs(argc, argv, stdout);
printf("#\tUsage: pcwarp %s uncorrected.hdr > corrected.hdr\n",
i+1 < argc ? argv[i+1] : "{this_file}");
printf("#\t Or: pcond [options] -m %s orig.hdr > output.hdr\n",
i+1 < argc ? argv[i+1] : "{this_file}");
for (j = 0; j < 24; j++)
printf("%f %f %f %f %f %f\n",
colval(inpRGB[j],RED), colval(inpRGB[j],GRN),
colval(inpRGB[j],BLU), colval(mbRGB[j],RED),
colval(mbRGB[j],GRN), colval(mbRGB[j],BLU));
if (scanning && debugfp != NULL)
cwarp(); /* color warp for debugging */
} else { /* print color mapping */
/* print header */
printf("{\n\tColor correction file computed by:\n\t\t");
printargs(argc, argv, stdout);
printf("\n\tUsage: pcomb -f %s uncorrected.hdr > corrected.hdr\n",
i+1 < argc ? argv[i+1] : "{this_file}");
if (!scanning)
printf("\t Or: pcond [options] -f %s orig.hdr > output.hdr\n",
i+1 < argc ? argv[i+1] : "{this_file}");
printf("}\n");
putmapping(); /* put out color mapping */
}
if (debugfp != NULL) { /* put out debug picture */
if (scanning)
picdebug();
else
clrdebug();
}
exit(0);
userr:
fprintf(stderr,
"Usage: %s [-d dbg.hdr][-P | -p xul yul xur yur xll yll xlr ylr][-i irrad][-m] input.hdr [output.{cal|cwp}]\n",
progname);
fprintf(stderr, " or: %s [-d dbg.hdr][-i irrad][-m] -c [xyY.dat [output.{cal|cwp}]]\n",
progname);
exit(1);
return 1; /* pro forma return */
}
static int
transfer( /* transfer a Radiance picture */
char *ospec
)
{
char oname[PATH_MAX];
FILE *fp;
int order;
int xmax, ymax;
COLR *scanin;
int y;
/* get header info. */
if (!(y = loadheader(stdin)))
return(0);
if (y < 0 || (order = fgetresolu(&xmax, &ymax, stdin)) < 0) {
fprintf(stderr, "%s: bad input format\n", progname);
exit(1);
}
/* did we pass the target frame? */
if (findframe && findframe < frameno)
return(0);
/* allocate scanline */
scanin = (COLR *)tempbuffer(xmax*sizeof(COLR));
if (scanin == NULL) {
perror(progname);
exit(1);
}
/* skip frame? */
if (findframe > frameno) {
for (y = ymax; y--; )
if (freadcolrs(scanin, xmax, stdin) < 0) {
fprintf(stderr,
"%s: error reading input picture\n",
progname);
exit(1);
}
return(1);
}
/* open output file/command */
if (ospec == NULL) {
strcpy(oname, "<stdout>");
fp = stdout;
} else {
sprintf(oname, ospec, frameno);
if (oname[0] == '!') {
if ((fp = popen(oname+1, "w")) == NULL) {
fprintf(stderr, "%s: cannot start \"%s\"\n",
progname, oname);
exit(1);
}
} else {
if (!force && access(oname, 0) >= 0) {
fprintf(stderr,
"%s: output file \"%s\" exists\n",
progname, oname);
exit(1);
}
if ((fp = fopen(oname, "w")) == NULL) {
fprintf(stderr, "%s: ", progname);
perror(oname);
exit(1);
}
}
}
SET_FILE_BINARY(fp);
dumpheader(fp); /* put out header */
fputs(progname, fp);
if (bradj)
fprintf(fp, " -e %+d", bradj);
if (!doflat)
fputs(" -r", fp);
fputc('\n', fp);
if (bradj)
fputexpos(pow(2.0, (double)bradj), fp);
fputc('\n', fp);
fputresolu(order, xmax, ymax, fp);
/* transfer picture */
for (y = ymax; y--; ) {
if (freadcolrs(scanin, xmax, stdin) < 0) {
fprintf(stderr, "%s: error reading input picture\n",
progname);
exit(1);
}
if (bradj)
shiftcolrs(scanin, xmax, bradj);
if (doflat)
putbinary((char *)scanin, sizeof(COLR), xmax, fp);
else
fwritecolrs(scanin, xmax, fp);
if (ferror(fp)) {
fprintf(stderr, "%s: error writing output to \"%s\"\n",
progname, oname);
exit(1);
}
}
/* clean up */
if (oname[0] == '!')
pclose(fp);
else if (ospec != NULL)
fclose(fp);
return(1);
}
int
main(
int argc,
char *argv[]
)
{
static char picfmt[MAXFMTLEN] = PICFMT;
int rval;
FILE *fin;
SET_DEFAULT_BINARY();
SET_FILE_BINARY(stdout);
progname = argv[0];
while (argc > 2 && argv[1][0] == '-') {
switch (argv[1][1]) {
case 'c':
correctorder = 1;
break;
case 'r':
ccw = 1;
break;
default:
goto userr;
}
argc--; argv++;
}
if (argc != 2 && argc != 3)
goto userr;
if ((fin = fopen(argv[1], "r")) == NULL) {
fprintf(stderr, "%s: cannot open\n", argv[1]);
exit(1);
}
if (argc == 3 && freopen(argv[2], "w", stdout) == NULL) {
fprintf(stderr, "%s: cannot open\n", argv[2]);
exit(1);
}
/* transfer header */
if ((rval = checkheader(fin, picfmt, stdout)) < 0) {
fprintf(stderr, "%s: not a Radiance picture\n", progname);
exit(1);
}
if (rval)
fputformat(picfmt, stdout);
/* add new header info. */
fputs(progname, stdout);
if (ccw) fputs(" -r", stdout);
if (correctorder) fputs(" -c", stdout);
fputs("\n\n", stdout);
/* get picture size */
if ((order = fgetresolu(&xres, &yres, fin)) < 0) {
fprintf(stderr, "%s: bad picture size\n", progname);
exit(1);
}
/* write new picture size */
fputresolu(neworder(), yres, xres, stdout);
/* compute buffer capacity */
nrows = sizeof(buf)/sizeof(COLR)/yres;
if (ccw) /* rotate the image */
rotateccw(fin);
else
rotatecw(fin);
exit(0);
userr:
fprintf(stderr, "Usage: %s [-r][-c] infile [outfile]\n", progname);
exit(1);
}
int
main(int argc, char *argv[])
{
int bitsperpix;
int i;
SET_DEFAULT_BINARY();
SET_FILE_BINARY(stdin);
SET_FILE_BINARY(stdout);
progname = argv[0];
samplefac = 0;
for (i = 1; i < argc; i++)
if (argv[i][0] == '-')
switch (argv[i][1]) {
case 'g':
gamv = atof(argv[++i]);
break;
case 'b':
greyscale = 1;
break;
case 'd':
dither = !dither;
break;
case 'c':
ncolors = atoi(argv[++i]);
break;
case 'e':
if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
goto userr;
bradj = atoi(argv[++i]);
break;
case 'n':
samplefac = atoi(argv[++i]);
break;
default:
goto userr;
}
else
break;
if (i < argc-2)
goto userr;
if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
fprintf(stderr, "%s: cannot open input \"%s\"\n",
progname, argv[i]);
exit(1);
}
if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
fprintf(stderr, "%s: cannot open output \"%s\"\n",
progname, argv[i+1]);
exit(1);
}
if (checkheader(stdin, COLRFMT, NULL) < 0 ||
fgetresolu(&xmax, &ymax, stdin) < 0) {
fprintf(stderr, "%s: bad picture format\n", progname);
exit(1);
}
picstart = ftell(stdin);
currow = -1;
scanln = (COLR *)malloc(xmax*sizeof(COLR));
if (scanln == NULL) {
fprintf(stderr, "%s: out of memory\n", progname);
exit(1);
}
/* set up gamma correction */
setcolrgam(gamv);
/* figure out the bits per pixel */
if ((ncolors < 2) | (ncolors > MAXCOLORS))
ncolors = MAXCOLORS;
for (bitsperpix = 1; ncolors > 1<<bitsperpix; bitsperpix++)
;
/* compute color map */
if (greyscale)
mkgrymap(ncolors);
else
mkclrmap(ncolors);
/* convert image */
GIFEncode(stdout, xmax, ymax, 0, 0, bitsperpix,
rmap, gmap, bmap, getgifpix);
exit(0);
userr:
fprintf(stderr,
"Usage: %s [-b][-d][-n samp][-c ncolors][-g gamv][-e +/-stops] input [output]\n",
progname);
exit(1);
}
int
main(int argc, char *argv[])
{
int i;
double d;
progname = argv[0];
for (i = 1; i < argc; i++)
if (argv[i][0] == '-')
switch (argv[i][1]) {
case 'b': /* produce b&w PostScript */
docolor = 0;
break;
case 'c': /* produce color PostScript */
docolor = 1;
break;
case 'A': /* standard ASCII encoding */
putprim = Aputprim;
break;
case 'B': /* standard binary encoding */
putprim = Bputprim;
break;
case 'C': /* compressed ASCII encoding */
putprim = Cputprim;
break;
case 'd': /* print density */
dpi = atof(argv[++i]);
break;
case 'g': /* device gamma adjustment */
devgam = atof(argv[++i]);
break;
case 'p': /* paper size */
parsepaper(argv[++i]);
break;
case 'm': /* margin */
d = atof(argv[i+1]);
d *= unit2inch(argv[i+1]);
switch (argv[i][2]) {
case '\0':
hmarg = vmarg = d;
break;
case 'h':
hmarg = d;
break;
case 'v':
vmarg = d;
break;
default:
goto userr;
}
i++;
break;
case 'e': /* exposure adjustment */
if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
goto userr;
bradj = atoi(argv[++i]);
break;
case 'n': /* number of copies */
ncopies = atoi(argv[++i]);
break;
default:
goto userr;
}
else
break;
if (i < argc-2)
goto userr;
if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
fprintf(stderr, "%s: can't open input \"%s\"\n",
progname, argv[i]);
exit(1);
}
if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
fprintf(stderr, "%s: can't open output \"%s\"\n",
progname, argv[i+1]);
exit(1);
}
SET_FILE_BINARY(stdin);
/* get our header */
getheader(stdin, headline, NULL);
if (wrongformat || fgetresolu(&xmax, &ymax, stdin) < 0)
quiterr("bad picture format");
/* gamma compression */
if (devgam <= 0.05)
devgam = docolor ? DEFCGAM : DEFGGAM;
if (putprim == Cputprim)
setcolrgam(CODE6GAM);
else if (devgam != 1.)
setcolrgam(devgam);
/* write header */
PSheader(argc, argv);
/* convert file */
ra2ps();
/* write trailer */
PStrailer();
exit(0);
userr:
fprintf(stderr,
"Usage: %s [-b|c][-A|B|C][-e +/-stops][-p paper][-m[h|v] margin][-d dpi][-g gamma] [input [output]]\n",
progname);
exit(1);
}
int
main(
int argc,
char *argv[]
)
{
char inpbuf[2];
int gryflag = 0;
int binflag = 1;
int reverse = 0;
int ptype;
int i;
progname = argv[0];
for (i = 1; i < argc; i++)
if (argv[i][0] == '-')
switch (argv[i][1]) {
case 's':
maxval = atoi(argv[++i]) & 0xffff;
break;
case 'b':
gryflag = 1;
break;
case 'g':
gamcor = atof(argv[++i]);
break;
case 'e':
if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
goto userr;
bradj = atoi(argv[++i]);
break;
case 'a':
binflag = 0;
break;
case 'r':
reverse = !reverse;
break;
default:
goto userr;
}
else
break;
if (i < argc-2)
goto userr;
if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
fprintf(stderr, "%s: can't open input \"%s\"\n",
progname, argv[i]);
exit(1);
}
if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
fprintf(stderr, "%s: can't open output \"%s\"\n",
progname, argv[i+1]);
exit(1);
}
if (maxval < 256)
setcolrgam(gamcor);
if (reverse) {
/* get header */
if (read(fileno(stdin), inpbuf, 2) != 2 || inpbuf[0] != 'P')
quiterr("input not a Poskanzer Pixmap");
ptype = inpbuf[1];
#ifdef _WIN32
if (ptype > 4)
SET_FILE_BINARY(stdin);
SET_FILE_BINARY(stdout);
#endif
xmax = scanint(stdin);
ymax = scanint(stdin);
maxval = scanint(stdin);
/* put header */
newheader("RADIANCE", stdout);
printargs(i, argv, stdout);
fputformat(COLRFMT, stdout);
putchar('\n');
fprtresolu(xmax, ymax, stdout);
/* convert file */
if (maxval >= 256)
switch (ptype) {
case '2':
ppm2ra2(agryscan2);
break;
case '5':
ppm2ra2(bgryscan2);
break;
case '3':
ppm2ra2(aclrscan2);
break;
case '6':
ppm2ra2(bclrscan2);
break;
default:
quiterr("unsupported Pixmap type");
}
else
switch (ptype) {
case '2':
ppm2ra(agryscan);
break;
case '5':
ppm2ra(bgryscan);
break;
case '3':
ppm2ra(aclrscan);
break;
case '6':
ppm2ra(bclrscan);
break;
default:
quiterr("unsupported Pixmap type");
}
} else {
#ifdef _WIN32
SET_FILE_BINARY(stdin);
if (binflag)
SET_FILE_BINARY(stdout);
#endif
/* get header info. */
if (checkheader(stdin, COLRFMT, NULL) < 0 ||
fgetresolu(&xmax, &ymax, stdin) < 0)
quiterr("bad picture format");
/* write PPM header */
printf("P%1d\n%d %d\n%u\n", (gryflag?2:3)+(binflag?3:0),
xmax, ymax, maxval);
/* convert file */
if (maxval >= 256)
ra2ppm2(binflag, gryflag);
else
ra2ppm(binflag, gryflag);
}
exit(0);
userr:
fprintf(stderr,
"Usage: %s [-r][-a][-b][-s maxv][-g gamma][-e +/-stops] [input [output]]\n",
progname);
exit(1);
}