26 |
|
int putprim = ALL; /* what to put out */ |
27 |
|
int reverse = 0; /* reverse conversion? */ |
28 |
|
int format = 'a'; /* input/output format */ |
29 |
< |
char *fmtid = "ascii"; /* format identifier for header */ |
29 |
> |
const char *fmtid = "ascii"; /* format identifier for header */ |
30 |
|
int header = 1; /* do header? */ |
31 |
|
long skipbytes = 0; /* skip bytes in input? */ |
32 |
|
int swapbytes = 0; /* swap bytes? */ |
66 |
|
static putfunc_t putcascii, putcint, putcdouble, putcfloat, putcbyte, putcword; |
67 |
|
static putfunc_t putpascii, putpint, putpdouble, putpfloat, putpbyte, putpword; |
68 |
|
|
69 |
+ |
static int IDformat(const char *s); |
70 |
|
static void set_io(void); |
71 |
|
static void pixtoval(void); |
72 |
|
static void valtopix(void); |
100 |
|
|
101 |
|
progname = argv[0]; |
102 |
|
mybright = &rgb_bright; /* default */ |
103 |
+ |
picres.rt = PIXSTANDARD; |
104 |
|
|
105 |
|
for (i = 1; i < argc; i++) |
106 |
|
if (argv[i][0] == '-' || argv[i][0] == '+') |
120 |
|
case 'o': /* original values */ |
121 |
|
original = argv[i][0] == '-'; |
122 |
|
break; |
123 |
+ |
case 'O': /* original watts/sr/m^2 */ |
124 |
+ |
original = -(argv[i][0] == '-'); |
125 |
+ |
break; |
126 |
|
case 'g': /* gamma correction */ |
127 |
|
gamcor = atof(argv[i+1]); |
128 |
|
if (argv[i][0] == '+') |
178 |
|
} |
179 |
|
break; |
180 |
|
case 'd': /* data only (no indices) */ |
181 |
< |
dataonly = argv[i][0] == '-'; |
181 |
> |
dataonly = (argv[i][0] == '-'); |
182 |
|
switch (argv[i][2]) { |
183 |
|
case '\0': |
184 |
|
case 'a': /* ascii */ |
220 |
|
} |
221 |
|
break; |
222 |
|
case 'x': /* x resolution */ |
223 |
< |
case 'X': /* x resolution */ |
223 |
> |
case 'X': |
224 |
|
resolution = 0; |
225 |
|
if (argv[i][0] == '-') |
226 |
|
picres.rt |= XDECR; |
227 |
+ |
else |
228 |
+ |
picres.rt &= ~XDECR; |
229 |
+ |
if (picres.yr == 0) |
230 |
+ |
picres.rt &= ~YMAJOR; |
231 |
|
picres.xr = atoi(argv[++i]); |
232 |
|
break; |
233 |
|
case 'y': /* y resolution */ |
234 |
< |
case 'Y': /* y resolution */ |
234 |
> |
case 'Y': |
235 |
|
resolution = 0; |
236 |
|
if (argv[i][0] == '-') |
237 |
|
picres.rt |= YDECR; |
238 |
+ |
else |
239 |
+ |
picres.rt &= ~YDECR; |
240 |
|
if (picres.xr == 0) |
241 |
|
picres.rt |= YMAJOR; |
242 |
|
picres.yr = atoi(argv[++i]); |
251 |
|
else |
252 |
|
break; |
253 |
|
/* recognize special formats */ |
254 |
< |
if (dataonly && format == 'b') { |
254 |
> |
if (dataonly & (format == 'b')) { |
255 |
|
if (putprim == ALL) |
256 |
|
fmtid = "24-bit_rgb"; |
257 |
|
else |
258 |
|
fmtid = "8-bit_grey"; |
259 |
|
} |
260 |
< |
if (dataonly && format == 'w') { |
260 |
> |
if (dataonly & (format == 'w')) { |
261 |
|
if (putprim == ALL) |
262 |
|
fmtid = "48-bit_rgb"; |
263 |
|
else |
264 |
|
fmtid = "16-bit_grey"; |
265 |
|
} |
266 |
< |
if (!reverse || (format != 'a') & (format != 'i')) |
266 |
> |
if (!reverse | ((format != 'a') & (format != 'i'))) |
267 |
|
inpmode = "rb"; |
268 |
|
/* assign reverse ordering */ |
269 |
|
rord[ord[0]] = 0; |
288 |
|
progname, argv[i]); |
289 |
|
quit(1); |
290 |
|
} |
291 |
< |
if (reverse && putprim != BRIGHT && i == argc-3) { |
291 |
> |
if (reverse & (putprim != BRIGHT ) & (i == argc-3)) { |
292 |
|
if ((fin2 = fopen(argv[i+1], inpmode)) == NULL) { |
293 |
|
fprintf(stderr, "%s: can't open file \"%s\"\n", |
294 |
|
progname, argv[i+1]); |
302 |
|
interleave = -1; |
303 |
|
} else if (i != argc-1) |
304 |
|
fin = NULL; |
305 |
< |
if (reverse && putprim != BRIGHT && !interleave) { |
305 |
> |
if (reverse & (putprim != BRIGHT) & !interleave) { |
306 |
|
fin2 = fopen(argv[i], inpmode); |
307 |
|
fin3 = fopen(argv[i], inpmode); |
308 |
|
} |
318 |
|
fprintf(stderr, "%s: bad # file arguments\n", progname); |
319 |
|
quit(1); |
320 |
|
} |
310 |
– |
|
321 |
|
if (reverse) { |
322 |
|
SET_FILE_BINARY(stdout); |
323 |
|
/* get header */ |
324 |
|
if (header) { |
325 |
< |
if (checkheader(fin, fmtid, stdout) < 0) { |
326 |
< |
fprintf(stderr, "%s: wrong input format\n", |
327 |
< |
progname); |
325 |
> |
getheader(fin, checkhead, stdout); |
326 |
> |
if (wrongformat) { |
327 |
> |
fprintf(stderr, "%s: wrong input format (expected %s)\n", |
328 |
> |
progname, fmtid); |
329 |
|
quit(1); |
330 |
|
} |
331 |
|
if (fin2 != NULL) { |
332 |
|
getheader(fin2, NULL, NULL); |
333 |
|
getheader(fin3, NULL, NULL); |
334 |
|
} |
335 |
< |
} else |
335 |
> |
resolution &= (picres.xr <= 0) | (picres.yr <= 0); |
336 |
> |
} else { |
337 |
|
newheader("RADIANCE", stdout); |
338 |
+ |
} |
339 |
|
/* get resolution */ |
340 |
|
if ((resolution && !fgetsresolu(&picres, fin)) || |
341 |
< |
picres.xr <= 0 || picres.yr <= 0) { |
341 |
> |
(picres.xr <= 0) | (picres.yr <= 0)) { |
342 |
|
fprintf(stderr, "%s: missing resolution\n", progname); |
343 |
|
quit(1); |
344 |
|
} |
345 |
|
if (resolution && fin2 != NULL) { |
346 |
|
RESOLU pres2; |
347 |
|
if (!fgetsresolu(&pres2, fin2) || |
348 |
< |
pres2.rt != picres.rt || |
349 |
< |
pres2.xr != picres.xr || |
350 |
< |
pres2.yr != picres.yr || |
348 |
> |
(pres2.rt != picres.rt) | |
349 |
> |
(pres2.xr != picres.xr) | |
350 |
> |
(pres2.yr != picres.yr) || |
351 |
|
!fgetsresolu(&pres2, fin3) || |
352 |
< |
pres2.rt != picres.rt || |
353 |
< |
pres2.xr != picres.xr || |
354 |
< |
pres2.yr != picres.yr) { |
352 |
> |
(pres2.rt != picres.rt) | |
353 |
> |
(pres2.xr != picres.xr) | |
354 |
> |
(pres2.yr != picres.yr)) { |
355 |
|
fprintf(stderr, "%s: resolution mismatch\n", |
356 |
|
progname); |
357 |
|
quit(1); |
359 |
|
} |
360 |
|
/* add to header */ |
361 |
|
printargs(i, argv, stdout); |
362 |
< |
if (expval < .99 || expval > 1.01) |
362 |
> |
if ((expval < .99) | (expval > 1.01)) |
363 |
|
fputexpos(expval, stdout); |
364 |
+ |
if (!header & (putprim != ALL)) { |
365 |
+ |
NCSAMP = 1; /* no header, so trust user */ |
366 |
+ |
} else if (NCSAMP == 1) { |
367 |
+ |
if (putprim == ALL) |
368 |
+ |
putprim = BRIGHT; |
369 |
+ |
} else { |
370 |
+ |
if (NCSAMP != 3) { |
371 |
+ |
fprintf(stderr, "%s: input NCOMP must be 1 or 3\n", |
372 |
+ |
progname); |
373 |
+ |
quit(1); |
374 |
+ |
} |
375 |
+ |
if (putprim != ALL) { |
376 |
+ |
fprintf(stderr, "%s: NCOMP mismatch\n", progname); |
377 |
+ |
quit(1); |
378 |
+ |
} |
379 |
+ |
} |
380 |
|
if (outprims != NULL) { |
381 |
|
if (outprims != stdprims) |
382 |
|
fputprims(outprims, stdout); |
383 |
|
fputformat(COLRFMT, stdout); |
384 |
< |
} else /* XYZ data */ |
384 |
> |
} else { /* XYZ data */ |
385 |
> |
if (original < 0) { |
386 |
> |
scalecolor(exposure, WHTEFFICACY); |
387 |
> |
doexposure++; |
388 |
> |
} |
389 |
|
fputformat(CIEFMT, stdout); |
390 |
+ |
} |
391 |
|
putchar('\n'); |
392 |
|
fputsresolu(&picres, stdout); /* always put resolution */ |
393 |
|
valtopix(); |
395 |
|
if ((format != 'a') & (format != 'i')) |
396 |
|
SET_FILE_BINARY(stdout); |
397 |
|
/* get header */ |
398 |
< |
getheader(fin, checkhead, NULL); |
398 |
> |
picres.rt = PIXSTANDARD; |
399 |
> |
picres.xr = picres.yr = 0; |
400 |
> |
getheader(fin, checkhead, header ? stdout : (FILE *)NULL); |
401 |
|
if (wrongformat) { |
402 |
|
fprintf(stderr, |
403 |
|
"%s: input not a Radiance RGBE picture\n", |
404 |
|
progname); |
405 |
|
quit(1); |
406 |
|
} |
407 |
< |
if (!fgetsresolu(&picres, fin)) { |
407 |
> |
if ((picres.xr <= 0) | (picres.yr <= 0) && |
408 |
> |
!fgetsresolu(&picres, fin)) { |
409 |
|
fprintf(stderr, "%s: missing resolution\n", progname); |
410 |
|
quit(1); |
411 |
|
} |
412 |
+ |
if ((original < 0) & (mybright == &xyz_bright)) { |
413 |
+ |
scalecolor(exposure, 1./WHTEFFICACY); |
414 |
+ |
doexposure++; |
415 |
+ |
} |
416 |
|
if (header) { |
417 |
|
printargs(i, argv, stdout); |
418 |
< |
if (expval < .99 || expval > 1.01) |
418 |
> |
if (dataonly) |
419 |
> |
printf("%s%c\n", NCOMPSTR, "13"[putprim==ALL]); |
420 |
> |
if (dataonly && !resolution & !uniq) |
421 |
> |
printf("NCOLS=%d\nNROWS=%d\n", scanlen(&picres), |
422 |
> |
numscans(&picres)); |
423 |
> |
if ((expval < .99) | (expval > 1.01)) |
424 |
|
fputexpos(expval, stdout); |
425 |
|
if (swapbytes) { |
426 |
|
if (nativebigendian()) |
427 |
|
puts("BigEndian=0"); |
428 |
|
else |
429 |
|
puts("BigEndian=1"); |
430 |
< |
} else if ((format != 'a') & (format != 'i')) |
430 |
> |
} else if ((format != 'a') & (format != 'i') & |
431 |
> |
(format != 'b')) |
432 |
|
fputendian(stdout); |
433 |
|
fputformat(fmtid, stdout); |
434 |
|
putchar('\n'); |
444 |
|
|
445 |
|
|
446 |
|
static int |
447 |
+ |
IDformat(const char *s) |
448 |
+ |
{ |
449 |
+ |
if (!s || !*s) return(0); |
450 |
+ |
if (!strcmp(s, "ascii")) return('a'); |
451 |
+ |
if (!strcmp(s, "float")) return('f'); |
452 |
+ |
if (!strcmp(s, "double")) return('d'); |
453 |
+ |
if (!strcmp(s, "byte")) return('b'); |
454 |
+ |
if (!strcmp(s, "16-bit")) return('w'); |
455 |
+ |
return(0); |
456 |
+ |
} |
457 |
+ |
|
458 |
+ |
|
459 |
+ |
static int |
460 |
|
checkhead( /* deal with line from header */ |
461 |
|
char *line, |
462 |
|
void *p |
463 |
|
) |
464 |
|
{ |
465 |
< |
char fmt[MAXFMTLEN]; |
465 |
> |
static char fmt[MAXFMTLEN]; |
466 |
> |
FILE *fout = (FILE *)p; |
467 |
|
double d; |
468 |
|
COLOR ctmp; |
469 |
|
int rv; |
470 |
|
|
471 |
|
if (formatval(fmt, line)) { |
472 |
< |
if (!strcmp(fmt, CIEFMT)) |
472 |
> |
if (reverse) { |
473 |
> |
if (format == 'a') { |
474 |
> |
format = IDformat(fmt); |
475 |
> |
if (format) |
476 |
> |
fmtid = fmt; |
477 |
> |
else |
478 |
> |
wrongformat = 1; |
479 |
> |
} else |
480 |
> |
wrongformat = strcmp(fmt, fmtid); |
481 |
> |
} else if (!strcmp(fmt, CIEFMT)) |
482 |
|
mybright = &xyz_bright; |
483 |
< |
else if (!strcmp(fmt, COLRFMT)) |
483 |
> |
else if (!strcmp(fmt, COLRFMT) || !strcmp(fmt, SPECFMT)) |
484 |
|
mybright = &rgb_bright; |
485 |
|
else |
486 |
< |
wrongformat++; |
487 |
< |
} else if (original && isexpos(line)) { |
486 |
> |
wrongformat = 1; |
487 |
> |
return(1); |
488 |
> |
} |
489 |
> |
if (!strncmp(line,"NROWS=",6)) { |
490 |
> |
picres.yr = atoi(line+6); |
491 |
> |
return(1); |
492 |
> |
} |
493 |
> |
if (!strncmp(line,"NCOLS=",6)) { |
494 |
> |
picres.xr = atoi(line+6); |
495 |
> |
return(1); |
496 |
> |
} |
497 |
> |
if (isncomp(line)) { |
498 |
> |
NCSAMP = ncompval(line); |
499 |
> |
dataonly |= reverse; /* pretty safe assumption */ |
500 |
> |
return(1); |
501 |
> |
} |
502 |
> |
if (iswlsplit(line)) { |
503 |
> |
wlsplitval(WLPART, line); |
504 |
> |
return(1); |
505 |
> |
} |
506 |
> |
if (original && isexpos(line)) { |
507 |
|
d = 1.0/exposval(line); |
508 |
|
scalecolor(exposure, d); |
509 |
|
doexposure++; |
510 |
< |
} else if (original && iscolcor(line)) { |
510 |
> |
return(1); |
511 |
> |
} |
512 |
> |
if (original && iscolcor(line)) { |
513 |
|
colcorval(ctmp, line); |
514 |
|
setcolor(exposure, colval(exposure,RED)/colval(ctmp,RED), |
515 |
|
colval(exposure,GRN)/colval(ctmp,GRN), |
516 |
|
colval(exposure,BLU)/colval(ctmp,BLU)); |
517 |
|
doexposure++; |
518 |
< |
} else if (reverse && (rv = isbigendian(line)) >= 0) { |
519 |
< |
swapbytes = (nativebigendian() != rv); |
520 |
< |
} else if (header) |
521 |
< |
fputs(line, stdout); |
518 |
> |
return(1); |
519 |
> |
} |
520 |
> |
if ((rv = isbigendian(line)) >= 0) { |
521 |
> |
if (reverse) |
522 |
> |
swapbytes = (nativebigendian() != rv); |
523 |
> |
return(1); |
524 |
> |
} |
525 |
> |
if (fout != NULL) |
526 |
> |
fputs(line, fout); |
527 |
|
return(0); |
528 |
|
} |
529 |
|
|
560 |
|
set_io(); |
561 |
|
setcolor(lastc, 0.0, 0.0, 0.0); |
562 |
|
for (y = 0; y < numscans(&picres); y++) { |
563 |
< |
if (freadscan(scanln, scanlen(&picres), fin) < 0) { |
563 |
> |
if (fread2scan(scanln, scanlen(&picres), fin, |
564 |
> |
NCSAMP, WLPART) < 0) { |
565 |
|
fprintf(stderr, "%s: read error\n", progname); |
566 |
|
quit(1); |
567 |
|
} |