ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/macbethcal.c
(Generate patch)

Comparing ray/src/px/macbethcal.c (file contents):
Revision 2.5 by greg, Tue Oct 17 10:24:21 1995 UTC vs.
Revision 2.13 by greg, Fri Jan 31 15:56:17 1997 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1995 Regents of the University of California */
1 > /* Copyright (c) 1997 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# Line 77 | Line 77 | COLOR  mbRGB[24];              /* MacBeth RGB values */
77   #define NMBNEU          6       /* Number of MacBeth neutral colors */
78   short   mbneu[NMBNEU] = {Black,Neutral35,Neutral5,Neutral65,Neutral8,White};
79  
80 < #define NMBMOD          17      /* Number of MacBeth unsaturated colors */
81 < short   mbmod[NMBMOD] = {
82 <                DarkSkin,LightSkin,BlueSky,Foliage,BlueFlower,BluishGreen,
83 <                Orange,PurplishBlue,ModerateRed,Purple,YellowGreen,
84 <                Black,Neutral35,Neutral5,Neutral65,Neutral8,White
85 <        };
80 > #define  NEUFLGS        (1L<<White|1L<<Neutral8|1L<<Neutral65| \
81 >                                1L<<Neutral5|1L<<Neutral35|1L<<Black)
82  
83 < #define NMBSAT          8       /* Number of MacBeth saturated colors */
84 < short   mbsat[NMBSAT] = {
85 <                Red,Green,Blue,Magenta,Yellow,Cyan,
90 <                Orange,OrangeYellow
91 <        };
83 > #define  SATFLGS        (1L<<Red|1L<<Green|1L<<Blue|1L<<Magenta|1L<<Yellow| \
84 >                        1L<<Cyan|1L<<Orange|1L<<Purple|1L<<PurplishBlue| \
85 >                        1L<<YellowGreen|1<<OrangeYellow|1L<<BlueFlower)
86  
87 + #define  UNSFLGS        (1L<<DarkSkin|1L<<LightSkin|1L<<BlueSky|1L<<Foliage| \
88 +                        1L<<BluishGreen|1L<<ModerateRed)
89 +
90 + #define  REQFLGS        NEUFLGS                 /* need these colors */
91 + #define  MODFLGS        (NEUFLGS|UNSFLGS)       /* should be in gamut */
92 +
93 + #define  RG_BORD        0       /* patch border */
94 + #define  RG_CENT        01      /* central region of patch */
95 + #define  RG_ORIG        02      /* original color region */
96 + #define  RG_CORR        04      /* corrected color region */
97 +
98 + int     scanning = 1;           /* scanned input (or recorded output)? */
99 +
100   int     xmax, ymax;             /* input image dimensions */
101   int     bounds[4][2];           /* image coordinates of chart corners */
102   double  imgxfm[3][3];           /* coordinate transformation matrix */
103  
104 < COLOR   picRGB[24];             /* picture colors */
104 > COLOR   inpRGB[24];             /* measured or scanned input colors */
105 > long    inpflags = 0;           /* flags of which colors were input */
106 > long    gmtflags = 0;           /* flags of out-of-gamut colors */
107  
108   COLOR   bramp[NMBNEU][2];       /* brightness ramp (per primary) */
109 < double  solmat[3][3];           /* color mapping matrix */
109 > COLORMAT        solmat;         /* color mapping matrix */
110 > COLOR   colmin, colmax;         /* gamut limits */
111  
112   FILE    *debugfp = NULL;        /* debug output picture */
113   char    *progname;
# Line 112 | Line 122 | char   **argv;
122          int     i;
123  
124          progname = argv[0];
125 <        if (argc > 2 && !strcmp(argv[1], "-d")) {       /* debug output */
126 <                if ((debugfp = fopen(argv[2], "w")) == NULL) {
127 <                        perror(argv[2]);
128 <                        exit(1);
129 <                }
125 >        for (i = 1; i < argc && argv[i][0] == '-'; i++)
126 >                switch (argv[i][1]) {
127 >                case 'd':                               /* debug output */
128 >                        i++;
129 >                        if (badarg(argc-i, argv+i, "s"))
130 >                                goto userr;
131 >                        if ((debugfp = fopen(argv[i], "w")) == NULL) {
132 >                                perror(argv[i]);
133 >                                exit(1);
134 >                        }
135   #ifdef MSDOS
136 <                setmode(fileno(debugfp), O_BINARY);
136 >                        setmode(fileno(debugfp), O_BINARY);
137   #endif
138 <                newheader("RADIANCE", debugfp);
139 <                printargs(argc, argv, debugfp);
140 <                argv += 2;
141 <                argc -= 2;
142 <        }
143 <        if (argc != 3 && argc != 11)
144 <                goto userr;
145 <        if (strcmp(argv[1], "-") && freopen(argv[1], "r", stdin) == NULL) {
146 <                perror(argv[1]);
138 >                        newheader("RADIANCE", debugfp);         /* start */
139 >                        printargs(argc, argv, debugfp);         /* header */
140 >                        break;
141 >                case 'p':                               /* picture position */
142 >                        if (badarg(argc-i-1, argv+i+1, "iiiiiiii"))
143 >                                goto userr;
144 >                        bounds[0][0] = atoi(argv[++i]);
145 >                        bounds[0][1] = atoi(argv[++i]);
146 >                        bounds[1][0] = atoi(argv[++i]);
147 >                        bounds[1][1] = atoi(argv[++i]);
148 >                        bounds[2][0] = atoi(argv[++i]);
149 >                        bounds[2][1] = atoi(argv[++i]);
150 >                        bounds[3][0] = atoi(argv[++i]);
151 >                        bounds[3][1] = atoi(argv[++i]);
152 >                        scanning = 2;
153 >                        break;
154 >                case 'c':                               /* color input */
155 >                        scanning = 0;
156 >                        break;
157 >                default:
158 >                        goto userr;
159 >                }
160 >                                                        /* open files */
161 >        if (i < argc && freopen(argv[i], "r", stdin) == NULL) {
162 >                perror(argv[i]);
163                  exit(1);
164          }
165 <        if (strcmp(argv[2], "-") && freopen(argv[2], "w", stdout) == NULL) {
166 <                perror(argv[2]);
165 >        if (i+1 < argc && freopen(argv[i+1], "w", stdout) == NULL) {
166 >                perror(argv[i+1]);
167                  exit(1);
168          }
169 +        if (scanning) {                 /* load input picture header */
170   #ifdef MSDOS
171 <        setmode(fileno(stdin), O_BINARY);
171 >                setmode(fileno(stdin), O_BINARY);
172   #endif
173 <        if (checkheader(stdin, COLRFMT, NULL) < 0 ||
174 <                        fgetresolu(&xmax, &ymax, stdin) < 0) {
175 <                fprintf(stderr, "%s: bad input picture\n", progname);
176 <                exit(1);
145 <        }
146 <                                        /* get chart boundaries */
147 <        if (argc == 11) {
148 <                for (i = 0; i < 4; i++) {
149 <                        if (!isint(argv[2*i+3]) | !isint(argv[2*i+4]))
150 <                                goto userr;
151 <                        bounds[i][0] = atoi(argv[2*i+3]);
152 <                        bounds[i][1] = atoi(argv[2*i+4]);
173 >                if (checkheader(stdin, COLRFMT, NULL) < 0 ||
174 >                                fgetresolu(&xmax, &ymax, stdin) < 0) {
175 >                        fprintf(stderr, "%s: bad input picture\n", progname);
176 >                        exit(1);
177                  }
178 <        } else {
178 >        } else {                        /* else set default xmax and ymax */
179 >                xmax = 512;
180 >                ymax = 2*512/3;
181 >        }
182 >        if (scanning != 2) {            /* use default boundaries */
183                  bounds[0][0] = bounds[2][0] = .029*xmax + .5;
184                  bounds[0][1] = bounds[1][1] = .956*ymax + .5;
185                  bounds[1][0] = bounds[3][0] = .971*xmax + .5;
186                  bounds[2][1] = bounds[3][1] = .056*ymax + .5;
187          }
188          init();                         /* initialize */
189 <        getcolors();                    /* get picture colors */
189 >        if (scanning)                   /* get picture colors */
190 >                getpicture();
191 >        else
192 >                getcolors();
193          compute();                      /* compute color mapping */
194                                          /* print comment */
195 <        printf("{ Color correction file computed by %s }\n", progname);
196 <        printf("{ from scanned MacBetch color chart %s }\n", argv[1]);
195 >        printf("{\n\tColor correction file computed by:\n\t\t");
196 >        printargs(argc, argv, stdout);
197 >        printf("\n\tUsage: pcomb -f %s uncorrected.pic > corrected.pic\n",
198 >                        i+1 < argc ? argv[i+1] : "{this_file}");
199 >        if (!scanning)
200 >                printf("\t   Or: pcond [options] -f %s orig.pic > output.pic\n",
201 >                                i+1 < argc ? argv[i+1] : "{this_file}");
202 >        printf("}\n");
203          putmapping();                   /* put out color mapping */
204 <        putdebug();                     /* put out debug picture */
204 >        if (debugfp != NULL)            /* put out debug picture */
205 >                if (scanning)
206 >                        picdebug();
207 >                else
208 >                        clrdebug();
209          exit(0);
210   userr:
211 <        fprintf(stderr, "Usage: %s [-d dbg.pic] input.pic output.cal [xul yul xur yur xll yll xlr ylr]\n",
211 >        fprintf(stderr,
212 > "Usage: %s [-d dbg.pic][-p xul yul xur yur xll yll xlr ylr] input.pic [output.cal]\n",
213                          progname);
214 +        fprintf(stderr, "   or: %s [-d dbg.pic] -c [xyY.dat [output.cal]]\n",
215 +                        progname);
216          exit(1);
217   }
218  
# Line 176 | Line 220 | userr:
220   init()                          /* initialize */
221   {
222          double  quad[4][2];
223 +        register int    i;
224                                          /* make coordinate transformation */
225          quad[0][0] = bounds[0][0];
226          quad[0][1] = bounds[0][1];
# Line 190 | Line 235 | init()                         /* initialize */
235                  fprintf(stderr, "%s: bad chart boundaries\n", progname);
236                  exit(1);
237          }
238 +                                        /* map MacBeth colors to RGB space */
239 +        for (i = 0; i < 24; i++)
240 +                xyY2RGB(mbRGB[i], mbxyY[i]);
241   }
242  
243  
244   int
245 < chartndx(x, y)                          /* find color number for position */
245 > chartndx(x, y, np)                      /* find color number for position */
246   int     x, y;
247 + int     *np;
248   {
249          double  ipos[3], cpos[3];
250          int     ix, iy;
# Line 208 | Line 257 | int    x, y;
257          cpos[0] /= cpos[2];
258          cpos[1] /= cpos[2];
259          if (cpos[0] < 0. || cpos[0] >= 6. || cpos[1] < 0. || cpos[1] >= 4.)
260 <                return(-1);
260 >                return(RG_BORD);
261          ix = cpos[0];
262          iy = cpos[1];
263          fx = cpos[0] - ix;
264          fy = cpos[1] - iy;
265 <        if (fx < .35 || fx >= .65 || fy < .35 || fy >= .65)
266 <                return(-1);
267 <        return(iy*6 + ix);
265 >        *np = iy*6 + ix;
266 >        if (fx >= 0.35 && fx < 0.65 && fy >= 0.35 && fy < 0.65)
267 >                return(RG_CENT);
268 >        if (fx < 0.05 || fx >= 0.95 || fy < 0.05 || fy >= 0.95)
269 >                return(RG_BORD);
270 >        if (fx >= 0.5)                  /* right side is corrected */
271 >                return(RG_CORR);
272 >        return(RG_ORIG);                /* left side is original */
273   }
274  
275  
276 < getcolors()                             /* load in picture colors */
276 > getpicture()                            /* load in picture colors */
277   {
278          COLR    *scanln;
279          COLOR   pval;
280          int     ccount[24];
281          double  d;
282 <        int     y;
283 <        register int    x, i;
282 >        int     y, i;
283 >        register int    x;
284  
285          scanln = (COLR *)malloc(xmax*sizeof(COLR));
286          if (scanln == NULL) {
# Line 234 | Line 288 | getcolors()                            /* load in picture colors */
288                  exit(1);
289          }
290          for (i = 0; i < 24; i++) {
291 <                setcolor(picRGB[i], 0., 0., 0.);
291 >                setcolor(inpRGB[i], 0., 0., 0.);
292                  ccount[i] = 0;
293          }
294          for (y = ymax-1; y >= 0; y--) {
# Line 243 | Line 297 | getcolors()                            /* load in picture colors */
297                                          progname);
298                          exit(1);
299                  }
300 <                for (x = 0; x < xmax; x++) {
301 <                        i = chartndx(x, y);
248 <                        if (i >= 0) {
300 >                for (x = 0; x < xmax; x++)
301 >                        if (chartndx(x, y, &i) == RG_CENT) {
302                                  colr_color(pval, scanln[x]);
303 <                                addcolor(picRGB[i], pval);
303 >                                addcolor(inpRGB[i], pval);
304                                  ccount[i]++;
305                          }
306 +        }
307 +        for (i = 0; i < 24; i++) {              /* compute averages */
308 +                if (ccount[i] == 0)
309 +                        continue;
310 +                d = 1./ccount[i];
311 +                scalecolor(inpRGB[i], d);
312 +                inpflags |= 1L<<i;
313 +        }
314 +        free((char *)scanln);
315 + }
316 +
317 +
318 + getcolors()                     /* get xyY colors from standard input */
319 + {
320 +        int     gotwhite = 0;
321 +        COLOR   whiteclr;
322 +        int     n;
323 +        float   xyYin[3];
324 +
325 +        while (fgetval(stdin, 'i', &n) == 1) {          /* read colors */
326 +                if (n < 0 | n > 24 ||
327 +                                fgetval(stdin, 'f', &xyYin[0]) != 1 ||
328 +                                fgetval(stdin, 'f', &xyYin[1]) != 1 ||
329 +                                fgetval(stdin, 'f', &xyYin[2]) != 1 ||
330 +                                xyYin[0] < 0. | xyYin[1] < 0. ||
331 +                                xyYin[0] + xyYin[1] > 1.) {
332 +                        fprintf(stderr, "%s: bad color input data\n",
333 +                                        progname);
334 +                        exit(1);
335                  }
336 +                if (n == 0) {                           /* calibration white */
337 +                        xyY2RGB(whiteclr, xyYin);
338 +                        gotwhite++;
339 +                } else {                                /* standard color */
340 +                        n--;
341 +                        xyY2RGB(inpRGB[n], xyYin);
342 +                        inpflags |= 1L<<n;
343 +                }
344          }
345 <        for (i = 0; i < 24; i++) {
346 <                if (ccount[i] == 0) {
347 <                        fprintf(stderr, "%s: bad chart boundaries\n",
345 >                                        /* normalize colors */
346 >        if (!gotwhite) {
347 >                if (!(inpflags & 1L<<White)) {
348 >                        fprintf(stderr, "%s: missing input for White\n",
349                                          progname);
350                          exit(1);
351                  }
352 <                d = 1.0/ccount[i];
353 <                scalecolor(picRGB[i], d);
352 >                setcolor(whiteclr,
353 >                        colval(inpRGB[White],RED)/colval(mbRGB[White],RED),
354 >                        colval(inpRGB[White],GRN)/colval(mbRGB[White],GRN),
355 >                        colval(inpRGB[White],BLU)/colval(mbRGB[White],BLU));
356          }
357 <        free((char *)scanln);
357 >        for (n = 0; n < 24; n++)
358 >                if (inpflags & 1L<<n)
359 >                        setcolor(inpRGB[n],
360 >                                colval(inpRGB[n],RED)/colval(whiteclr,RED),
361 >                                colval(inpRGB[n],GRN)/colval(whiteclr,GRN),
362 >                                colval(inpRGB[n],BLU)/colval(whiteclr,BLU));
363   }
364  
365  
366   bresp(y, x)             /* piecewise linear interpolation of primaries */
367   COLOR   y, x;
368   {
271 –        double  cv[3];
369          register int    i, n;
370  
371          for (i = 0; i < 3; i++) {
372                  for (n = 0; n < NMBNEU-2; n++)
373                          if (colval(x,i) < colval(bramp[n+1][0],i))
374                                  break;
375 <                cv[i] = ((colval(bramp[n+1][0],i) - colval(x,i)) *
375 >                colval(y,i) = ((colval(bramp[n+1][0],i) - colval(x,i)) *
376                                                  colval(bramp[n][1],i) +
377                                  (colval(x,i) - colval(bramp[n][0],i)) *
378                                                  colval(bramp[n+1][1],i)) /
379                          (colval(bramp[n+1][0],i) - colval(bramp[n][0],i));
283 –                if (cv[i] < 0.) cv[i] = 0.;
380          }
285 –        setcolor(y, cv[0], cv[1], cv[2]);
381   }
382  
383  
384   compute()                       /* compute color mapping */
385   {
386 <        COLOR   clrin[NMBMOD], clrout[NMBMOD];
386 >        COLOR   clrin[24], clrout[24];
387 >        long    cflags;
388          COLOR   ctmp;
389 <        double  d;
390 <        register int    i;
391 <                                        /* map MacBeth colors to RGB space */
392 <        for (i = 0; i < 24; i++) {
393 <                d = mbxyY[i][2] / mbxyY[i][1];
394 <                ctmp[0] = mbxyY[i][0] * d;
299 <                ctmp[1] = mbxyY[i][2];
300 <                ctmp[2] = (1. - mbxyY[i][0] - mbxyY[i][1]) * d;
301 <                cie_rgb(mbRGB[i], ctmp);
389 >        register int    i, n;
390 >                                        /* did we get what we need? */
391 >        if ((inpflags & REQFLGS) != REQFLGS) {
392 >                fprintf(stderr, "%s: missing required input colors\n",
393 >                                progname);
394 >                exit(1);
395          }
396                                          /* compute piecewise luminance curve */
397          for (i = 0; i < NMBNEU; i++) {
398 <                copycolor(bramp[i][0], picRGB[mbneu[i]]);
398 >                copycolor(bramp[i][0], inpRGB[mbneu[i]]);
399                  copycolor(bramp[i][1], mbRGB[mbneu[i]]);
400          }
401 <                                        /* compute color matrix */
402 <        for (i = 0; i < NMBMOD; i++) {
403 <                bresp(clrin[i], picRGB[mbmod[i]]);
404 <                copycolor(clrout[i], mbRGB[mbmod[i]]);
405 <        }
406 <        compsoln(clrin, clrout, NMBMOD);
401 >                                        /* compute color space gamut */
402 >        if (scanning) {
403 >                copycolor(colmin, cblack);
404 >                copycolor(colmax, cwhite);
405 >        } else
406 >                for (i = 0; i < 3; i++) {
407 >                        colval(colmin,i) = colval(bramp[0][0],i) -
408 >                                colval(bramp[0][1],i) *
409 >                                (colval(bramp[1][0],i)-colval(bramp[0][0],i)) /
410 >                                (colval(bramp[1][1],i)-colval(bramp[1][0],i));
411 >                        colval(colmax,i) = colval(bramp[NMBNEU-2][0],i) +
412 >                                (1.-colval(bramp[NMBNEU-2][1],i)) *
413 >                                (colval(bramp[NMBNEU-1][0],i) -
414 >                                        colval(bramp[NMBNEU-2][0],i)) /
415 >                                (colval(bramp[NMBNEU-1][1],i) -
416 >                                        colval(bramp[NMBNEU-2][1],i));
417 >                }
418 >                                        /* compute color mapping */
419 >        do {
420 >                cflags = inpflags & ~gmtflags;
421 >                n = 0;                          /* compute transform matrix */
422 >                for (i = 0; i < 24; i++)
423 >                        if (cflags & 1L<<i) {
424 >                                bresp(clrin[n], inpRGB[i]);
425 >                                copycolor(clrout[n], mbRGB[i]);
426 >                                n++;
427 >                        }
428 >                compsoln(clrin, clrout, n);
429 >                                                /* check out-of-gamut colors */
430 >                for (i = 0; i < 24; i++)
431 >                        if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
432 >                                gmtflags |= 1L<<i;
433 >        } while (cflags & gmtflags);
434 >        if (gmtflags & MODFLGS)
435 >                fprintf(stderr,
436 >                "%s: warning - some moderate colors are out of gamut\n",
437 >                                progname);
438   }
439  
440  
# Line 328 | Line 452 | putmapping()                   /* put out color mapping for pcomb -f *
452                  for (i = 0; i < NMBNEU; i++)
453                          printf(",%g", colval(bramp[i][1],j));
454                  printf(");\n");
331 –                printf("%c = %ci(1);\n", cchar[j], cchar[j]);
455                  printf("%cfi(n) = if(n-%g, %d, if(%cxa(n+1)-%c, n, %cfi(n+1)));\n",
456                                  cchar[j], NMBNEU-1.5, NMBNEU-1, cchar[j],
457                                  cchar[j], cchar[j]);
458                  printf("%cndx = %cfi(1);\n", cchar[j], cchar[j]);
459 <                printf("%cn = ((%cxa(%cndx+1)-%c)*%cya(%cndx) + ",
460 <                                cchar[j], cchar[j], cchar[j],
461 <                                cchar[j], cchar[j], cchar[j]);
459 >                printf("%c%c = ((%cxa(%cndx+1)-%c)*%cya(%cndx) + ",
460 >                                cchar[j], scanning?'n':'o', cchar[j],
461 >                                cchar[j], cchar[j], cchar[j], cchar[j]);
462                  printf("(%c-%cxa(%cndx))*%cya(%cndx+1)) /\n",
463                                  cchar[j], cchar[j], cchar[j],
464                                  cchar[j], cchar[j]);
# Line 343 | Line 466 | putmapping()                   /* put out color mapping for pcomb -f *
466                                  cchar[j], cchar[j], cchar[j], cchar[j]);
467          }
468                                          /* print color mapping */
469 <        printf("ro = %g*rn + %g*gn + %g*bn ;\n",
470 <                        solmat[0][0], solmat[0][1], solmat[0][2]);
471 <        printf("go = %g*rn + %g*gn + %g*bn ;\n",
472 <                        solmat[1][0], solmat[1][1], solmat[1][2]);
473 <        printf("bo = %g*rn + %g*gn + %g*bn ;\n",
474 <                        solmat[2][0], solmat[2][1], solmat[2][2]);
469 >        if (scanning) {
470 >                printf("r = ri(1); g = gi(1); b = bi(1);\n");
471 >                printf("ro = %g*rn + %g*gn + %g*bn ;\n",
472 >                                solmat[0][0], solmat[0][1], solmat[0][2]);
473 >                printf("go = %g*rn + %g*gn + %g*bn ;\n",
474 >                                solmat[1][0], solmat[1][1], solmat[1][2]);
475 >                printf("bo = %g*rn + %g*gn + %g*bn ;\n",
476 >                                solmat[2][0], solmat[2][1], solmat[2][2]);
477 >        } else {
478 >                printf("r1 = ri(1); g1 = gi(1); b1 = bi(1);\n");
479 >                printf("r = %g*r1 + %g*g1 + %g*b1 ;\n",
480 >                                solmat[0][0], solmat[0][1], solmat[0][2]);
481 >                printf("g = %g*r1 + %g*g1 + %g*b1 ;\n",
482 >                                solmat[1][0], solmat[1][1], solmat[1][2]);
483 >                printf("b = %g*r1 + %g*g1 + %g*b1 ;\n",
484 >                                solmat[2][0], solmat[2][1], solmat[2][2]);
485 >        }
486   }
487  
488  
# Line 362 | Line 496 | int    n;
496          double  colv[3], rowv[3];
497          register int    i, j, k;
498  
499 <        if (n < 3 | n > NMBMOD) {
500 <                fprintf(stderr, "%s: inconsistent code!\n", progname);
499 >        if (n < 3) {
500 >                fprintf(stderr, "%s: too few colors to match!\n", progname);
501                  exit(1);
502          }
503          if (n == 3)
# Line 412 | Line 546 | int    n;
546   }
547  
548  
549 + int
550   cvtcolor(cout, cin)             /* convert color according to our mapping */
551   COLOR   cout, cin;
552   {
553 <        double  r, g, b;
553 >        COLOR   ctmp;
554 >        int     clipped;
555  
556 <        bresp(cout, cin);
557 <        r = colval(cout,0)*solmat[0][0] + colval(cout,1)*solmat[0][1]
558 <                        + colval(cout,2)*solmat[0][2];
559 <        if (r < 0) r = 0;
560 <        g = colval(cout,0)*solmat[1][0] + colval(cout,1)*solmat[1][1]
561 <                        + colval(cout,2)*solmat[1][2];
562 <        if (g < 0) g = 0;
563 <        b = colval(cout,0)*solmat[2][0] + colval(cout,1)*solmat[2][1]
428 <                        + colval(cout,2)*solmat[2][2];
429 <        if (b < 0) b = 0;
430 <        setcolor(cout, r, g, b);
556 >        if (scanning) {
557 >                bresp(ctmp, cin);
558 >                clipped = cresp(cout, ctmp);
559 >        } else {
560 >                clipped = cresp(ctmp, cin);
561 >                bresp(cout, ctmp);
562 >        }
563 >        return(clipped);
564   }
565  
566  
567 < putdebug()                      /* put out debugging picture */
567 > int
568 > cresp(cout, cin)                /* transform color according to matrix */
569 > COLOR   cout, cin;
570   {
571 +        colortrans(cout, solmat, cin);
572 +        return(clipgamut(cout, bright(cout), CGAMUT, colmin, colmax));
573 + }
574 +
575 +
576 + xyY2RGB(rgbout, xyYin)          /* convert xyY to RGB */
577 + COLOR   rgbout;
578 + register float  xyYin[3];
579 + {
580 +        COLOR   ctmp;
581 +        double  d;
582 +
583 +        d = xyYin[2] / xyYin[1];
584 +        ctmp[0] = xyYin[0] * d;
585 +        ctmp[1] = xyYin[2];
586 +        ctmp[2] = (1. - xyYin[0] - xyYin[1]) * d;
587 +                                /* allow negative values */
588 +        colortrans(rgbout, xyz2rgbmat, ctmp);
589 + }
590 +
591 +
592 + picdebug()                      /* put out debugging picture */
593 + {
594 +        static COLOR    blkcol = BLKCOLOR;
595          COLOR   *scan;
596 <        int     y;
597 <        register int    x, i;
596 >        int     y, i;
597 >        register int    x, rg;
598  
440 –        if (debugfp == NULL)
441 –                return;
599          if (fseek(stdin, 0L, 0) == EOF) {
600                  fprintf(stderr, "%s: cannot seek on input picture\n", progname);
601                  exit(1);
# Line 455 | Line 612 | putdebug()                     /* put out debugging picture */
612          fputformat(COLRFMT, debugfp);
613          putc('\n', debugfp);
614          fprtresolu(xmax, ymax, debugfp);
615 +                                                /* write debug picture */
616          for (y = ymax-1; y >= 0; y--) {
617                  if (freadscan(scan, xmax, stdin) < 0) {
618                          fprintf(stderr, "%s: error rereading input picture\n",
# Line 462 | Line 620 | putdebug()                     /* put out debugging picture */
620                          exit(1);
621                  }
622                  for (x = 0; x < xmax; x++) {
623 <                        i = chartndx(x, y);
624 <                        if (i < 0)
623 >                        rg = chartndx(x, y, &i);
624 >                        if (rg == RG_CENT) {
625 >                                if (!(1L<<i & gmtflags) || (x+y)&07) {
626 >                                        copycolor(scan[x], mbRGB[i]);
627 >                                        clipgamut(scan[x], bright(scan[x]),
628 >                                                CGAMUT, cblack, cwhite);
629 >                                } else
630 >                                        copycolor(scan[x], blkcol);
631 >                        } else if (rg == RG_CORR)
632                                  cvtcolor(scan[x], scan[x]);
633 <                        else
634 <                                copycolor(scan[x], mbRGB[i]);
633 >                        else if (rg != RG_ORIG)
634 >                                copycolor(scan[x], blkcol);
635                  }
636                  if (fwritescan(scan, xmax, debugfp) < 0) {
637                          fprintf(stderr, "%s: error writing debugging picture\n",
# Line 474 | Line 639 | putdebug()                     /* put out debugging picture */
639                          exit(1);
640                  }
641          }
642 +                                                /* clean up */
643 +        fclose(debugfp);
644 +        free((char *)scan);
645 + }
646 +
647 +
648 + clrdebug()                      /* put out debug picture from color input */
649 + {
650 +        static COLR     blkclr = BLKCOLR;
651 +        COLR    mbclr[24], cvclr[24], orclr[24];
652 +        COLR    *scan;
653 +        COLOR   ctmp, ct2;
654 +        int     y, i;
655 +        register int    x, rg;
656 +                                                /* convert colors */
657 +        for (i = 0; i < 24; i++) {
658 +                copycolor(ctmp, mbRGB[i]);
659 +                clipgamut(ctmp, bright(ctmp), CGAMUT, cblack, cwhite);
660 +                setcolr(mbclr[i], colval(ctmp,RED),
661 +                                colval(ctmp,GRN), colval(ctmp,BLU));
662 +                if (inpflags & 1L<<i) {
663 +                        copycolor(ctmp, inpRGB[i]);
664 +                        clipgamut(ctmp, bright(ctmp), CGAMUT, cblack, cwhite);
665 +                        setcolr(orclr[i], colval(ctmp,RED),
666 +                                        colval(ctmp,GRN), colval(ctmp,BLU));
667 +                        bresp(ctmp, inpRGB[i]);
668 +                        colortrans(ct2, solmat, ctmp);
669 +                        clipgamut(ct2, bright(ct2), CGAMUT, cblack, cwhite);
670 +                        setcolr(cvclr[i], colval(ct2,RED),
671 +                                        colval(ct2,GRN), colval(ct2,BLU));
672 +                }
673 +        }
674 +                                                /* allocate scanline */
675 +        scan = (COLR *)malloc(xmax*sizeof(COLR));
676 +        if (scan == NULL) {
677 +                perror(progname);
678 +                exit(1);
679 +        }
680 +                                                /* finish debug header */
681 +        fputformat(COLRFMT, debugfp);
682 +        putc('\n', debugfp);
683 +        fprtresolu(xmax, ymax, debugfp);
684 +                                                /* write debug picture */
685 +        for (y = ymax-1; y >= 0; y--) {
686 +                for (x = 0; x < xmax; x++) {
687 +                        rg = chartndx(x, y, &i);
688 +                        if (rg == RG_CENT) {
689 +                                if (!(1L<<i & gmtflags) || (x+y)&07)
690 +                                        copycolr(scan[x], mbclr[i]);
691 +                                else
692 +                                        copycolr(scan[x], blkclr);
693 +                        } else if (rg == RG_BORD || !(1L<<i & inpflags))
694 +                                copycolr(scan[x], blkclr);
695 +                        else if (rg == RG_ORIG)
696 +                                copycolr(scan[x], orclr[i]);
697 +                        else /* rg == RG_CORR */
698 +                                copycolr(scan[x], cvclr[i]);
699 +                }
700 +                if (fwritecolrs(scan, xmax, debugfp) < 0) {
701 +                        fprintf(stderr, "%s: error writing debugging picture\n",
702 +                                        progname);
703 +                        exit(1);
704 +                }
705 +        }
706 +                                                /* clean up */
707 +        fclose(debugfp);
708          free((char *)scan);
709   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines