93 |
|
char **argv |
94 |
|
) |
95 |
|
{ |
96 |
< |
double d, expval = 1.0; |
97 |
< |
int i; |
96 |
> |
const char *inpmode = "r"; |
97 |
> |
double d, expval = 1.0; |
98 |
> |
int i; |
99 |
|
|
100 |
|
progname = argv[0]; |
101 |
|
mybright = &rgb_bright; /* default */ |
173 |
|
} |
174 |
|
break; |
175 |
|
case 'd': /* data only (no indices) */ |
176 |
< |
dataonly = argv[i][0] == '-'; |
176 |
> |
dataonly = (argv[i][0] == '-'); |
177 |
|
switch (argv[i][2]) { |
178 |
|
case '\0': |
179 |
|
case 'a': /* ascii */ |
252 |
|
else |
253 |
|
fmtid = "16-bit_grey"; |
254 |
|
} |
255 |
+ |
if (!reverse || (format != 'a') & (format != 'i')) |
256 |
+ |
inpmode = "rb"; |
257 |
|
/* assign reverse ordering */ |
258 |
|
rord[ord[0]] = 0; |
259 |
|
rord[ord[1]] = 1; |
260 |
|
rord[ord[2]] = 2; |
261 |
|
/* get input */ |
262 |
|
if (i == argc) { |
263 |
+ |
long n = skipbytes; |
264 |
+ |
if (inpmode[1] == 'b') |
265 |
+ |
SET_FILE_BINARY(stdin); |
266 |
+ |
while (n-- > 0) |
267 |
+ |
if (getchar() == EOF) { |
268 |
+ |
fprintf(stderr, |
269 |
+ |
"%s: cannot skip %ld bytes on standard input\n", |
270 |
+ |
progname, skipbytes); |
271 |
+ |
quit(1); |
272 |
+ |
} |
273 |
|
fin = stdin; |
274 |
|
} else if (i < argc) { |
275 |
< |
if ((fin = fopen(argv[i], "r")) == NULL) { |
275 |
> |
if ((fin = fopen(argv[i], inpmode)) == NULL) { |
276 |
|
fprintf(stderr, "%s: can't open file \"%s\"\n", |
277 |
|
progname, argv[i]); |
278 |
|
quit(1); |
279 |
|
} |
280 |
|
if (reverse && putprim != BRIGHT && i == argc-3) { |
281 |
< |
if ((fin2 = fopen(argv[i+1], "r")) == NULL) { |
281 |
> |
if ((fin2 = fopen(argv[i+1], inpmode)) == NULL) { |
282 |
|
fprintf(stderr, "%s: can't open file \"%s\"\n", |
283 |
|
progname, argv[i+1]); |
284 |
|
quit(1); |
285 |
|
} |
286 |
< |
if ((fin3 = fopen(argv[i+2], "r")) == NULL) { |
286 |
> |
if ((fin3 = fopen(argv[i+2], inpmode)) == NULL) { |
287 |
|
fprintf(stderr, "%s: can't open file \"%s\"\n", |
288 |
|
progname, argv[i+2]); |
289 |
|
quit(1); |
292 |
|
} else if (i != argc-1) |
293 |
|
fin = NULL; |
294 |
|
if (reverse && putprim != BRIGHT && !interleave) { |
295 |
< |
fin2 = fopen(argv[i], "r"); |
296 |
< |
fin3 = fopen(argv[i], "r"); |
295 |
> |
fin2 = fopen(argv[i], inpmode); |
296 |
> |
fin3 = fopen(argv[i], inpmode); |
297 |
|
} |
298 |
< |
if (skipbytes && (fseek(fin, skipbytes, 0) || (fin2 != NULL && |
299 |
< |
(fseek(fin2, skipbytes, 0) || |
300 |
< |
fseek(fin3, skipbytes, 0))))) { |
298 |
> |
if (skipbytes && (fseek(fin, skipbytes, SEEK_SET) || (fin2 != NULL && |
299 |
> |
fseek(fin2, skipbytes, SEEK_SET) | |
300 |
> |
fseek(fin3, skipbytes, SEEK_SET)))) { |
301 |
|
fprintf(stderr, "%s: cannot skip %ld bytes on input\n", |
302 |
|
progname, skipbytes); |
303 |
|
quit(1); |
309 |
|
} |
310 |
|
|
311 |
|
if (reverse) { |
299 |
– |
#if defined(_WIN32) || defined(_WIN64) |
312 |
|
SET_FILE_BINARY(stdout); |
301 |
– |
if (format != 'a' && format != 'i') |
302 |
– |
SET_FILE_BINARY(fin); |
303 |
– |
#endif |
313 |
|
/* get header */ |
314 |
|
if (header) { |
315 |
< |
if (checkheader(fin, fmtid, stdout) < 0) { |
316 |
< |
fprintf(stderr, "%s: wrong input format\n", |
317 |
< |
progname); |
315 |
> |
getheader(fin, checkhead, stdout); |
316 |
> |
if (wrongformat) { |
317 |
> |
fprintf(stderr, "%s: wrong input format (expected %s)\n", |
318 |
> |
progname, fmtid); |
319 |
|
quit(1); |
320 |
|
} |
321 |
|
if (fin2 != NULL) { |
359 |
|
fputsresolu(&picres, stdout); /* always put resolution */ |
360 |
|
valtopix(); |
361 |
|
} else { |
362 |
< |
#if defined(_WIN32) || defined(_WIN64) |
353 |
< |
SET_FILE_BINARY(fin); |
354 |
< |
if (format != 'a' && format != 'i') |
362 |
> |
if ((format != 'a') & (format != 'i')) |
363 |
|
SET_FILE_BINARY(stdout); |
356 |
– |
#endif |
364 |
|
/* get header */ |
365 |
< |
getheader(fin, checkhead, NULL); |
365 |
> |
getheader(fin, checkhead, header ? stdout : (FILE *)NULL); |
366 |
|
if (wrongformat) { |
367 |
|
fprintf(stderr, |
368 |
|
"%s: input not a Radiance RGBE picture\n", |
375 |
|
} |
376 |
|
if (header) { |
377 |
|
printargs(i, argv, stdout); |
378 |
+ |
printf("NCOMP=%d\n", putprim==ALL ? 3 : 1); |
379 |
+ |
if (!resolution && dataonly && !uniq) |
380 |
+ |
printf("NCOLS=%d\nNROWS=%d\n", scanlen(&picres), |
381 |
+ |
numscans(&picres)); |
382 |
|
if (expval < .99 || expval > 1.01) |
383 |
|
fputexpos(expval, stdout); |
384 |
+ |
if (swapbytes) { |
385 |
+ |
if (nativebigendian()) |
386 |
+ |
puts("BigEndian=0"); |
387 |
+ |
else |
388 |
+ |
puts("BigEndian=1"); |
389 |
+ |
} else if ((format != 'a') & (format != 'i')) |
390 |
+ |
fputendian(stdout); |
391 |
|
fputformat(fmtid, stdout); |
392 |
|
putchar('\n'); |
393 |
|
} |
407 |
|
void *p |
408 |
|
) |
409 |
|
{ |
410 |
+ |
FILE *fout = (FILE *)p; |
411 |
|
char fmt[MAXFMTLEN]; |
412 |
|
double d; |
413 |
|
COLOR ctmp; |
414 |
+ |
int rv; |
415 |
|
|
416 |
|
if (formatval(fmt, line)) { |
417 |
< |
if (!strcmp(fmt, CIEFMT)) |
417 |
> |
if (reverse) |
418 |
> |
wrongformat = strcmp(fmt, fmtid); |
419 |
> |
else if (!strcmp(fmt, CIEFMT)) |
420 |
|
mybright = &xyz_bright; |
421 |
|
else if (!strcmp(fmt, COLRFMT)) |
422 |
|
mybright = &rgb_bright; |
423 |
|
else |
424 |
|
wrongformat++; |
425 |
< |
} else if (original && isexpos(line)) { |
425 |
> |
return(1); |
426 |
> |
} |
427 |
> |
if (original && isexpos(line)) { |
428 |
|
d = 1.0/exposval(line); |
429 |
|
scalecolor(exposure, d); |
430 |
|
doexposure++; |
431 |
< |
} else if (original && iscolcor(line)) { |
431 |
> |
return(1); |
432 |
> |
} |
433 |
> |
if (original && iscolcor(line)) { |
434 |
|
colcorval(ctmp, line); |
435 |
|
setcolor(exposure, colval(exposure,RED)/colval(ctmp,RED), |
436 |
|
colval(exposure,GRN)/colval(ctmp,GRN), |
437 |
|
colval(exposure,BLU)/colval(ctmp,BLU)); |
438 |
|
doexposure++; |
439 |
< |
} else if (header) |
440 |
< |
fputs(line, stdout); |
439 |
> |
return(1); |
440 |
> |
} |
441 |
> |
if ((rv = isbigendian(line)) >= 0) { |
442 |
> |
if (reverse) |
443 |
> |
swapbytes = (nativebigendian() != rv); |
444 |
> |
return(1); |
445 |
> |
} |
446 |
> |
if (fout != NULL) |
447 |
> |
fputs(line, fout); |
448 |
|
return(0); |
449 |
|
} |
450 |
|
|
452 |
|
static void |
453 |
|
pixtoval(void) /* convert picture to values */ |
454 |
|
{ |
455 |
< |
register COLOR *scanln; |
455 |
> |
COLOR *scanln; |
456 |
|
int dogamma; |
457 |
|
COLOR lastc; |
458 |
|
RREAL hv[2]; |
459 |
|
int startprim, endprim; |
460 |
|
long startpos; |
461 |
< |
int y; |
429 |
< |
register int x; |
461 |
> |
int x, y; |
462 |
|
|
463 |
|
scanln = (COLOR *)malloc(scanlen(&picres)*sizeof(COLOR)); |
464 |
|
if (scanln == NULL) { |
466 |
|
quit(1); |
467 |
|
} |
468 |
|
dogamma = gamcor < .95 || gamcor > 1.05; |
469 |
< |
if (putprim == ALL && !interleave) { |
469 |
> |
if ((putprim == ALL) & !interleave) { |
470 |
|
startprim = RED; endprim = BLU; |
471 |
|
startpos = ftell(fin); |
472 |
|
} else { |
473 |
|
startprim = putprim; endprim = putprim; |
474 |
|
} |
475 |
|
for (putprim = startprim; putprim <= endprim; putprim++) { |
476 |
< |
if (putprim != startprim && fseek(fin, startpos, 0)) { |
476 |
> |
if (putprim != startprim && fseek(fin, startpos, SEEK_SET)) { |
477 |
|
fprintf(stderr, "%s: seek error on input file\n", |
478 |
|
progname); |
479 |
|
quit(1); |
525 |
|
static void |
526 |
|
valtopix(void) /* convert values to a pixel file */ |
527 |
|
{ |
528 |
< |
int dogamma; |
529 |
< |
register COLOR *scanln; |
530 |
< |
int y; |
531 |
< |
register int x; |
528 |
> |
int dogamma; |
529 |
> |
COLOR *scanln; |
530 |
> |
COLR rgbe; |
531 |
> |
int x, y; |
532 |
|
|
533 |
|
scanln = (COLOR *)malloc(scanlen(&picres)*sizeof(COLOR)); |
534 |
|
if (scanln == NULL) { |
557 |
|
pow(colval(scanln[x],BLU), gamcor)); |
558 |
|
if (doexposure) |
559 |
|
multcolor(scanln[x], exposure); |
560 |
+ |
if (uniq) { /* uncompressed? */ |
561 |
+ |
setcolr(rgbe, scanln[x][RED], |
562 |
+ |
scanln[x][GRN], |
563 |
+ |
scanln[x][BLU]); |
564 |
+ |
if (putbinary(rgbe, sizeof(COLR), 1, stdout) != 1) |
565 |
+ |
goto writerr; |
566 |
+ |
} |
567 |
|
} |
568 |
< |
if (fwritescan(scanln, scanlen(&picres), stdout) < 0) { |
569 |
< |
fprintf(stderr, "%s: write error\n", progname); |
570 |
< |
quit(1); |
532 |
< |
} |
568 |
> |
/* write scan if compressed */ |
569 |
> |
if (!uniq && fwritescan(scanln, scanlen(&picres), stdout) < 0) |
570 |
> |
goto writerr; |
571 |
|
} |
572 |
|
free((void *)scanln); |
573 |
+ |
return; |
574 |
+ |
writerr: |
575 |
+ |
fprintf(stderr, "%s: write error\n", progname); |
576 |
+ |
quit(1); |
577 |
|
} |
578 |
|
|
579 |
|
|
981 |
|
COLOR col |
982 |
|
) |
983 |
|
{ |
984 |
< |
register int i; |
984 |
> |
int i; |
985 |
|
uby8 vb; |
986 |
|
|
987 |
|
i = (*mybright)(col)*256.; |
1134 |
|
if (fin2 == NULL) |
1135 |
|
goto namerr; |
1136 |
|
if (fseek(fin2, |
1137 |
< |
(long)sizeof(float)*picres.xr*picres.yr, 1)) |
1137 |
> |
(long)sizeof(float)*picres.xr*picres.yr, SEEK_CUR)) |
1138 |
|
goto seekerr; |
1139 |
|
if (fseek(fin3, |
1140 |
< |
(long)sizeof(float)*2*picres.xr*picres.yr, 1)) |
1140 |
> |
(long)sizeof(float)*2*picres.xr*picres.yr, SEEK_CUR)) |
1141 |
|
goto seekerr; |
1142 |
|
} |
1143 |
|
} |
1156 |
|
if (fin2 == NULL) |
1157 |
|
goto namerr; |
1158 |
|
if (fseek(fin2, |
1159 |
< |
(long)sizeof(double)*picres.xr*picres.yr, 1)) |
1159 |
> |
(long)sizeof(double)*picres.xr*picres.yr, SEEK_CUR)) |
1160 |
|
goto seekerr; |
1161 |
|
if (fseek(fin3, |
1162 |
< |
(long)sizeof(double)*2*picres.xr*picres.yr, 1)) |
1162 |
> |
(long)sizeof(double)*2*picres.xr*picres.yr, SEEK_CUR)) |
1163 |
|
goto seekerr; |
1164 |
|
} |
1165 |
|
} |
1196 |
|
if (fin2 == NULL) |
1197 |
|
goto namerr; |
1198 |
|
if (fseek(fin2, |
1199 |
< |
(long)sizeof(uby8)*picres.xr*picres.yr, 1)) |
1199 |
> |
(long)sizeof(uby8)*picres.xr*picres.yr, SEEK_CUR)) |
1200 |
|
goto seekerr; |
1201 |
|
if (fseek(fin3, |
1202 |
< |
(long)sizeof(uby8)*2*picres.xr*picres.yr, 1)) |
1202 |
> |
(long)sizeof(uby8)*2*picres.xr*picres.yr, SEEK_CUR)) |
1203 |
|
goto seekerr; |
1204 |
|
} |
1205 |
|
} |
1218 |
|
if (fin2 == NULL) |
1219 |
|
goto namerr; |
1220 |
|
if (fseek(fin2, |
1221 |
< |
(long)sizeof(uint16)*picres.xr*picres.yr, 1)) |
1221 |
> |
(long)sizeof(uint16)*picres.xr*picres.yr, SEEK_CUR)) |
1222 |
|
goto seekerr; |
1223 |
|
if (fseek(fin3, |
1224 |
< |
(long)sizeof(uint16)*2*picres.xr*picres.yr, 1)) |
1224 |
> |
(long)sizeof(uint16)*2*picres.xr*picres.yr, SEEK_CUR)) |
1225 |
|
goto seekerr; |
1226 |
|
} |
1227 |
|
} |