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.9 by greg, Mon Oct 23 12:20:03 1995 UTC vs.
Revision 2.28 by greg, Sat Dec 28 18:05:14 2019 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1995 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   * Calibrate a scanned MacBeth Color Checker Chart
6   *
7 < * Produce a .cal file suitable for use with pcomb.
7 > * Produce a .cal file suitable for use with pcomb,
8 > * or .cwp file suitable for use with pcwarp.
9 > *
10 > * Warping code depends on conformance of COLOR and W3VEC types.
11   */
12  
13 < #include <stdio.h>
14 < #ifdef MSDOS
15 < #include <fcntl.h>
16 < #endif
13 > #include <math.h>
14 >
15 > #include "platform.h"
16 > #include "paths.h"
17 > #include "rtio.h"
18   #include "color.h"
19   #include "resolu.h"
20   #include "pmap.h"
21 + #include "warp3d.h"
22 + #include "mx3.h"
23  
24                                  /* MacBeth colors */
25   #define DarkSkin        0
# Line 43 | Line 46 | static char SCCSid[] = "$SunId$ LBL";
46   #define Neutral5        21
47   #define Neutral35       22
48   #define Black           23
49 <                                /* computed from 5nm spectral measurements */
49 >                                /* computed from 10nm spectral measurements */
50                                  /* CIE 1931 2 degree obs, equal-energy white */
51   float   mbxyY[24][3] = {
52 <                {0.462, 0.3769, 0.0932961},     /* DarkSkin */
53 <                {0.4108, 0.3542, 0.410348},     /* LightSkin */
54 <                {0.2626, 0.267, 0.181554},      /* BlueSky */
55 <                {0.36, 0.4689, 0.108447},       /* Foliage */
56 <                {0.2977, 0.2602, 0.248407},     /* BlueFlower */
57 <                {0.2719, 0.3485, 0.401156},     /* BluishGreen */
58 <                {0.52, 0.4197, 0.357899},       /* Orange */
59 <                {0.229, 0.1866, 0.103911},      /* PurplishBlue */
60 <                {0.4909, 0.3262, 0.242615},     /* ModerateRed */
61 <                {0.3361, 0.2249, 0.0600102},    /* Purple */
62 <                {0.3855, 0.4874, 0.42963},      /* YellowGreen */
63 <                {0.4853, 0.4457, 0.476343},     /* OrangeYellow */
64 <                {0.2026, 0.1369, 0.0529249},    /* Blue */
65 <                {0.3007, 0.4822, 0.221226},     /* Green */
66 <                {0.5805, 0.3238, 0.162167},     /* Red */
67 <                {0.4617, 0.472, 0.64909},       /* Yellow */
68 <                {0.4178, 0.2625, 0.233662},     /* Magenta */
69 <                {0.2038, 0.2508, 0.167275},     /* Cyan */
70 <                {0.3358, 0.337, 0.916877},      /* White */
71 <                {0.3338, 0.3348, 0.604678},     /* Neutral.8 */
72 <                {0.3333, 0.3349, 0.364566},     /* Neutral.65 */
73 <                {0.3353, 0.3359, 0.200238},     /* Neutral.5 */
74 <                {0.3363, 0.336, 0.0878721},     /* Neutral.35 */
75 <                {0.3346, 0.3349, 0.0308383}     /* Black */
52 >                {0.421236, 0.361196, 0.103392},         /* DarkSkin */
53 >                {0.40868, 0.358157, 0.352867},          /* LightSkin */
54 >                {0.265063, 0.271424, 0.185124},         /* BlueSky */
55 >                {0.362851, 0.43055, 0.132625},          /* Foliage */
56 >                {0.28888, 0.260851, 0.233138},          /* BlueFlower */
57 >                {0.277642, 0.365326, 0.416443},         /* BluishGreen */
58 >                {0.524965, 0.40068, 0.312039},          /* Orange */
59 >                {0.225018, 0.190392, 0.114999},         /* PurplishBlue */
60 >                {0.487199, 0.315372, 0.198616},         /* ModerateRed */
61 >                {0.314245, 0.227231, 0.0646047},        /* Purple */
62 >                {0.396202, 0.489732, 0.440724},         /* YellowGreen */
63 >                {0.493297, 0.435299, 0.43444},          /* OrangeYellow */
64 >                {0.198191, 0.149265, 0.0588122},        /* Blue */
65 >                {0.322838, 0.487601, 0.229258},         /* Green */
66 >                {0.561833, 0.321165, 0.126978},         /* Red */
67 >                {0.468113, 0.467021, 0.605289},         /* Yellow */
68 >                {0.397128, 0.248535, 0.201761},         /* Magenta */
69 >                {0.209552, 0.276256, 0.190917},         /* Cyan */
70 >                {0.337219, 0.339042, 0.912482},         /* White */
71 >                {0.333283, 0.335077, 0.588297},         /* Neutral.8 */
72 >                {0.332747, 0.334371, 0.3594},           /* Neutral.65 */
73 >                {0.331925, 0.334202, 0.19114},          /* Neutral.5 */
74 >                {0.330408, 0.332615, 0.0892964},        /* Neutral.35 */
75 >                {0.331841, 0.331405, 0.0319541},        /* Black */
76          };
77  
78   COLOR   mbRGB[24];              /* MacBeth RGB values */
# Line 95 | Line 98 | short  mbneu[NMBNEU] = {Black,Neutral35,Neutral5,Neutra
98   #define  RG_ORIG        02      /* original color region */
99   #define  RG_CORR        04      /* corrected color region */
100  
101 + #ifndef  DISPCOM
102 + #define  DISPCOM        "ximage -op \"%s\""
103 + #endif
104 +
105 + int     scanning = 1;           /* scanned input (or recorded output)? */
106 + double  irrad = 1.0;            /* irradiance multiplication factor */
107 + int     rawmap = 0;             /* put out raw color mapping? */
108 +
109   int     xmax, ymax;             /* input image dimensions */
110   int     bounds[4][2];           /* image coordinates of chart corners */
111   double  imgxfm[3][3];           /* coordinate transformation matrix */
# Line 104 | Line 115 | long   inpflags = 0;           /* flags of which colors were inpu
115   long    gmtflags = 0;           /* flags of out-of-gamut colors */
116  
117   COLOR   bramp[NMBNEU][2];       /* brightness ramp (per primary) */
118 < double  solmat[3][3];           /* color mapping matrix */
118 > COLORMAT        solmat;         /* color mapping matrix */
119 > COLOR   colmin, colmax;         /* gamut limits */
120  
121 + WARP3D  *wcor = NULL;           /* color space warp */
122 +
123   FILE    *debugfp = NULL;        /* debug output picture */
124   char    *progname;
125  
126 < extern char     *malloc();
126 > static void init(void);
127 > static int chartndx(int x, int y, int   *np);
128 > static void getpicture(void);
129 > static void getcolors(void);
130 > static void bresp(COLOR y, COLOR        x);
131 > static void compute(void);
132 > static void putmapping(void);
133 > static void compsoln(COLOR      cin[], COLOR    cout[], int     n);
134 > static void cwarp(void);
135 > static int cvtcolor(COLOR       cout, COLOR     cin);
136 > static int cresp(COLOR  cout, COLOR     cin);
137 > static void xyY2RGB(COLOR       rgbout, float   xyYin[3]);
138 > static void picdebug(void);
139 > static void clrdebug(void);
140 > static void getpos(char *name, int      bnds[2], FILE   *fp);
141 > static void pickchartpos(char   *pfn);
142  
143  
144 < main(argc, argv)
145 < int     argc;
146 < char    **argv;
144 > int
145 > main(
146 >        int     argc,
147 >        char    **argv
148 > )
149   {
119 –        int     inpispic = 1;
150          int     i;
151  
152          progname = argv[0];
# Line 130 | Line 160 | char   **argv;
160                                  perror(argv[i]);
161                                  exit(1);
162                          }
163 < #ifdef MSDOS
134 <                        setmode(fileno(debugfp), O_BINARY);
135 < #endif
163 >                        SET_FILE_BINARY(debugfp);
164                          newheader("RADIANCE", debugfp);         /* start */
165                          printargs(argc, argv, debugfp);         /* header */
166                          break;
# Line 147 | Line 175 | char   **argv;
175                          bounds[2][1] = atoi(argv[++i]);
176                          bounds[3][0] = atoi(argv[++i]);
177                          bounds[3][1] = atoi(argv[++i]);
178 <                        inpispic = 2;
178 >                        scanning = 2;
179                          break;
180 +                case 'P':                               /* pick position */
181 +                        scanning = 3;
182 +                        break;
183 +                case 'i':                               /* irradiance factor */
184 +                        i++;
185 +                        if (badarg(argc-i, argv+i, "f"))
186 +                                goto userr;
187 +                        irrad = atof(argv[i]);
188 +                        break;
189 +                case 'm':                               /* raw map output */
190 +                        rawmap = 1;
191 +                        break;
192                  case 'c':                               /* color input */
193 <                        inpispic = 0;
193 >                        scanning = 0;
194                          break;
195                  default:
196                          goto userr;
197                  }
198                                                          /* open files */
199          if (i < argc && freopen(argv[i], "r", stdin) == NULL) {
200 <                perror(argv[1]);
200 >                perror(argv[i]);
201                  exit(1);
202          }
203          if (i+1 < argc && freopen(argv[i+1], "w", stdout) == NULL) {
204 <                perror(argv[2]);
204 >                perror(argv[i+1]);
205                  exit(1);
206          }
207 <        if (inpispic) {                 /* load input picture header */
208 < #ifdef MSDOS
169 <                setmode(fileno(stdin), O_BINARY);
170 < #endif
207 >        if (scanning) {                 /* load input picture header */
208 >                SET_FILE_BINARY(stdin);
209                  if (checkheader(stdin, COLRFMT, NULL) < 0 ||
210                                  fgetresolu(&xmax, &ymax, stdin) < 0) {
211                          fprintf(stderr, "%s: bad input picture\n", progname);
212                          exit(1);
213                  }
214 +                if (scanning == 3) {
215 +                        if (i >= argc)
216 +                                goto userr;
217 +                        pickchartpos(argv[i]);
218 +                        scanning = 2;
219 +                }
220          } else {                        /* else set default xmax and ymax */
221                  xmax = 512;
222                  ymax = 2*512/3;
223          }
224 <        if (inpispic != 2) {            /* use default boundaries */
224 >        if (scanning != 2) {            /* use default boundaries */
225                  bounds[0][0] = bounds[2][0] = .029*xmax + .5;
226                  bounds[0][1] = bounds[1][1] = .956*ymax + .5;
227                  bounds[1][0] = bounds[3][0] = .971*xmax + .5;
228                  bounds[2][1] = bounds[3][1] = .056*ymax + .5;
229          }
230          init();                         /* initialize */
231 <        if (inpispic)                   /* get picture colors */
231 >        if (scanning)                   /* get picture colors */
232                  getpicture();
233          else
234                  getcolors();
235          compute();                      /* compute color mapping */
236 <                                        /* print comment */
237 <        printf("{ Color correction file computed by:\n\t");
238 <        printargs(argc, argv, stdout);
239 <        printf("}\n");
240 <        putmapping();                   /* put out color mapping */
241 <        if (debugfp != NULL)            /* put out debug picture */
242 <                if (inpispic)
236 >        if (rawmap) {                   /* print out raw correspondence */
237 >                register int    j;
238 >
239 >                printf("# Color correspondence produced by:\n#\t\t");
240 >                printargs(argc, argv, stdout);
241 >                printf("#\tUsage: pcwarp %s uncorrected.hdr > corrected.hdr\n",
242 >                                i+1 < argc ? argv[i+1] : "{this_file}");
243 >                printf("#\t   Or: pcond [options] -m %s orig.hdr > output.hdr\n",
244 >                                i+1 < argc ? argv[i+1] : "{this_file}");
245 >                for (j = 0; j < 24; j++)
246 >                        printf("%f %f %f    %f %f %f\n",
247 >                                colval(inpRGB[j],RED), colval(inpRGB[j],GRN),
248 >                                colval(inpRGB[j],BLU), colval(mbRGB[j],RED),
249 >                                colval(mbRGB[j],GRN), colval(mbRGB[j],BLU));
250 >                if (scanning && debugfp != NULL)
251 >                        cwarp();                /* color warp for debugging */
252 >        } else {                        /* print color mapping */
253 >                                                /* print header */
254 >                printf("{\n\tColor correction file computed by:\n\t\t");
255 >                printargs(argc, argv, stdout);
256 >                printf("\n\tUsage: pcomb -f %s uncorrected.hdr > corrected.hdr\n",
257 >                                i+1 < argc ? argv[i+1] : "{this_file}");
258 >                if (!scanning)
259 >                        printf("\t   Or: pcond [options] -f %s orig.hdr > output.hdr\n",
260 >                                        i+1 < argc ? argv[i+1] : "{this_file}");
261 >                printf("}\n");
262 >                putmapping();                   /* put out color mapping */
263 >        }
264 >        if (debugfp != NULL) {          /* put out debug picture */
265 >                if (scanning)
266                          picdebug();
267                  else
268                          clrdebug();
269 +        }
270          exit(0);
271   userr:
272          fprintf(stderr,
273 < "Usage: %s [-d dbg.pic][-p xul yul xur yur xll yll xlr ylr] input.pic [output.cal]\n",
273 > "Usage: %s [-d dbg.hdr][-P | -p xul yul xur yur xll yll xlr ylr][-i irrad][-m] input.hdr [output.{cal|cwp}]\n",
274                          progname);
275 <        fprintf(stderr, "   or: %s [-d dbg.pic] -c [xyY.dat [output.cal]]\n",
275 >        fprintf(stderr, "   or: %s [-d dbg.hdr][-i irrad][-m] -c [xyY.dat [output.{cal|cwp}]]\n",
276                          progname);
277          exit(1);
278 +        return 1; /* pro forma return */
279   }
280  
281  
282 < init()                          /* initialize */
282 > static void
283 > init(void)                              /* initialize */
284   {
285          double  quad[4][2];
286          register int    i;
# Line 229 | Line 299 | init()                         /* initialize */
299                  exit(1);
300          }
301                                          /* map MacBeth colors to RGB space */
302 <        for (i = 0; i < 24; i++)
302 >        for (i = 0; i < 24; i++) {
303                  xyY2RGB(mbRGB[i], mbxyY[i]);
304 +                scalecolor(mbRGB[i], irrad);
305 +        }
306   }
307  
308  
309 < int
310 < chartndx(x, y, np)                      /* find color number for position */
311 < int     x, y;
312 < int     *np;
309 > static int
310 > chartndx(                       /* find color number for position */
311 >        int     x,
312 >        int y,
313 >        int     *np
314 > )
315   {
316          double  ipos[3], cpos[3];
317          int     ix, iy;
# Line 266 | Line 340 | int    *np;
340   }
341  
342  
343 < getpicture()                            /* load in picture colors */
343 > static void
344 > getpicture(void)                                /* load in picture colors */
345   {
346          COLR    *scanln;
347          COLOR   pval;
# Line 304 | Line 379 | getpicture()                           /* load in picture colors */
379                  scalecolor(inpRGB[i], d);
380                  inpflags |= 1L<<i;
381          }
382 <        free((char *)scanln);
382 >        free((void *)scanln);
383   }
384  
385  
386 < getcolors()                     /* get xyY colors from standard input */
386 > static void
387 > getcolors(void)                 /* get xyY colors from standard input */
388   {
389          int     gotwhite = 0;
390          COLOR   whiteclr;
# Line 316 | Line 392 | getcolors()                    /* get xyY colors from standard input */
392          float   xyYin[3];
393  
394          while (fgetval(stdin, 'i', &n) == 1) {          /* read colors */
395 <                if (n < 0 | n > 24 ||
395 >                if ((n < 0) | (n > 24) ||
396                                  fgetval(stdin, 'f', &xyYin[0]) != 1 ||
397                                  fgetval(stdin, 'f', &xyYin[1]) != 1 ||
398                                  fgetval(stdin, 'f', &xyYin[2]) != 1 ||
399 <                                xyYin[0] < 0. | xyYin[0] > 1. |
400 <                                xyYin[1] < 0. | xyYin[1] > 1.) {
399 >                                (xyYin[0] < 0.) | (xyYin[1] < 0.) ||
400 >                                xyYin[0] + xyYin[1] > 1.) {
401                          fprintf(stderr, "%s: bad color input data\n",
402                                          progname);
403                          exit(1);
# Line 356 | Line 432 | getcolors()                    /* get xyY colors from standard input */
432   }
433  
434  
435 < bresp(y, x)             /* piecewise linear interpolation of primaries */
436 < COLOR   y, x;
435 > static void
436 > bresp(          /* piecewise linear interpolation of primaries */
437 >        COLOR   y,
438 >        COLOR   x
439 > )
440   {
441          register int    i, n;
442  
# Line 374 | Line 453 | COLOR  y, x;
453   }
454  
455  
456 < compute()                       /* compute color mapping */
456 > static void
457 > compute(void)                   /* compute color mapping */
458   {
459          COLOR   clrin[24], clrout[24];
460          long    cflags;
461          COLOR   ctmp;
462 <        register int    i, j, n;
462 >        register int    i, n;
463                                          /* did we get what we need? */
464          if ((inpflags & REQFLGS) != REQFLGS) {
465                  fprintf(stderr, "%s: missing required input colors\n",
# Line 389 | Line 469 | compute()                      /* compute color mapping */
469                                          /* compute piecewise luminance curve */
470          for (i = 0; i < NMBNEU; i++) {
471                  copycolor(bramp[i][0], inpRGB[mbneu[i]]);
472 +                for (n = i ? 3 : 0; n--; )
473 +                        if (colval(bramp[i][0],n) <=
474 +                                        colval(bramp[i-1][0],n)+1e-7) {
475 +                                fprintf(stderr,
476 +                "%s: non-increasing neutral patch\n", progname);
477 +                                exit(1);
478 +                        }
479                  copycolor(bramp[i][1], mbRGB[mbneu[i]]);
480          }
481 +                                        /* compute color space gamut */
482 +        if (scanning) {
483 +                copycolor(colmin, cblack);
484 +                copycolor(colmax, cwhite);
485 +                scalecolor(colmax, irrad);
486 +        } else
487 +                for (i = 0; i < 3; i++) {
488 +                        colval(colmin,i) = colval(bramp[0][0],i) -
489 +                                colval(bramp[0][1],i) *
490 +                                (colval(bramp[1][0],i)-colval(bramp[0][0],i)) /
491 +                                (colval(bramp[1][1],i)-colval(bramp[1][0],i));
492 +                        colval(colmax,i) = colval(bramp[NMBNEU-2][0],i) +
493 +                                (1.-colval(bramp[NMBNEU-2][1],i)) *
494 +                                (colval(bramp[NMBNEU-1][0],i) -
495 +                                        colval(bramp[NMBNEU-2][0],i)) /
496 +                                (colval(bramp[NMBNEU-1][1],i) -
497 +                                        colval(bramp[NMBNEU-2][1],i));
498 +                }
499                                          /* compute color mapping */
500          do {
501                  cflags = inpflags & ~gmtflags;
# Line 402 | Line 507 | compute()                      /* compute color mapping */
507                                  n++;
508                          }
509                  compsoln(clrin, clrout, n);
510 <                                                /* check out-of-gamut colors */
511 <                for (i = 0; i < 24; i++)
512 <                        if (cflags & 1L<<i) {
513 <                                cresp(ctmp, mbRGB[i]);
409 <                                for (j = 0; j < 3; j++)
410 <                                        if (colval(ctmp,j) <= 0. ||
411 <                                                colval(ctmp,j) >= 1.) {
412 <                                                gmtflags |= 1L<<i;
413 <                                                break;
414 <                                        }
415 <                        }
510 >                if (irrad > 0.99 && irrad < 1.01)       /* check gamut */
511 >                        for (i = 0; i < 24; i++)
512 >                                if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
513 >                                        gmtflags |= 1L<<i;
514          } while (cflags & gmtflags);
515          if (gmtflags & MODFLGS)
516                  fprintf(stderr,
# Line 421 | Line 519 | compute()                      /* compute color mapping */
519   }
520  
521  
522 < putmapping()                    /* put out color mapping for pcomb -f */
522 > static void
523 > putmapping(void)                        /* put out color mapping */
524   {
525          static char     cchar[3] = {'r', 'g', 'b'};
526          register int    i, j;
# Line 435 | Line 534 | putmapping()                   /* put out color mapping for pcomb -f *
534                  for (i = 0; i < NMBNEU; i++)
535                          printf(",%g", colval(bramp[i][1],j));
536                  printf(");\n");
438 –                printf("%c = %ci(1);\n", cchar[j], cchar[j]);
537                  printf("%cfi(n) = if(n-%g, %d, if(%cxa(n+1)-%c, n, %cfi(n+1)));\n",
538                                  cchar[j], NMBNEU-1.5, NMBNEU-1, cchar[j],
539                                  cchar[j], cchar[j]);
540                  printf("%cndx = %cfi(1);\n", cchar[j], cchar[j]);
541 <                printf("%cn = ((%cxa(%cndx+1)-%c)*%cya(%cndx) + ",
542 <                                cchar[j], cchar[j], cchar[j],
543 <                                cchar[j], cchar[j], cchar[j]);
541 >                printf("%c%c = ((%cxa(%cndx+1)-%c)*%cya(%cndx) + ",
542 >                                cchar[j], scanning?'n':'o', cchar[j],
543 >                                cchar[j], cchar[j], cchar[j], cchar[j]);
544                  printf("(%c-%cxa(%cndx))*%cya(%cndx+1)) /\n",
545                                  cchar[j], cchar[j], cchar[j],
546                                  cchar[j], cchar[j]);
# Line 450 | Line 548 | putmapping()                   /* put out color mapping for pcomb -f *
548                                  cchar[j], cchar[j], cchar[j], cchar[j]);
549          }
550                                          /* print color mapping */
551 <        printf("ro = %g*rn + %g*gn + %g*bn ;\n",
552 <                        solmat[0][0], solmat[0][1], solmat[0][2]);
553 <        printf("go = %g*rn + %g*gn + %g*bn ;\n",
554 <                        solmat[1][0], solmat[1][1], solmat[1][2]);
555 <        printf("bo = %g*rn + %g*gn + %g*bn ;\n",
556 <                        solmat[2][0], solmat[2][1], solmat[2][2]);
551 >        if (scanning) {
552 >                printf("r = ri(1); g = gi(1); b = bi(1);\n");
553 >                printf("ro = %g*rn + %g*gn + %g*bn ;\n",
554 >                                solmat[0][0], solmat[0][1], solmat[0][2]);
555 >                printf("go = %g*rn + %g*gn + %g*bn ;\n",
556 >                                solmat[1][0], solmat[1][1], solmat[1][2]);
557 >                printf("bo = %g*rn + %g*gn + %g*bn ;\n",
558 >                                solmat[2][0], solmat[2][1], solmat[2][2]);
559 >        } else {
560 >                printf("r1 = ri(1); g1 = gi(1); b1 = bi(1);\n");
561 >                printf("r = %g*r1 + %g*g1 + %g*b1 ;\n",
562 >                                solmat[0][0], solmat[0][1], solmat[0][2]);
563 >                printf("g = %g*r1 + %g*g1 + %g*b1 ;\n",
564 >                                solmat[1][0], solmat[1][1], solmat[1][2]);
565 >                printf("b = %g*r1 + %g*g1 + %g*b1 ;\n",
566 >                                solmat[2][0], solmat[2][1], solmat[2][2]);
567 >        }
568   }
569  
570  
571 < compsoln(cin, cout, n)          /* solve 3xN system using least-squares */
572 < COLOR   cin[], cout[];
573 < int     n;
571 > static void
572 > compsoln(               /* solve 3xN system using least-squares */
573 >        COLOR   cin[],
574 >        COLOR   cout[],
575 >        int     n
576 > )
577   {
578          extern double   mx3d_adjoint(), fabs();
579          double  mat[3][3], invmat[3][3];
# Line 519 | Line 631 | int    n;
631   }
632  
633  
634 < cvtcolor(cout, cin)             /* convert color according to our mapping */
635 < COLOR   cout, cin;
634 > static void
635 > cwarp(void)                             /* compute color warp map */
636   {
637 <        COLOR   ctmp;
637 >        register int    i;
638  
639 <        bresp(ctmp, cin);
640 <        cresp(cout, ctmp);
641 <        if (colval(cout,RED) < 0.)
642 <                colval(cout,RED) = 0.;
643 <        if (colval(cout,GRN) < 0.)
644 <                colval(cout,GRN) = 0.;
645 <        if (colval(cout,BLU) < 0.)
646 <                colval(cout,BLU) = 0.;
639 >        if ((wcor = new3dw(W3EXACT)) == NULL)
640 >                goto memerr;
641 >        for (i = 0; i < 24; i++)
642 >                if (!add3dpt(wcor, inpRGB[i], mbRGB[i]))
643 >                        goto memerr;
644 >        return;
645 > memerr:
646 >        perror(progname);
647 >        exit(1);
648   }
649  
650  
651 < cresp(cout, cin)                /* transform color according to matrix */
652 < COLOR   cout, cin;
651 > static int
652 > cvtcolor(               /* convert color according to our mapping */
653 >        COLOR   cout,
654 >        COLOR   cin
655 > )
656   {
657 <        double  r, g, b;
657 >        COLOR   ctmp;
658 >        int     clipped;
659  
660 <        r = colval(cin,0)*solmat[0][0] + colval(cin,1)*solmat[0][1]
661 <                        + colval(cin,2)*solmat[0][2];
662 <        g = colval(cin,0)*solmat[1][0] + colval(cin,1)*solmat[1][1]
663 <                        + colval(cin,2)*solmat[1][2];
664 <        b = colval(cin,0)*solmat[2][0] + colval(cin,1)*solmat[2][1]
665 <                        + colval(cin,2)*solmat[2][2];
666 <        setcolor(cout, r, g, b);
660 >        if (wcor != NULL) {
661 >                clipped = warp3d(cout, cin, wcor);
662 >                clipped |= clipgamut(cout,bright(cout),CGAMUT,colmin,colmax);
663 >        } else if (scanning) {
664 >                bresp(ctmp, cin);
665 >                clipped = cresp(cout, ctmp);
666 >        } else {
667 >                clipped = cresp(ctmp, cin);
668 >                bresp(cout, ctmp);
669 >        }
670 >        return(clipped);
671   }
672  
673  
674 < xyY2RGB(rgbout, xyYin)          /* convert xyY to RGB */
675 < COLOR   rgbout;
676 < register float  xyYin[3];
674 > static int
675 > cresp(          /* transform color according to matrix */
676 >        COLOR   cout,
677 >        COLOR   cin
678 > )
679   {
680 +        colortrans(cout, solmat, cin);
681 +        return(clipgamut(cout, bright(cout), CGAMUT, colmin, colmax));
682 + }
683 +
684 +
685 + static void
686 + xyY2RGB(                /* convert xyY to RGB */
687 +        COLOR   rgbout,
688 +        register float  xyYin[3]
689 + )
690 + {
691          COLOR   ctmp;
692          double  d;
693  
# Line 561 | Line 695 | register float xyYin[3];
695          ctmp[0] = xyYin[0] * d;
696          ctmp[1] = xyYin[2];
697          ctmp[2] = (1. - xyYin[0] - xyYin[1]) * d;
698 <        cie_rgb(rgbout, ctmp);
698 >                                /* allow negative values */
699 >        colortrans(rgbout, xyz2rgbmat, ctmp);
700   }
701  
702  
703 < picdebug()                      /* put out debugging picture */
703 > static void
704 > picdebug(void)                  /* put out debugging picture */
705   {
706          static COLOR    blkcol = BLKCOLOR;
707          COLOR   *scan;
# Line 598 | Line 734 | picdebug()                     /* put out debugging picture */
734                  for (x = 0; x < xmax; x++) {
735                          rg = chartndx(x, y, &i);
736                          if (rg == RG_CENT) {
737 <                                if (!(1L<<i & gmtflags) || (x+y)&07)
737 >                                if (!(1L<<i & gmtflags) || (x+y)&07) {
738                                          copycolor(scan[x], mbRGB[i]);
739 <                                else
739 >                                        clipgamut(scan[x], bright(scan[x]),
740 >                                                CGAMUT, colmin, colmax);
741 >                                } else
742                                          copycolor(scan[x], blkcol);
743                          } else if (rg == RG_CORR)
744                                  cvtcolor(scan[x], scan[x]);
# Line 615 | Line 753 | picdebug()                     /* put out debugging picture */
753          }
754                                                  /* clean up */
755          fclose(debugfp);
756 <        free((char *)scan);
756 >        free((void *)scan);
757   }
758  
759  
760 < clrdebug()                      /* put out debug picture from color input */
760 > static void
761 > clrdebug(void)                  /* put out debug picture from color input */
762   {
763          static COLR     blkclr = BLKCOLR;
764          COLR    mbclr[24], cvclr[24], orclr[24];
765          COLR    *scan;
766 <        COLOR   ctmp;
766 >        COLOR   ctmp, ct2;
767          int     y, i;
768          register int    x, rg;
769                                                  /* convert colors */
770          for (i = 0; i < 24; i++) {
771 <                setcolr(mbclr[i], colval(mbRGB[i],RED),
772 <                                colval(mbRGB[i],GRN), colval(mbRGB[i],BLU));
771 >                copycolor(ctmp, mbRGB[i]);
772 >                clipgamut(ctmp, bright(ctmp), CGAMUT, cblack, cwhite);
773 >                setcolr(mbclr[i], colval(ctmp,RED),
774 >                                colval(ctmp,GRN), colval(ctmp,BLU));
775                  if (inpflags & 1L<<i) {
776 <                        setcolr(orclr[i], colval(inpRGB[i],RED),
777 <                                        colval(inpRGB[i],GRN),
778 <                                        colval(inpRGB[i],BLU));
638 <                        cvtcolor(ctmp, inpRGB[i]);
639 <                        setcolr(cvclr[i], colval(ctmp,RED),
776 >                        copycolor(ctmp, inpRGB[i]);
777 >                        clipgamut(ctmp, bright(ctmp), CGAMUT, cblack, cwhite);
778 >                        setcolr(orclr[i], colval(ctmp,RED),
779                                          colval(ctmp,GRN), colval(ctmp,BLU));
780 +                        if (rawmap)
781 +                                copycolr(cvclr[i], mbclr[i]);
782 +                        else {
783 +                                bresp(ctmp, inpRGB[i]);
784 +                                colortrans(ct2, solmat, ctmp);
785 +                                clipgamut(ct2, bright(ct2), CGAMUT,
786 +                                                cblack, cwhite);
787 +                                setcolr(cvclr[i], colval(ct2,RED),
788 +                                                colval(ct2,GRN),
789 +                                                colval(ct2,BLU));
790 +                        }
791                  }
792          }
793                                                  /* allocate scanline */
# Line 674 | Line 824 | clrdebug()                     /* put out debug picture from color input
824          }
825                                                  /* clean up */
826          fclose(debugfp);
827 <        free((char *)scan);
827 >        free((void *)scan);
828 > }
829 >
830 >
831 > static void
832 > getpos(         /* get boundary position */
833 >        char    *name,
834 >        int     bnds[2],
835 >        FILE    *fp
836 > )
837 > {
838 >        char    buf[64];
839 >
840 >        fprintf(stderr, "\tSelect corner: %s\n", name);
841 >        if (fgets(buf, sizeof(buf), fp) == NULL ||
842 >                        sscanf(buf, "%d %d", &bnds[0], &bnds[1]) != 2) {
843 >                fprintf(stderr, "%s: read error from display process\n",
844 >                                progname);
845 >                exit(1);
846 >        }
847 > }
848 >
849 >
850 > static void
851 > pickchartpos(           /* display picture and pick chart location */
852 >        char    *pfn
853 > )
854 > {
855 >        char    combuf[PATH_MAX];
856 >        FILE    *pfp;
857 >
858 >        sprintf(combuf, DISPCOM, pfn);
859 >        if ((pfp = popen(combuf, "r")) == NULL) {
860 >                perror(combuf);
861 >                exit(1);
862 >        }
863 >        fputs("Use middle mouse button to select chart corners:\n", stderr);
864 >        getpos("upper left (dark skin)", bounds[0], pfp);
865 >        getpos("upper right (bluish green)", bounds[1], pfp);
866 >        getpos("lower left (white)", bounds[2], pfp);
867 >        getpos("lower right (black)", bounds[3], pfp);
868 >        fputs("Got it -- quit display program.\n", stderr);
869 >        pclose(pfp);
870   }

Diff Legend

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