ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/pvalue.c
Revision: 2.10
Committed: Wed Jan 8 07:43:49 1997 UTC (27 years, 3 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.9: +210 -31 lines
Log Message:
added routines for reading and writing separate RGB files
added -pP (where P is one of 'R', 'G' or 'B' upper or lower case)
added -s option to skip specified number of bytes on header

File Contents

# User Rev Content
1 greg 2.5 /* Copyright (c) 1992 Regents of the University of California */
2 greg 1.1
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * pvalue.c - program to print pixel values.
9     *
10     * 4/23/86
11     */
12    
13 greg 1.8 #include "standard.h"
14 greg 1.1
15     #include "color.h"
16    
17 greg 1.8 #include "resolu.h"
18    
19 greg 2.5 #define min(a,b) ((a)<(b)?(a):(b))
20 greg 1.1
21 greg 2.10 /* what to put out (also RED, GRN, BLU) */
22     #define ALL 3
23     #define BRIGHT 4
24    
25     #define brightonly (putprim==BRIGHT)
26    
27 greg 2.5 RESOLU picres; /* resolution of picture */
28 greg 1.1
29 greg 1.6 int uniq = 0; /* print only unique values? */
30 greg 1.1
31 greg 2.7 int doexposure = 0; /* exposure change? (>100 to print) */
32 greg 1.1
33     int dataonly = 0; /* data only format? */
34    
35 greg 2.10 int putprim = ALL; /* what to put out */
36 greg 1.1
37     int reverse = 0; /* reverse conversion? */
38    
39     int format = 'a'; /* input/output format */
40 greg 1.6 char *fmtid = "ascii"; /* format identifier for header */
41 greg 1.1
42 greg 2.3 int header = 1; /* do header? */
43 greg 1.1
44 greg 2.10 long skipbytes = 0; /* skip bytes in input? */
45    
46 greg 2.3 int resolution = 1; /* put/get resolution string? */
47    
48 greg 2.7 int original = 0; /* convert to original values? */
49    
50 greg 1.6 int wrongformat = 0; /* wrong input format? */
51    
52 greg 2.5 double gamcor = 1.0; /* gamma correction */
53 greg 1.7
54 greg 2.4 int ord[3] = {RED, GRN, BLU}; /* RGB ordering */
55     int rord[4]; /* reverse ordering */
56    
57 greg 1.5 COLOR exposure = WHTCOLOR;
58 greg 1.1
59     char *progname;
60    
61     FILE *fin;
62 greg 2.10 FILE *fin2 = NULL, *fin3 = NULL; /* for other color channels */
63 greg 1.1
64     int (*getval)(), (*putval)();
65    
66    
67     main(argc, argv)
68     int argc;
69     char **argv;
70     {
71     extern int checkhead();
72 greg 2.10 extern long atol();
73 greg 2.7 double d, expval = 1.0;
74 greg 1.1 int i;
75    
76     progname = argv[0];
77    
78     for (i = 1; i < argc; i++)
79 greg 1.8 if (argv[i][0] == '-' || argv[i][0] == '+')
80 greg 1.1 switch (argv[i][1]) {
81 greg 1.8 case 'h': /* header */
82     header = argv[i][0] == '+';
83 greg 1.1 break;
84 greg 2.3 case 'H': /* resolution string */
85     resolution = argv[i][0] == '+';
86     break;
87 greg 2.10 case 's': /* skip bytes in header */
88     skipbytes = atol(argv[++i]);
89     break;
90 greg 1.1 case 'u': /* unique values */
91 greg 1.8 uniq = argv[i][0] == '-';
92 greg 1.1 break;
93     case 'o': /* original values */
94 greg 1.8 original = argv[i][0] == '-';
95 greg 1.1 break;
96 greg 1.7 case 'g': /* gamma correction */
97 greg 2.7 gamcor = atof(argv[i+1]);
98 greg 1.8 if (argv[i][0] == '+')
99     gamcor = 1.0/gamcor;
100 greg 2.7 i++;
101 greg 1.7 break;
102 greg 2.7 case 'e': /* exposure correction */
103     d = atof(argv[i+1]);
104     if (argv[i+1][0] == '-' || argv[i+1][0] == '+')
105     d = pow(2.0, d);
106     if (argv[i][0] == '-')
107 greg 2.9 expval *= d;
108 greg 2.7 scalecolor(exposure, d);
109     doexposure++;
110     i++;
111     break;
112 greg 2.4 case 'R': /* reverse byte sequence */
113     if (argv[i][0] == '-') {
114     ord[0]=BLU; ord[1]=GRN; ord[2]=RED;
115     } else {
116     ord[0]=RED; ord[1]=GRN; ord[2]=BLU;
117     }
118     break;
119 greg 1.1 case 'r': /* reverse conversion */
120 greg 1.8 reverse = argv[i][0] == '-';
121 greg 1.1 break;
122     case 'b': /* brightness values */
123 greg 2.10 putprim = argv[i][0] == '-' ? BRIGHT : ALL;
124 greg 1.1 break;
125 greg 2.10 case 'p': /* put primary */
126     switch (argv[i][2]) {
127     case 'r': case 'R': putprim = RED; break;
128     case 'g': case 'G': putprim = GRN; break;
129     case 'b': case 'B': putprim = BLU; break;
130     default: goto unkopt;
131     }
132     break;
133 greg 1.1 case 'd': /* data only (no indices) */
134 greg 1.8 dataonly = argv[i][0] == '-';
135 greg 1.1 switch (argv[i][2]) {
136     case '\0':
137     case 'a': /* ascii */
138     format = 'a';
139 greg 1.6 fmtid = "ascii";
140 greg 1.1 break;
141     case 'i': /* integer */
142 greg 1.6 format = 'i';
143     fmtid = "ascii";
144     break;
145 greg 1.1 case 'b': /* byte */
146 greg 1.8 dataonly = 1;
147 greg 1.6 format = 'b';
148     fmtid = "byte";
149     break;
150 greg 1.1 case 'f': /* float */
151 greg 1.8 dataonly = 1;
152 greg 1.6 format = 'f';
153     fmtid = "float";
154     break;
155 greg 1.1 case 'd': /* double */
156 greg 1.8 dataonly = 1;
157 greg 1.6 format = 'd';
158     fmtid = "double";
159 greg 1.1 break;
160     default:
161     goto unkopt;
162     }
163     break;
164     case 'x': /* x resolution */
165 greg 2.6 case 'X': /* x resolution */
166 greg 2.3 resolution = 0;
167 greg 1.8 if (argv[i][0] == '-')
168     picres.or |= XDECR;
169     picres.xr = atoi(argv[++i]);
170 greg 1.1 break;
171     case 'y': /* y resolution */
172 greg 2.6 case 'Y': /* y resolution */
173 greg 2.3 resolution = 0;
174 greg 1.8 if (argv[i][0] == '-')
175     picres.or |= YDECR;
176     if (picres.xr == 0)
177     picres.or |= YMAJOR;
178     picres.yr = atoi(argv[++i]);
179 greg 1.1 break;
180     default:
181     unkopt:
182     fprintf(stderr, "%s: unknown option: %s\n",
183     progname, argv[i]);
184     quit(1);
185     break;
186     }
187     else
188     break;
189 greg 1.6 /* recognize special formats */
190     if (dataonly && format == 'b')
191     if (brightonly)
192     fmtid = "8-bit_grey";
193     else
194     fmtid = "24-bit_rgb";
195 greg 2.4 /* assign reverse ordering */
196     rord[ord[0]] = 0;
197     rord[ord[1]] = 1;
198     rord[ord[2]] = 2;
199     /* get input */
200 greg 1.1 if (i == argc) {
201     fin = stdin;
202 greg 2.10 } else if (i < argc) {
203 greg 1.1 if ((fin = fopen(argv[i], "r")) == NULL) {
204     fprintf(stderr, "%s: can't open file \"%s\"\n",
205     progname, argv[i]);
206     quit(1);
207     }
208 greg 2.10 if (skipbytes && fseek(fin, skipbytes, 0))
209     goto seekerr;
210     if (reverse && !brightonly && i == argc-3) {
211     if ((fin2 = fopen(argv[i+1], "r")) == NULL) {
212     fprintf(stderr, "%s: can't open file \"%s\"\n",
213     progname, argv[i+1]);
214     quit(1);
215     }
216     if ((fin3 = fopen(argv[i+2], "r")) == NULL) {
217     fprintf(stderr, "%s: can't open file \"%s\"\n",
218     progname, argv[i+2]);
219     quit(1);
220     }
221     if (skipbytes && (fseek(fin2, skipbytes, 0) ||
222     fseek(fin3, skipbytes, 0)))
223     goto seekerr;
224     } else if (i != argc-1)
225     fin = NULL;
226     }
227     if (fin == NULL) {
228 greg 1.1 fprintf(stderr, "%s: bad # file arguments\n", progname);
229     quit(1);
230     }
231    
232     set_io();
233    
234     if (reverse) {
235 greg 2.5 #ifdef MSDOS
236     setmode(fileno(stdout), O_BINARY);
237     if (format != 'a' && format != 'i')
238     setmode(fileno(fin), O_BINARY);
239     #endif
240 greg 1.6 /* get header */
241 greg 2.8 if (header) {
242     if (checkheader(fin, fmtid, stdout) < 0) {
243     fprintf(stderr, "%s: wrong input format\n",
244     progname);
245     quit(1);
246     }
247 greg 2.10 if (fin2 != NULL) {
248     getheader(fin2, NULL, NULL);
249     getheader(fin3, NULL, NULL);
250     }
251 greg 2.8 } else
252     newheader("RADIANCE", stdout);
253 greg 2.3 /* get resolution */
254     if ((resolution && !fgetsresolu(&picres, fin)) ||
255     picres.xr <= 0 || picres.yr <= 0) {
256     fprintf(stderr, "%s: missing resolution\n", progname);
257     quit(1);
258     }
259 greg 2.10 if (resolution && fin2 != NULL) {
260     RESOLU pres2;
261     if (!fgetsresolu(&pres2, fin2) ||
262     pres2.or != picres.or ||
263     pres2.xr != picres.xr ||
264     pres2.yr != picres.yr ||
265     !fgetsresolu(&pres2, fin3) ||
266     pres2.or != picres.or ||
267     pres2.xr != picres.xr ||
268     pres2.yr != picres.yr) {
269     fprintf(stderr, "%s: resolution mismatch\n",
270     progname);
271     quit(1);
272     }
273     }
274 greg 1.6 /* add to header */
275     printargs(i, argv, stdout);
276 greg 2.9 if (expval < .99 || expval > 1.01)
277 greg 2.7 fputexpos(expval, stdout);
278 greg 1.6 fputformat(COLRFMT, stdout);
279 greg 1.8 putchar('\n');
280 greg 2.3 fputsresolu(&picres, stdout); /* always put resolution */
281 greg 1.1 valtopix();
282     } else {
283 greg 2.5 #ifdef MSDOS
284     setmode(fileno(fin), O_BINARY);
285     if (format != 'a' && format != 'i')
286     setmode(fileno(stdout), O_BINARY);
287     #endif
288 greg 1.1 /* get header */
289 greg 1.6 getheader(fin, checkhead, NULL);
290     if (wrongformat) {
291     fprintf(stderr, "%s: input not a Radiance picture\n",
292     progname);
293     quit(1);
294     }
295 greg 2.3 if (!fgetsresolu(&picres, fin)) {
296     fprintf(stderr, "%s: missing resolution\n", progname);
297     quit(1);
298     }
299 greg 1.1 if (header) {
300     printargs(i, argv, stdout);
301 greg 2.9 if (expval < .99 || expval > 1.01)
302 greg 2.7 fputexpos(expval, stdout);
303 greg 1.6 fputformat(fmtid, stdout);
304 greg 1.8 putchar('\n');
305 greg 1.1 }
306 greg 2.3 if (resolution) /* put resolution */
307     fputsresolu(&picres, stdout);
308 greg 1.1 pixtoval();
309     }
310    
311     quit(0);
312 greg 2.10 seekerr:
313     fprintf(stderr, "%s: cannot skip %ld bytes on input\n",
314     progname, skipbytes);
315     quit(1);
316 greg 1.1 }
317    
318    
319     checkhead(line) /* deal with line from header */
320     char *line;
321     {
322 greg 1.6 char fmt[32];
323 greg 1.5 double d;
324     COLOR ctmp;
325    
326 greg 2.8 if (formatval(fmt, line))
327 greg 1.6 wrongformat = strcmp(fmt, COLRFMT);
328 greg 2.8 else if (original && isexpos(line)) {
329 greg 1.5 d = 1.0/exposval(line);
330     scalecolor(exposure, d);
331 greg 2.7 doexposure++;
332 greg 1.6 } else if (original && iscolcor(line)) {
333 greg 1.5 colcorval(ctmp, line);
334 greg 1.7 setcolor(exposure, colval(exposure,RED)/colval(ctmp,RED),
335     colval(exposure,GRN)/colval(ctmp,GRN),
336     colval(exposure,BLU)/colval(ctmp,BLU));
337 greg 2.7 doexposure++;
338 greg 1.6 } else if (header)
339     fputs(line, stdout);
340 greg 1.1 }
341    
342    
343     pixtoval() /* convert picture to values */
344     {
345 greg 2.5 register COLOR *scanln;
346 greg 1.7 int dogamma;
347 greg 1.1 COLOR lastc;
348 greg 1.8 FLOAT hv[2];
349 greg 1.1 int y;
350     register int x;
351    
352 greg 1.8 scanln = (COLOR *)malloc(scanlen(&picres)*sizeof(COLOR));
353 greg 1.1 if (scanln == NULL) {
354     fprintf(stderr, "%s: out of memory\n", progname);
355     quit(1);
356     }
357 greg 1.8 dogamma = gamcor < .95 || gamcor > 1.05;
358 greg 1.1 setcolor(lastc, 0.0, 0.0, 0.0);
359 greg 1.8 for (y = 0; y < numscans(&picres); y++) {
360     if (freadscan(scanln, scanlen(&picres), fin) < 0) {
361 greg 1.1 fprintf(stderr, "%s: read error\n", progname);
362     quit(1);
363     }
364 greg 1.8 for (x = 0; x < scanlen(&picres); x++) {
365 greg 1.1 if (uniq)
366 greg 1.7 if ( colval(scanln[x],RED) ==
367     colval(lastc,RED) &&
368     colval(scanln[x],GRN) ==
369     colval(lastc,GRN) &&
370     colval(scanln[x],BLU) ==
371     colval(lastc,BLU) )
372 greg 1.1 continue;
373     else
374     copycolor(lastc, scanln[x]);
375 greg 2.7 if (doexposure)
376 greg 1.5 multcolor(scanln[x], exposure);
377 greg 1.7 if (dogamma)
378     setcolor(scanln[x],
379 greg 1.8 pow(colval(scanln[x],RED), 1.0/gamcor),
380     pow(colval(scanln[x],GRN), 1.0/gamcor),
381     pow(colval(scanln[x],BLU), 1.0/gamcor));
382     if (!dataonly) {
383     pix2loc(hv, &picres, x, y);
384     printf("%7d %7d ", (int)(hv[0]*picres.xr),
385     (int)(hv[1]*picres.yr));
386     }
387 greg 1.1 if ((*putval)(scanln[x], stdout) < 0) {
388     fprintf(stderr, "%s: write error\n", progname);
389     quit(1);
390     }
391     }
392     }
393     free((char *)scanln);
394     }
395    
396    
397     valtopix() /* convert values to a pixel file */
398     {
399 greg 1.7 int dogamma;
400 greg 2.5 register COLOR *scanln;
401 greg 1.1 int y;
402     register int x;
403    
404 greg 1.8 scanln = (COLOR *)malloc(scanlen(&picres)*sizeof(COLOR));
405 greg 1.1 if (scanln == NULL) {
406     fprintf(stderr, "%s: out of memory\n", progname);
407     quit(1);
408     }
409 greg 1.8 dogamma = gamcor < .95 || gamcor > 1.05;
410     for (y = 0; y < numscans(&picres); y++) {
411     for (x = 0; x < scanlen(&picres); x++) {
412 greg 2.10 if (!dataonly) {
413 greg 1.1 fscanf(fin, "%*d %*d");
414 greg 2.10 if (fin2 != NULL) {
415     fscanf(fin2, "%*d %*d");
416     fscanf(fin3, "%*d %*d");
417     }
418     }
419     if ((*getval)(scanln[x], fin, fin2, fin3) < 0) {
420 greg 1.1 fprintf(stderr, "%s: read error\n", progname);
421     quit(1);
422     }
423 greg 1.7 if (dogamma)
424     setcolor(scanln[x],
425 greg 1.8 pow(colval(scanln[x],RED), gamcor),
426     pow(colval(scanln[x],GRN), gamcor),
427     pow(colval(scanln[x],BLU), gamcor));
428 greg 2.7 if (doexposure)
429     multcolor(scanln[x], exposure);
430 greg 1.1 }
431 greg 1.8 if (fwritescan(scanln, scanlen(&picres), stdout) < 0) {
432 greg 1.1 fprintf(stderr, "%s: write error\n", progname);
433     quit(1);
434     }
435     }
436     free((char *)scanln);
437     }
438    
439    
440     quit(code)
441     int code;
442     {
443     exit(code);
444     }
445    
446    
447 greg 2.10 getcascii(col, f1, f2, f3) /* get an ascii color value from stream(s) */
448 greg 1.1 COLOR col;
449 greg 2.10 FILE *f1, *f2, *f3;
450 greg 1.1 {
451 greg 2.5 double vd[3];
452 greg 1.1
453 greg 2.10 if (f2 == NULL) {
454     if (fscanf(f1, "%lf %lf %lf", &vd[0], &vd[1], &vd[2]) != 3)
455     return(-1);
456     } else {
457     if (fscanf(f1, "%lf", &vd[0]) != 1 ||
458     fscanf(f2, "%lf", &vd[1]) != 1 ||
459     fscanf(f3, "%lf", &vd[2]) != 1)
460     return(-1);
461     }
462 greg 2.4 setcolor(col, vd[rord[RED]], vd[rord[GRN]], vd[rord[BLU]]);
463 greg 1.1 return(0);
464     }
465    
466    
467 greg 2.10 getcdouble(col, f1, f2, f3) /* get a double color value from stream(s) */
468 greg 1.1 COLOR col;
469 greg 2.10 FILE *f1, *f2, *f3;
470 greg 1.1 {
471 greg 2.5 double vd[3];
472 greg 1.1
473 greg 2.10 if (f2 == NULL) {
474     if (fread((char *)vd, sizeof(double), 3, f1) != 3)
475     return(-1);
476     } else {
477     if (fread((char *)vd, sizeof(double), 1, f1) != 1 ||
478     fread((char *)(vd+1), sizeof(double), 1, f2) != 1 ||
479     fread((char *)(vd+2), sizeof(double), 1, f3) != 1)
480     return(-1);
481     }
482 greg 2.4 setcolor(col, vd[rord[RED]], vd[rord[GRN]], vd[rord[BLU]]);
483 greg 1.1 return(0);
484     }
485    
486    
487 greg 2.10 getcfloat(col, f1, f2, f3) /* get a float color value from stream(s) */
488 greg 1.1 COLOR col;
489 greg 2.10 FILE *f1, *f2, *f3;
490 greg 1.1 {
491     float vf[3];
492    
493 greg 2.10 if (f2 == NULL) {
494     if (fread((char *)vf, sizeof(float), 3, f1) != 3)
495     return(-1);
496     } else {
497     if (fread((char *)vf, sizeof(float), 1, f1) != 1 ||
498     fread((char *)(vf+1), sizeof(float), 1, f2) != 1 ||
499     fread((char *)(vf+2), sizeof(float), 1, f3) != 1)
500     return(-1);
501     }
502 greg 2.4 setcolor(col, vf[rord[RED]], vf[rord[GRN]], vf[rord[BLU]]);
503 greg 1.1 return(0);
504     }
505    
506    
507 greg 2.10 getcint(col, f1, f2, f3) /* get an int color value from stream(s) */
508 greg 1.1 COLOR col;
509 greg 2.10 FILE *f1, *f2, *f3;
510 greg 1.1 {
511     int vi[3];
512    
513 greg 2.10 if (f2 == NULL) {
514     if (fscanf(f1, "%d %d %d", &vi[0], &vi[1], &vi[2]) != 3)
515     return(-1);
516     } else {
517     if (fscanf(f1, "%d", &vi[0]) != 1 ||
518     fscanf(f2, "%d", &vi[1]) != 1 ||
519     fscanf(f3, "%d", &vi[2]) != 1)
520     return(-1);
521     }
522 greg 2.4 setcolor(col, (vi[rord[RED]]+.5)/256.,
523     (vi[rord[GRN]]+.5)/256., (vi[rord[BLU]]+.5)/256.);
524 greg 1.1 return(0);
525     }
526    
527    
528 greg 2.10 getcbyte(col, f1, f2, f3) /* get a byte color value from stream(s) */
529 greg 1.1 COLOR col;
530 greg 2.10 FILE *f1, *f2, *f3;
531 greg 1.1 {
532     BYTE vb[3];
533    
534 greg 2.10 if (f2 == NULL) {
535     if (fread((char *)vb, sizeof(BYTE), 3, f1) != 3)
536     return(-1);
537     } else {
538     if (fread((char *)vb, sizeof(BYTE), 1, f1) != 1 ||
539     fread((char *)(vb+1), sizeof(BYTE), 1, f2) != 1 ||
540     fread((char *)(vb+2), sizeof(BYTE), 1, f3) != 1)
541     return(-1);
542     }
543 greg 2.4 setcolor(col, (vb[rord[RED]]+.5)/256.,
544     (vb[rord[GRN]]+.5)/256., (vb[rord[BLU]]+.5)/256.);
545 greg 1.1 return(0);
546     }
547    
548    
549     getbascii(col, fp) /* get an ascii brightness value from fp */
550     COLOR col;
551     FILE *fp;
552     {
553 greg 2.5 double vd;
554 greg 1.1
555     if (fscanf(fp, "%lf", &vd) != 1)
556     return(-1);
557     setcolor(col, vd, vd, vd);
558     return(0);
559     }
560    
561    
562     getbdouble(col, fp) /* get a double brightness value from fp */
563     COLOR col;
564     FILE *fp;
565     {
566 greg 2.5 double vd;
567 greg 1.1
568 greg 1.4 if (fread((char *)&vd, sizeof(double), 1, fp) != 1)
569 greg 1.1 return(-1);
570     setcolor(col, vd, vd, vd);
571     return(0);
572     }
573    
574    
575     getbfloat(col, fp) /* get a float brightness value from fp */
576     COLOR col;
577     FILE *fp;
578     {
579     float vf;
580    
581 greg 1.4 if (fread((char *)&vf, sizeof(float), 1, fp) != 1)
582 greg 1.1 return(-1);
583     setcolor(col, vf, vf, vf);
584     return(0);
585     }
586    
587    
588     getbint(col, fp) /* get an int brightness value from fp */
589     COLOR col;
590     FILE *fp;
591     {
592     int vi;
593 greg 2.5 double d;
594 greg 1.1
595     if (fscanf(fp, "%d", &vi) != 1)
596     return(-1);
597     d = (vi+.5)/256.;
598     setcolor(col, d, d, d);
599     return(0);
600     }
601    
602    
603     getbbyte(col, fp) /* get a byte brightness value from fp */
604     COLOR col;
605     FILE *fp;
606     {
607     BYTE vb;
608 greg 2.5 double d;
609 greg 1.1
610 greg 1.4 if (fread((char *)&vb, sizeof(BYTE), 1, fp) != 1)
611 greg 1.1 return(-1);
612     d = (vb+.5)/256.;
613     setcolor(col, d, d, d);
614     return(0);
615     }
616    
617    
618     putcascii(col, fp) /* put an ascii color to fp */
619     COLOR col;
620     FILE *fp;
621     {
622     fprintf(fp, "%15.3e %15.3e %15.3e\n",
623 greg 2.4 colval(col,ord[0]),
624     colval(col,ord[1]),
625     colval(col,ord[2]));
626 greg 1.1
627     return(ferror(fp) ? -1 : 0);
628     }
629    
630    
631     putcfloat(col, fp) /* put a float color to fp */
632     COLOR col;
633     FILE *fp;
634     {
635     float vf[3];
636    
637 greg 2.4 vf[0] = colval(col,ord[0]);
638     vf[1] = colval(col,ord[1]);
639     vf[2] = colval(col,ord[2]);
640 greg 1.4 fwrite((char *)vf, sizeof(float), 3, fp);
641 greg 1.1
642     return(ferror(fp) ? -1 : 0);
643     }
644    
645    
646     putcdouble(col, fp) /* put a double color to fp */
647     COLOR col;
648     FILE *fp;
649     {
650 greg 2.5 double vd[3];
651 greg 1.1
652 greg 2.4 vd[0] = colval(col,ord[0]);
653     vd[1] = colval(col,ord[1]);
654     vd[2] = colval(col,ord[2]);
655 greg 1.4 fwrite((char *)vd, sizeof(double), 3, fp);
656 greg 1.1
657     return(ferror(fp) ? -1 : 0);
658     }
659    
660    
661     putcint(col, fp) /* put an int color to fp */
662     COLOR col;
663     FILE *fp;
664     {
665     fprintf(fp, "%d %d %d\n",
666 greg 2.4 (int)(colval(col,ord[0])*256.),
667     (int)(colval(col,ord[1])*256.),
668     (int)(colval(col,ord[2])*256.));
669 greg 1.1
670     return(ferror(fp) ? -1 : 0);
671     }
672    
673    
674     putcbyte(col, fp) /* put a byte color to fp */
675     COLOR col;
676     FILE *fp;
677     {
678     register int i;
679     BYTE vb[3];
680    
681 greg 2.4 i = colval(col,ord[0])*256.;
682 greg 1.1 vb[0] = min(i,255);
683 greg 2.4 i = colval(col,ord[1])*256.;
684 greg 1.1 vb[1] = min(i,255);
685 greg 2.4 i = colval(col,ord[2])*256.;
686 greg 1.1 vb[2] = min(i,255);
687 greg 1.4 fwrite((char *)vb, sizeof(BYTE), 3, fp);
688 greg 1.1
689     return(ferror(fp) ? -1 : 0);
690     }
691    
692    
693     putbascii(col, fp) /* put an ascii brightness to fp */
694     COLOR col;
695     FILE *fp;
696     {
697     fprintf(fp, "%15.3e\n", bright(col));
698    
699     return(ferror(fp) ? -1 : 0);
700     }
701    
702    
703     putbfloat(col, fp) /* put a float brightness to fp */
704     COLOR col;
705     FILE *fp;
706     {
707     float vf;
708    
709     vf = bright(col);
710 greg 1.4 fwrite((char *)&vf, sizeof(float), 1, fp);
711 greg 1.1
712     return(ferror(fp) ? -1 : 0);
713     }
714    
715    
716     putbdouble(col, fp) /* put a double brightness to fp */
717     COLOR col;
718     FILE *fp;
719     {
720 greg 2.5 double vd;
721 greg 1.1
722     vd = bright(col);
723 greg 1.4 fwrite((char *)&vd, sizeof(double), 1, fp);
724 greg 1.1
725     return(ferror(fp) ? -1 : 0);
726     }
727    
728    
729     putbint(col, fp) /* put an int brightness to fp */
730     COLOR col;
731     FILE *fp;
732     {
733     fprintf(fp, "%d\n", (int)(bright(col)*256.));
734    
735     return(ferror(fp) ? -1 : 0);
736     }
737    
738    
739     putbbyte(col, fp) /* put a byte brightness to fp */
740     COLOR col;
741     FILE *fp;
742     {
743     register int i;
744     BYTE vb;
745    
746     i = bright(col)*256.;
747     vb = min(i,255);
748 greg 1.4 fwrite((char *)&vb, sizeof(BYTE), 1, fp);
749 greg 1.1
750     return(ferror(fp) ? -1 : 0);
751     }
752    
753    
754 greg 2.10 putpascii(col, fp) /* put an ascii primary to fp */
755     COLOR col;
756     FILE *fp;
757     {
758     fprintf(fp, "%15.3e\n", colval(col,putprim));
759    
760     return(ferror(fp) ? -1 : 0);
761     }
762    
763    
764     putpfloat(col, fp) /* put a float primary to fp */
765     COLOR col;
766     FILE *fp;
767     {
768     float vf;
769    
770     vf = colval(col,putprim);
771     fwrite((char *)&vf, sizeof(float), 1, fp);
772    
773     return(ferror(fp) ? -1 : 0);
774     }
775    
776    
777     putpdouble(col, fp) /* put a double primary to fp */
778     COLOR col;
779     FILE *fp;
780     {
781     double vd;
782    
783     vd = colval(col,putprim);
784     fwrite((char *)&vd, sizeof(double), 1, fp);
785    
786     return(ferror(fp) ? -1 : 0);
787     }
788    
789    
790     putpint(col, fp) /* put an int primary to fp */
791     COLOR col;
792     FILE *fp;
793     {
794     fprintf(fp, "%d\n", (int)(colval(col,putprim)*256.));
795    
796     return(ferror(fp) ? -1 : 0);
797     }
798    
799    
800     putpbyte(col, fp) /* put a byte primary to fp */
801     COLOR col;
802     FILE *fp;
803     {
804     register int i;
805     BYTE vb;
806    
807     i = colval(col,putprim)*256.;
808     vb = min(i,255);
809     fwrite((char *)&vb, sizeof(BYTE), 1, fp);
810    
811     return(ferror(fp) ? -1 : 0);
812     }
813    
814    
815 greg 1.1 set_io() /* set put and get functions */
816     {
817     switch (format) {
818     case 'a': /* ascii */
819 greg 2.10 if (putprim == BRIGHT) {
820 greg 1.1 getval = getbascii;
821     putval = putbascii;
822 greg 2.10 } else if (putprim != ALL) {
823     getval = getbascii;
824     putval = putpascii;
825 greg 1.1 } else {
826     getval = getcascii;
827     putval = putcascii;
828     }
829     return;
830     case 'f': /* binary float */
831 greg 2.10 if (putprim == BRIGHT) {
832 greg 1.1 getval = getbfloat;
833     putval = putbfloat;
834 greg 2.10 } else if (putprim != ALL) {
835     getval = getbfloat;
836     putval = putpfloat;
837 greg 1.1 } else {
838     getval = getcfloat;
839     putval = putcfloat;
840     }
841     return;
842     case 'd': /* binary double */
843 greg 2.10 if (putprim == BRIGHT) {
844 greg 1.1 getval = getbdouble;
845     putval = putbdouble;
846 greg 2.10 } else if (putprim != ALL) {
847     getval = getbdouble;
848     putval = putpdouble;
849 greg 1.1 } else {
850     getval = getcdouble;
851     putval = putcdouble;
852     }
853     return;
854     case 'i': /* integer */
855 greg 2.10 if (putprim == BRIGHT) {
856 greg 1.1 getval = getbint;
857     putval = putbint;
858 greg 2.10 } else if (putprim != ALL) {
859     getval = getbint;
860     putval = putpint;
861 greg 1.1 } else {
862     getval = getcint;
863     putval = putcint;
864     }
865     return;
866     case 'b': /* byte */
867 greg 2.10 if (putprim == BRIGHT) {
868 greg 1.1 getval = getbbyte;
869     putval = putbbyte;
870 greg 2.10 } else if (putprim != ALL) {
871     getval = getbbyte;
872     putval = putpbyte;
873 greg 1.1 } else {
874     getval = getcbyte;
875     putval = putcbyte;
876     }
877     return;
878     }
879     }