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.21 by schorsch, Mon Oct 27 10:24:51 2003 UTC vs.
Revision 2.30 by greg, Thu Feb 22 17:45:54 2024 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"
16 < #include "rtprocess.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 46 | Line 46 | static const char      RCSid[] = "$Id$";
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 99 | Line 99 | short  mbneu[NMBNEU] = {Black,Neutral35,Neutral5,Neutra
99   #define  RG_CORR        04      /* corrected color region */
100  
101   #ifndef  DISPCOM
102 < #define  DISPCOM        "ximage -op %s"
102 > #define  DISPCOM        "ximage -e auto -op \"%s\""
103   #endif
104  
105   int     scanning = 1;           /* scanned input (or recorded output)? */
# Line 123 | Line 123 | WARP3D *wcor = NULL;           /* color space warp */
123   FILE    *debugfp = NULL;        /* debug output picture */
124   char    *progname;
125  
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 ibresp(COLOR        y, COLOR        x);
132 + static void compute(void);
133 + static void putmapping(void);
134 + static void compsoln(COLOR      cin[], COLOR    cout[], int     n);
135 + static void cwarp(void);
136 + static int cvtcolor(COLOR       cout, COLOR     cin);
137 + static int cresp(COLOR  cout, COLOR     cin);
138 + static void xyY2RGB(COLOR       rgbout, float   xyYin[3]);
139 + static void picdebug(void);
140 + static void clrdebug(void);
141 + static void getpos(char *name, int      bnds[2], FILE   *fp);
142 + static void pickchartpos(char   *pfn);
143  
144 < main(argc, argv)
145 < int     argc;
146 < char    **argv;
144 >
145 > int
146 > main(
147 >        int     argc,
148 >        char    **argv
149 > )
150   {
151          int     i;
152  
# Line 215 | Line 235 | char   **argv;
235                  getcolors();
236          compute();                      /* compute color mapping */
237          if (rawmap) {                   /* print out raw correspondence */
238 <                register int    j;
238 >                int     j;
239  
240                  printf("# Color correspondence produced by:\n#\t\t");
241                  printargs(argc, argv, stdout);
242 <                printf("#\tUsage: pcwarp %s uncorrected.pic > corrected.pic\n",
242 >                printf("#\tUsage: pcwarp %s uncorrected.hdr > corrected.hdr\n",
243                                  i+1 < argc ? argv[i+1] : "{this_file}");
244 <                printf("#\t   Or: pcond [options] -m %s orig.pic > output.pic\n",
244 >                printf("#\t   Or: pcond [options] -m %s orig.hdr > output.hdr\n",
245                                  i+1 < argc ? argv[i+1] : "{this_file}");
246                  for (j = 0; j < 24; j++)
247                          printf("%f %f %f    %f %f %f\n",
# Line 234 | Line 254 | char   **argv;
254                                                  /* print header */
255                  printf("{\n\tColor correction file computed by:\n\t\t");
256                  printargs(argc, argv, stdout);
257 <                printf("\n\tUsage: pcomb -f %s uncorrected.pic > corrected.pic\n",
257 >                printf("\n\tUsage: pcomb -f %s uncorrected.hdr > corrected.hdr\n",
258                                  i+1 < argc ? argv[i+1] : "{this_file}");
259                  if (!scanning)
260 <                        printf("\t   Or: pcond [options] -f %s orig.pic > output.pic\n",
260 >                        printf("\t   Or: pcond [options] -f %s orig.hdr > output.hdr\n",
261                                          i+1 < argc ? argv[i+1] : "{this_file}");
262                  printf("}\n");
263                  putmapping();                   /* put out color mapping */
# Line 251 | Line 271 | char   **argv;
271          exit(0);
272   userr:
273          fprintf(stderr,
274 < "Usage: %s [-d dbg.pic][-P | -p xul yul xur yur xll yll xlr ylr][-i irrad][-m] input.pic [output.{cal|cwp}]\n",
274 > "Usage: %s [-d dbg.hdr][-P | -p xul yul xur yur xll yll xlr ylr][-i irrad][-m] input.hdr [output.{cal|cwp}]\n",
275                          progname);
276 <        fprintf(stderr, "   or: %s [-d dbg.pic][-i irrad][-m] -c [xyY.dat [output.{cal|cwp}]]\n",
276 >        fprintf(stderr, "   or: %s [-d dbg.hdr][-i irrad][-m] -c [xyY.dat [output.{cal|cwp}]]\n",
277                          progname);
278          exit(1);
279 +        return 1; /* pro forma return */
280   }
281  
282  
283 < init()                          /* initialize */
283 > static void
284 > init(void)                              /* initialize */
285   {
286          double  quad[4][2];
287 <        register int    i;
287 >        int     i;
288                                          /* make coordinate transformation */
289          quad[0][0] = bounds[0][0];
290          quad[0][1] = bounds[0][1];
# Line 285 | Line 307 | init()                         /* initialize */
307   }
308  
309  
310 < int
311 < chartndx(x, y, np)                      /* find color number for position */
312 < int     x, y;
313 < int     *np;
310 > static int
311 > chartndx(                       /* find color number for position */
312 >        int     x,
313 >        int y,
314 >        int     *np
315 > )
316   {
317          double  ipos[3], cpos[3];
318          int     ix, iy;
# Line 300 | Line 324 | int    *np;
324          mx3d_transform(ipos, imgxfm, cpos);
325          cpos[0] /= cpos[2];
326          cpos[1] /= cpos[2];
327 <        if (cpos[0] < 0. || cpos[0] >= 6. || cpos[1] < 0. || cpos[1] >= 4.)
327 >        if ((cpos[0] < 0.) | (cpos[0] >= 6.) | (cpos[1] < 0.) | (cpos[1] >= 4.))
328                  return(RG_BORD);
329          ix = cpos[0];
330          iy = cpos[1];
331          fx = cpos[0] - ix;
332          fy = cpos[1] - iy;
333          *np = iy*6 + ix;
334 <        if (fx >= 0.35 && fx < 0.65 && fy >= 0.35 && fy < 0.65)
334 >        if ((fx >= 0.35) & (fx < 0.65) & (fy >= 0.35) & (fy < 0.65))
335                  return(RG_CENT);
336 <        if (fx < 0.05 || fx >= 0.95 || fy < 0.05 || fy >= 0.95)
336 >        if ((fx < 0.05) | (fx >= 0.95) | (fy < 0.05) | (fy >= 0.95))
337                  return(RG_BORD);
338          if (fx >= 0.5)                  /* right side is corrected */
339                  return(RG_CORR);
# Line 317 | Line 341 | int    *np;
341   }
342  
343  
344 < getpicture()                            /* load in picture colors */
344 > static void
345 > getpicture(void)                                /* load in picture colors */
346   {
347          COLR    *scanln;
348          COLOR   pval;
349          int     ccount[24];
350          double  d;
351          int     y, i;
352 <        register int    x;
352 >        int     x;
353  
354          scanln = (COLR *)malloc(xmax*sizeof(COLR));
355          if (scanln == NULL) {
# Line 359 | Line 384 | getpicture()                           /* load in picture colors */
384   }
385  
386  
387 < getcolors()                     /* get xyY colors from standard input */
387 > static void
388 > getcolors(void)                 /* get xyY colors from standard input */
389   {
390          int     gotwhite = 0;
391          COLOR   whiteclr;
# Line 407 | Line 433 | getcolors()                    /* get xyY colors from standard input */
433   }
434  
435  
436 < bresp(y, x)             /* piecewise linear interpolation of primaries */
437 < COLOR   y, x;
436 > static void
437 > bresp(          /* piecewise linear interpolation of primaries */
438 >        COLOR   y,              /* y is linear output */
439 >        COLOR   x               /* x is non-linear input */
440 > )
441   {
442 <        register int    i, n;
442 >        int     i, n;
443  
444          for (i = 0; i < 3; i++) {
445                  for (n = 0; n < NMBNEU-2; n++)
# Line 425 | Line 454 | COLOR  y, x;
454   }
455  
456  
457 < compute()                       /* compute color mapping */
457 > static void
458 > ibresp(         /* inverse mapping (delinearization) */
459 >        COLOR   x,              /* x is non-linear output */
460 >        COLOR   y               /* y is linear input */
461 > )
462   {
463 +        int     i, n;
464 +
465 +        for (i = 0; i < 3; i++) {
466 +                for (n = 0; n < NMBNEU-2; n++)
467 +                        if (colval(y,i) < colval(bramp[n+1][1],i))
468 +                                break;
469 +                colval(x,i) = ((colval(bramp[n+1][1],i) - colval(y,i)) *
470 +                                                colval(bramp[n][0],i) +
471 +                                (colval(y,i) - colval(bramp[n][1],i)) *
472 +                                                colval(bramp[n+1][0],i)) /
473 +                        (colval(bramp[n+1][1],i) - colval(bramp[n][1],i));
474 +        }
475 + }
476 +
477 +
478 + static void
479 + compute(void)                   /* compute color mapping */
480 + {
481          COLOR   clrin[24], clrout[24];
482          long    cflags;
483          COLOR   ctmp;
484 <        register int    i, n;
484 >        int     i, n;
485                                          /* did we get what we need? */
486          if ((inpflags & REQFLGS) != REQFLGS) {
487                  fprintf(stderr, "%s: missing required input colors\n",
# Line 440 | Line 491 | compute()                      /* compute color mapping */
491                                          /* compute piecewise luminance curve */
492          for (i = 0; i < NMBNEU; i++) {
493                  copycolor(bramp[i][0], inpRGB[mbneu[i]]);
494 +                for (n = 3*(i>0); n--; )
495 +                        if (colval(bramp[i][0],n) <=
496 +                                        colval(bramp[i-1][0],n)+1e-7) {
497 +                                fprintf(stderr,
498 +                "%s: non-increasing neutral patch\n", progname);
499 +                                exit(1);
500 +                        }
501                  copycolor(bramp[i][1], mbRGB[mbneu[i]]);
502          }
503                                          /* compute color space gamut */
504 <        if (scanning) {
505 <                copycolor(colmin, cblack);
506 <                copycolor(colmax, cwhite);
507 <                scalecolor(colmax, irrad);
508 <        } else
509 <                for (i = 0; i < 3; i++) {
510 <                        colval(colmin,i) = colval(bramp[0][0],i) -
453 <                                colval(bramp[0][1],i) *
454 <                                (colval(bramp[1][0],i)-colval(bramp[0][0],i)) /
455 <                                (colval(bramp[1][1],i)-colval(bramp[1][0],i));
456 <                        colval(colmax,i) = colval(bramp[NMBNEU-2][0],i) +
457 <                                (1.-colval(bramp[NMBNEU-2][1],i)) *
458 <                                (colval(bramp[NMBNEU-1][0],i) -
459 <                                        colval(bramp[NMBNEU-2][0],i)) /
460 <                                (colval(bramp[NMBNEU-1][1],i) -
461 <                                        colval(bramp[NMBNEU-2][1],i));
462 <                }
504 >        copycolor(colmin, cblack);
505 >        copycolor(colmax, cwhite);
506 >        scalecolor(colmax, irrad);
507 >        if (!scanning) {
508 >                ibresp(colmin, colmin);
509 >                ibresp(colmax, colmax);
510 >        }
511                                          /* compute color mapping */
512          do {
513                  cflags = inpflags & ~gmtflags;
514                  n = 0;                          /* compute transform matrix */
515 <                for (i = 0; i < 24; i++)
516 <                        if (cflags & 1L<<i) {
515 >                for (i = 0; i < 24; i++) {
516 >                        if (!(cflags & 1L<<i))
517 >                                continue;
518 >                        if (scanning) {
519                                  bresp(clrin[n], inpRGB[i]);
520                                  copycolor(clrout[n], mbRGB[i]);
521 <                                n++;
521 >                        } else {
522 >                                copycolor(clrin[n], inpRGB[i]);
523 >                                ibresp(clrout[n], mbRGB[i]);
524                          }
525 +                        n++;
526 +                }
527                  compsoln(clrin, clrout, n);
528 <                if (irrad > 0.99 && irrad < 1.01)       /* check gamut */
529 <                        for (i = 0; i < 24; i++)
530 <                                if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
477 <                                        gmtflags |= 1L<<i;
528 >                for (i = 0; i < 24; i++)        /* check gamut */
529 >                        if (cflags & 1L<<i && cvtcolor(ctmp, inpRGB[i]))
530 >                                gmtflags |= 1L<<i;
531          } while (cflags & gmtflags);
532 +
533          if (gmtflags & MODFLGS)
534                  fprintf(stderr,
535                  "%s: warning - some moderate colors are out of gamut\n",
# Line 483 | Line 537 | compute()                      /* compute color mapping */
537   }
538  
539  
540 < putmapping()                    /* put out color mapping */
540 > static void
541 > putmapping(void)                        /* put out color mapping */
542   {
543          static char     cchar[3] = {'r', 'g', 'b'};
544 <        register int    i, j;
544 >        int     i, j;
545                                          /* print brightness mapping */
546          for (j = 0; j < 3; j++) {
547                  printf("%cxa(i) : select(i", cchar[j]);
# Line 531 | Line 586 | putmapping()                   /* put out color mapping */
586   }
587  
588  
589 < compsoln(cin, cout, n)          /* solve 3xN system using least-squares */
590 < COLOR   cin[], cout[];
591 < int     n;
589 > static void
590 > compsoln(               /* solve 3xN system using least-squares */
591 >        COLOR   cin[],
592 >        COLOR   cout[],
593 >        int     n
594 > )
595   {
596          extern double   mx3d_adjoint(), fabs();
597          double  mat[3][3], invmat[3][3];
598          double  det;
599          double  colv[3], rowv[3];
600 <        register int    i, j, k;
600 >        int     i, j, k;
601  
602          if (n < 3) {
603                  fprintf(stderr, "%s: too few colors to match!\n", progname);
# Line 591 | Line 649 | int    n;
649   }
650  
651  
652 < cwarp()                         /* compute color warp map */
652 > static void
653 > cwarp(void)                             /* compute color warp map */
654   {
655 <        register int    i;
655 >        int     i;
656  
657          if ((wcor = new3dw(W3EXACT)) == NULL)
658                  goto memerr;
# Line 607 | Line 666 | memerr:
666   }
667  
668  
669 < int
670 < cvtcolor(cout, cin)             /* convert color according to our mapping */
671 < COLOR   cout, cin;
669 > static int
670 > cvtcolor(               /* convert color according to our mapping */
671 >        COLOR   cout,
672 >        COLOR   cin
673 > )
674   {
675          COLOR   ctmp;
676          int     clipped;
# Line 628 | Line 689 | COLOR  cout, cin;
689   }
690  
691  
692 < int
693 < cresp(cout, cin)                /* transform color according to matrix */
694 < COLOR   cout, cin;
692 > static int
693 > cresp(          /* transform color according to matrix */
694 >        COLOR   cout,
695 >        COLOR   cin
696 > )
697   {
698          colortrans(cout, solmat, cin);
699          return(clipgamut(cout, bright(cout), CGAMUT, colmin, colmax));
700   }
701  
702  
703 < xyY2RGB(rgbout, xyYin)          /* convert xyY to RGB */
704 < COLOR   rgbout;
705 < register float  xyYin[3];
703 > static void
704 > xyY2RGB(                /* convert xyY to RGB */
705 >        COLOR   rgbout,
706 >        float   xyYin[3]
707 > )
708   {
709          COLOR   ctmp;
710          double  d;
# Line 653 | Line 718 | register float xyYin[3];
718   }
719  
720  
721 < picdebug()                      /* put out debugging picture */
721 > static void
722 > picdebug(void)                  /* put out debugging picture */
723   {
724          static COLOR    blkcol = BLKCOLOR;
725          COLOR   *scan;
726          int     y, i;
727 <        register int    x, rg;
727 >        int     x, rg;
728  
729          if (fseek(stdin, 0L, 0) == EOF) {
730                  fprintf(stderr, "%s: cannot seek on input picture\n", progname);
# Line 709 | Line 775 | picdebug()                     /* put out debugging picture */
775   }
776  
777  
778 < clrdebug()                      /* put out debug picture from color input */
778 > static void
779 > clrdebug(void)                  /* put out debug picture from color input */
780   {
781          static COLR     blkclr = BLKCOLR;
782          COLR    mbclr[24], cvclr[24], orclr[24];
783          COLR    *scan;
784          COLOR   ctmp, ct2;
785          int     y, i;
786 <        register int    x, rg;
786 >        int     x, rg;
787                                                  /* convert colors */
788          for (i = 0; i < 24; i++) {
789                  copycolor(ctmp, mbRGB[i]);
# Line 779 | Line 846 | clrdebug()                     /* put out debug picture from color input
846   }
847  
848  
849 < getpos(name, bnds, fp)          /* get boundary position */
850 < char    *name;
851 < int     bnds[2];
852 < FILE    *fp;
849 > static void
850 > getpos(         /* get boundary position */
851 >        char    *name,
852 >        int     bnds[2],
853 >        FILE    *fp
854 > )
855   {
856          char    buf[64];
857  
# Line 796 | Line 865 | FILE   *fp;
865   }
866  
867  
868 < pickchartpos(pfn)               /* display picture and pick chart location */
869 < char    *pfn;
868 > static void
869 > pickchartpos(           /* display picture and pick chart location */
870 >        char    *pfn
871 > )
872   {
873 <        char    combuf[512];
873 >        char    combuf[PATH_MAX];
874          FILE    *pfp;
875  
876          sprintf(combuf, DISPCOM, pfn);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines