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.25 by greg, Mon Nov 10 19:08:19 2008 UTC vs.
Revision 2.32 by greg, Sat Jun 7 05:09:46 2025 UTC

# Line 10 | Line 10 | static const char      RCSid[] = "$Id$";
10   * Warping code depends on conformance of COLOR and W3VEC types.
11   */
12  
13 – #include <stdio.h>
13   #include <math.h>
15 – #include <time.h>
14  
15   #include "platform.h"
18 – #include "rtprocess.h"
16   #include "rtio.h"
17   #include "color.h"
18   #include "resolu.h"
# Line 48 | Line 45 | static const char      RCSid[] = "$Id$";
45   #define Neutral5        21
46   #define Neutral35       22
47   #define Black           23
48 <                                /* computed from 5nm spectral measurements */
48 >                                /* computed from 10nm spectral measurements */
49                                  /* CIE 1931 2 degree obs, equal-energy white */
50   float   mbxyY[24][3] = {
51 <                {0.462, 0.3769, 0.0932961},     /* DarkSkin */
52 <                {0.4108, 0.3542, 0.410348},     /* LightSkin */
53 <                {0.2626, 0.267, 0.181554},      /* BlueSky */
54 <                {0.36, 0.4689, 0.108447},       /* Foliage */
55 <                {0.2977, 0.2602, 0.248407},     /* BlueFlower */
56 <                {0.2719, 0.3485, 0.401156},     /* BluishGreen */
57 <                {0.52, 0.4197, 0.357899},       /* Orange */
58 <                {0.229, 0.1866, 0.103911},      /* PurplishBlue */
59 <                {0.4909, 0.3262, 0.242615},     /* ModerateRed */
60 <                {0.3361, 0.2249, 0.0600102},    /* Purple */
61 <                {0.3855, 0.4874, 0.42963},      /* YellowGreen */
62 <                {0.4853, 0.4457, 0.476343},     /* OrangeYellow */
63 <                {0.2026, 0.1369, 0.0529249},    /* Blue */
64 <                {0.3007, 0.4822, 0.221226},     /* Green */
65 <                {0.5805, 0.3238, 0.162167},     /* Red */
66 <                {0.4617, 0.472, 0.64909},       /* Yellow */
67 <                {0.4178, 0.2625, 0.233662},     /* Magenta */
68 <                {0.2038, 0.2508, 0.167275},     /* Cyan */
69 <                {0.3358, 0.337, 0.916877},      /* White */
70 <                {0.3338, 0.3348, 0.604678},     /* Neutral.8 */
71 <                {0.3333, 0.3349, 0.364566},     /* Neutral.65 */
72 <                {0.3353, 0.3359, 0.200238},     /* Neutral.5 */
73 <                {0.3363, 0.336, 0.0878721},     /* Neutral.35 */
74 <                {0.3346, 0.3349, 0.0308383}     /* Black */
51 >                {0.421236, 0.361196, 0.103392},         /* DarkSkin */
52 >                {0.40868, 0.358157, 0.352867},          /* LightSkin */
53 >                {0.265063, 0.271424, 0.185124},         /* BlueSky */
54 >                {0.362851, 0.43055, 0.132625},          /* Foliage */
55 >                {0.28888, 0.260851, 0.233138},          /* BlueFlower */
56 >                {0.277642, 0.365326, 0.416443},         /* BluishGreen */
57 >                {0.524965, 0.40068, 0.312039},          /* Orange */
58 >                {0.225018, 0.190392, 0.114999},         /* PurplishBlue */
59 >                {0.487199, 0.315372, 0.198616},         /* ModerateRed */
60 >                {0.314245, 0.227231, 0.0646047},        /* Purple */
61 >                {0.396202, 0.489732, 0.440724},         /* YellowGreen */
62 >                {0.493297, 0.435299, 0.43444},          /* OrangeYellow */
63 >                {0.198191, 0.149265, 0.0588122},        /* Blue */
64 >                {0.322838, 0.487601, 0.229258},         /* Green */
65 >                {0.561833, 0.321165, 0.126978},         /* Red */
66 >                {0.468113, 0.467021, 0.605289},         /* Yellow */
67 >                {0.397128, 0.248535, 0.201761},         /* Magenta */
68 >                {0.209552, 0.276256, 0.190917},         /* Cyan */
69 >                {0.337219, 0.339042, 0.912482},         /* White */
70 >                {0.333283, 0.335077, 0.588297},         /* Neutral.8 */
71 >                {0.332747, 0.334371, 0.3594},           /* Neutral.65 */
72 >                {0.331925, 0.334202, 0.19114},          /* Neutral.5 */
73 >                {0.330408, 0.332615, 0.0892964},        /* Neutral.35 */
74 >                {0.331841, 0.331405, 0.0319541},        /* Black */
75          };
76  
77   COLOR   mbRGB[24];              /* MacBeth RGB values */
# Line 101 | Line 98 | short  mbneu[NMBNEU] = {Black,Neutral35,Neutral5,Neutra
98   #define  RG_CORR        04      /* corrected color region */
99  
100   #ifndef  DISPCOM
101 < #define  DISPCOM        "ximage -op \"%s\""
101 > #define  DISPCOM        "ximage -e auto -op \"%s\""
102   #endif
103  
104   int     scanning = 1;           /* scanned input (or recorded output)? */
# Line 123 | Line 120 | COLOR  colmin, colmax;         /* gamut limits */
120   WARP3D  *wcor = NULL;           /* color space warp */
121  
122   FILE    *debugfp = NULL;        /* debug output picture */
126 – char    *progname;
123  
124   static void init(void);
125   static int chartndx(int x, int y, int   *np);
126   static void getpicture(void);
127   static void getcolors(void);
128   static void bresp(COLOR y, COLOR        x);
129 + static void ibresp(COLOR        y, COLOR        x);
130   static void compute(void);
131   static void putmapping(void);
132   static void compsoln(COLOR      cin[], COLOR    cout[], int     n);
# Line 151 | Line 148 | main(
148   {
149          int     i;
150  
151 <        progname = argv[0];
151 >        fixargv0(argv[0]);              /* sets global progname */
152          for (i = 1; i < argc && argv[i][0] == '-'; i++)
153                  switch (argv[i][1]) {
154                  case 'd':                               /* debug output */
# Line 236 | Line 233 | main(
233                  getcolors();
234          compute();                      /* compute color mapping */
235          if (rawmap) {                   /* print out raw correspondence */
236 <                register int    j;
236 >                int     j;
237  
238                  printf("# Color correspondence produced by:\n#\t\t");
239                  printargs(argc, argv, stdout);
# Line 285 | Line 282 | static void
282   init(void)                              /* initialize */
283   {
284          double  quad[4][2];
285 <        register int    i;
285 >        int     i;
286                                          /* make coordinate transformation */
287          quad[0][0] = bounds[0][0];
288          quad[0][1] = bounds[0][1];
# Line 325 | Line 322 | chartndx(                      /* find color number for position */
322          mx3d_transform(ipos, imgxfm, cpos);
323          cpos[0] /= cpos[2];
324          cpos[1] /= cpos[2];
325 <        if (cpos[0] < 0. || cpos[0] >= 6. || cpos[1] < 0. || cpos[1] >= 4.)
325 >        if ((cpos[0] < 0.) | (cpos[0] >= 6.) | (cpos[1] < 0.) | (cpos[1] >= 4.))
326                  return(RG_BORD);
327          ix = cpos[0];
328          iy = cpos[1];
329          fx = cpos[0] - ix;
330          fy = cpos[1] - iy;
331          *np = iy*6 + ix;
332 <        if (fx >= 0.35 && fx < 0.65 && fy >= 0.35 && fy < 0.65)
332 >        if ((fx >= 0.35) & (fx < 0.65) & (fy >= 0.35) & (fy < 0.65))
333                  return(RG_CENT);
334 <        if (fx < 0.05 || fx >= 0.95 || fy < 0.05 || fy >= 0.95)
334 >        if ((fx < 0.05) | (fx >= 0.95) | (fy < 0.05) | (fy >= 0.95))
335                  return(RG_BORD);
336          if (fx >= 0.5)                  /* right side is corrected */
337                  return(RG_CORR);
# Line 350 | Line 347 | getpicture(void)                               /* load in picture colors */
347          int     ccount[24];
348          double  d;
349          int     y, i;
350 <        register int    x;
350 >        int     x;
351  
352          scanln = (COLR *)malloc(xmax*sizeof(COLR));
353          if (scanln == NULL) {
# Line 436 | Line 433 | getcolors(void)                        /* get xyY colors from standard inpu
433  
434   static void
435   bresp(          /* piecewise linear interpolation of primaries */
436 <        COLOR   y,
437 <        COLOR   x
436 >        COLOR   y,              /* y is linear output */
437 >        COLOR   x               /* x is non-linear input */
438   )
439   {
440 <        register int    i, n;
440 >        int     i, n;
441  
442          for (i = 0; i < 3; i++) {
443                  for (n = 0; n < NMBNEU-2; n++)
# Line 456 | Line 453 | bresp(         /* piecewise linear interpolation of primaries
453  
454  
455   static void
456 + ibresp(         /* inverse mapping (delinearization) */
457 +        COLOR   x,              /* x is non-linear output */
458 +        COLOR   y               /* y is linear input */
459 + )
460 + {
461 +        int     i, n;
462 +
463 +        for (i = 0; i < 3; i++) {
464 +                for (n = 0; n < NMBNEU-2; n++)
465 +                        if (colval(y,i) < colval(bramp[n+1][1],i))
466 +                                break;
467 +                colval(x,i) = ((colval(bramp[n+1][1],i) - colval(y,i)) *
468 +                                                colval(bramp[n][0],i) +
469 +                                (colval(y,i) - colval(bramp[n][1],i)) *
470 +                                                colval(bramp[n+1][0],i)) /
471 +                        (colval(bramp[n+1][1],i) - colval(bramp[n][1],i));
472 +        }
473 + }
474 +
475 +
476 + static void
477   compute(void)                   /* compute color mapping */
478   {
479          COLOR   clrin[24], clrout[24];
480          long    cflags;
481          COLOR   ctmp;
482 <        register int    i, n;
482 >        int     i, n;
483                                          /* did we get what we need? */
484          if ((inpflags & REQFLGS) != REQFLGS) {
485                  fprintf(stderr, "%s: missing required input colors\n",
# Line 471 | Line 489 | compute(void)                  /* compute color mapping */
489                                          /* compute piecewise luminance curve */
490          for (i = 0; i < NMBNEU; i++) {
491                  copycolor(bramp[i][0], inpRGB[mbneu[i]]);
492 <                for (n = i ? 3 : 0; n--; )
492 >                for (n = 3*(i>0); n--; )
493                          if (colval(bramp[i][0],n) <=
494                                          colval(bramp[i-1][0],n)+1e-7) {
495                                  fprintf(stderr,
# Line 481 | Line 499 | compute(void)                  /* compute color mapping */
499                  copycolor(bramp[i][1], mbRGB[mbneu[i]]);
500          }
501                                          /* compute color space gamut */
502 <        if (scanning) {
503 <                copycolor(colmin, cblack);
504 <                copycolor(colmax, cwhite);
505 <                scalecolor(colmax, irrad);
506 <        } else
507 <                for (i = 0; i < 3; i++) {
508 <                        colval(colmin,i) = colval(bramp[0][0],i) -
491 <                                colval(bramp[0][1],i) *
492 <                                (colval(bramp[1][0],i)-colval(bramp[0][0],i)) /
493 <                                (colval(bramp[1][1],i)-colval(bramp[1][0],i));
494 <                        colval(colmax,i) = colval(bramp[NMBNEU-2][0],i) +
495 <                                (1.-colval(bramp[NMBNEU-2][1],i)) *
496 <                                (colval(bramp[NMBNEU-1][0],i) -
497 <                                        colval(bramp[NMBNEU-2][0],i)) /
498 <                                (colval(bramp[NMBNEU-1][1],i) -
499 <                                        colval(bramp[NMBNEU-2][1],i));
500 <                }
502 >        copycolor(colmin, cblack);
503 >        copycolor(colmax, cwhite);
504 >        scalecolor(colmax, irrad);
505 >        if (!scanning) {
506 >                ibresp(colmin, colmin);
507 >                ibresp(colmax, colmax);
508 >        }
509                                          /* compute color mapping */
510          do {
511                  cflags = inpflags & ~gmtflags;
512                  n = 0;                          /* compute transform matrix */
513 <                for (i = 0; i < 24; i++)
514 <                        if (cflags & 1L<<i) {
513 >                for (i = 0; i < 24; i++) {
514 >                        if (!(cflags & 1L<<i))
515 >                                continue;
516 >                        if (scanning) {
517                                  bresp(clrin[n], inpRGB[i]);
518                                  copycolor(clrout[n], mbRGB[i]);
519 <                                n++;
519 >                        } else {
520 >                                copycolor(clrin[n], inpRGB[i]);
521 >                                ibresp(clrout[n], mbRGB[i]);
522                          }
523 +                        n++;
524 +                }
525                  compsoln(clrin, clrout, n);
526 <                if (irrad > 0.99 && irrad < 1.01)       /* check gamut */
527 <                        for (i = 0; i < 24; i++)
528 <                                if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
515 <                                        gmtflags |= 1L<<i;
526 >                for (i = 0; i < 24; i++)        /* check gamut */
527 >                        if (cflags & 1L<<i && cvtcolor(ctmp, inpRGB[i]))
528 >                                gmtflags |= 1L<<i;
529          } while (cflags & gmtflags);
530 +
531          if (gmtflags & MODFLGS)
532                  fprintf(stderr,
533                  "%s: warning - some moderate colors are out of gamut\n",
# Line 525 | Line 539 | static void
539   putmapping(void)                        /* put out color mapping */
540   {
541          static char     cchar[3] = {'r', 'g', 'b'};
542 <        register int    i, j;
542 >        int     i, j;
543                                          /* print brightness mapping */
544          for (j = 0; j < 3; j++) {
545                  printf("%cxa(i) : select(i", cchar[j]);
# Line 581 | Line 595 | compsoln(              /* solve 3xN system using least-squares */
595          double  mat[3][3], invmat[3][3];
596          double  det;
597          double  colv[3], rowv[3];
598 <        register int    i, j, k;
598 >        int     i, j, k;
599  
600          if (n < 3) {
601                  fprintf(stderr, "%s: too few colors to match!\n", progname);
# Line 636 | Line 650 | compsoln(              /* solve 3xN system using least-squares */
650   static void
651   cwarp(void)                             /* compute color warp map */
652   {
653 <        register int    i;
653 >        int     i;
654  
655          if ((wcor = new3dw(W3EXACT)) == NULL)
656                  goto memerr;
# Line 687 | Line 701 | cresp(         /* transform color according to matrix */
701   static void
702   xyY2RGB(                /* convert xyY to RGB */
703          COLOR   rgbout,
704 <        register float  xyYin[3]
704 >        float   xyYin[3]
705   )
706   {
707          COLOR   ctmp;
# Line 708 | Line 722 | picdebug(void)                 /* put out debugging picture */
722          static COLOR    blkcol = BLKCOLOR;
723          COLOR   *scan;
724          int     y, i;
725 <        register int    x, rg;
725 >        int     x, rg;
726  
727          if (fseek(stdin, 0L, 0) == EOF) {
728                  fprintf(stderr, "%s: cannot seek on input picture\n", progname);
# Line 767 | Line 781 | clrdebug(void)                 /* put out debug picture from color i
781          COLR    *scan;
782          COLOR   ctmp, ct2;
783          int     y, i;
784 <        register int    x, rg;
784 >        int     x, rg;
785                                                  /* convert colors */
786          for (i = 0; i < 24; i++) {
787                  copycolor(ctmp, mbRGB[i]);

Diff Legend

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