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.27 by greg, Tue Feb 2 18:02:32 2016 UTC vs.
Revision 2.31 by greg, Tue Jun 3 21:31:51 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"
16   #include "paths.h"
# Line 101 | 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 121 | COLOR  colmin, colmax;         /* gamut limits */
121   WARP3D  *wcor = NULL;           /* color space warp */
122  
123   FILE    *debugfp = NULL;        /* debug output picture */
126 – char    *progname;
124  
125   static void init(void);
126   static int chartndx(int x, int y, int   *np);
127   static void getpicture(void);
128   static void getcolors(void);
129   static void bresp(COLOR y, COLOR        x);
130 + static void ibresp(COLOR        y, COLOR        x);
131   static void compute(void);
132   static void putmapping(void);
133   static void compsoln(COLOR      cin[], COLOR    cout[], int     n);
# Line 151 | Line 149 | main(
149   {
150          int     i;
151  
152 <        progname = argv[0];
152 >        fixargv0(argv[0]);              /* sets global progname */
153          for (i = 1; i < argc && argv[i][0] == '-'; i++)
154                  switch (argv[i][1]) {
155                  case 'd':                               /* debug output */
# Line 236 | Line 234 | main(
234                  getcolors();
235          compute();                      /* compute color mapping */
236          if (rawmap) {                   /* print out raw correspondence */
237 <                register int    j;
237 >                int     j;
238  
239                  printf("# Color correspondence produced by:\n#\t\t");
240                  printargs(argc, argv, stdout);
# Line 285 | Line 283 | static void
283   init(void)                              /* initialize */
284   {
285          double  quad[4][2];
286 <        register int    i;
286 >        int     i;
287                                          /* make coordinate transformation */
288          quad[0][0] = bounds[0][0];
289          quad[0][1] = bounds[0][1];
# Line 325 | Line 323 | chartndx(                      /* find color number for position */
323          mx3d_transform(ipos, imgxfm, cpos);
324          cpos[0] /= cpos[2];
325          cpos[1] /= cpos[2];
326 <        if (cpos[0] < 0. || cpos[0] >= 6. || cpos[1] < 0. || cpos[1] >= 4.)
326 >        if ((cpos[0] < 0.) | (cpos[0] >= 6.) | (cpos[1] < 0.) | (cpos[1] >= 4.))
327                  return(RG_BORD);
328          ix = cpos[0];
329          iy = cpos[1];
330          fx = cpos[0] - ix;
331          fy = cpos[1] - iy;
332          *np = iy*6 + ix;
333 <        if (fx >= 0.35 && fx < 0.65 && fy >= 0.35 && fy < 0.65)
333 >        if ((fx >= 0.35) & (fx < 0.65) & (fy >= 0.35) & (fy < 0.65))
334                  return(RG_CENT);
335 <        if (fx < 0.05 || fx >= 0.95 || fy < 0.05 || fy >= 0.95)
335 >        if ((fx < 0.05) | (fx >= 0.95) | (fy < 0.05) | (fy >= 0.95))
336                  return(RG_BORD);
337          if (fx >= 0.5)                  /* right side is corrected */
338                  return(RG_CORR);
# Line 350 | Line 348 | getpicture(void)                               /* load in picture colors */
348          int     ccount[24];
349          double  d;
350          int     y, i;
351 <        register int    x;
351 >        int     x;
352  
353          scanln = (COLR *)malloc(xmax*sizeof(COLR));
354          if (scanln == NULL) {
# Line 436 | Line 434 | getcolors(void)                        /* get xyY colors from standard inpu
434  
435   static void
436   bresp(          /* piecewise linear interpolation of primaries */
437 <        COLOR   y,
438 <        COLOR   x
437 >        COLOR   y,              /* y is linear output */
438 >        COLOR   x               /* x is non-linear input */
439   )
440   {
441 <        register int    i, n;
441 >        int     i, n;
442  
443          for (i = 0; i < 3; i++) {
444                  for (n = 0; n < NMBNEU-2; n++)
# Line 456 | Line 454 | bresp(         /* piecewise linear interpolation of primaries
454  
455  
456   static void
457 + ibresp(         /* inverse mapping (delinearization) */
458 +        COLOR   x,              /* x is non-linear output */
459 +        COLOR   y               /* y is linear input */
460 + )
461 + {
462 +        int     i, n;
463 +
464 +        for (i = 0; i < 3; i++) {
465 +                for (n = 0; n < NMBNEU-2; n++)
466 +                        if (colval(y,i) < colval(bramp[n+1][1],i))
467 +                                break;
468 +                colval(x,i) = ((colval(bramp[n+1][1],i) - colval(y,i)) *
469 +                                                colval(bramp[n][0],i) +
470 +                                (colval(y,i) - colval(bramp[n][1],i)) *
471 +                                                colval(bramp[n+1][0],i)) /
472 +                        (colval(bramp[n+1][1],i) - colval(bramp[n][1],i));
473 +        }
474 + }
475 +
476 +
477 + static void
478   compute(void)                   /* compute color mapping */
479   {
480          COLOR   clrin[24], clrout[24];
481          long    cflags;
482          COLOR   ctmp;
483 <        register int    i, n;
483 >        int     i, n;
484                                          /* did we get what we need? */
485          if ((inpflags & REQFLGS) != REQFLGS) {
486                  fprintf(stderr, "%s: missing required input colors\n",
# Line 471 | Line 490 | compute(void)                  /* compute color mapping */
490                                          /* compute piecewise luminance curve */
491          for (i = 0; i < NMBNEU; i++) {
492                  copycolor(bramp[i][0], inpRGB[mbneu[i]]);
493 <                for (n = i ? 3 : 0; n--; )
493 >                for (n = 3*(i>0); n--; )
494                          if (colval(bramp[i][0],n) <=
495                                          colval(bramp[i-1][0],n)+1e-7) {
496                                  fprintf(stderr,
# Line 481 | Line 500 | compute(void)                  /* compute color mapping */
500                  copycolor(bramp[i][1], mbRGB[mbneu[i]]);
501          }
502                                          /* compute color space gamut */
503 <        if (scanning) {
504 <                copycolor(colmin, cblack);
505 <                copycolor(colmax, cwhite);
506 <                scalecolor(colmax, irrad);
507 <        } else
508 <                for (i = 0; i < 3; i++) {
509 <                        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 <                }
503 >        copycolor(colmin, cblack);
504 >        copycolor(colmax, cwhite);
505 >        scalecolor(colmax, irrad);
506 >        if (!scanning) {
507 >                ibresp(colmin, colmin);
508 >                ibresp(colmax, colmax);
509 >        }
510                                          /* compute color mapping */
511          do {
512                  cflags = inpflags & ~gmtflags;
513                  n = 0;                          /* compute transform matrix */
514 <                for (i = 0; i < 24; i++)
515 <                        if (cflags & 1L<<i) {
514 >                for (i = 0; i < 24; i++) {
515 >                        if (!(cflags & 1L<<i))
516 >                                continue;
517 >                        if (scanning) {
518                                  bresp(clrin[n], inpRGB[i]);
519                                  copycolor(clrout[n], mbRGB[i]);
520 <                                n++;
520 >                        } else {
521 >                                copycolor(clrin[n], inpRGB[i]);
522 >                                ibresp(clrout[n], mbRGB[i]);
523                          }
524 +                        n++;
525 +                }
526                  compsoln(clrin, clrout, n);
527 <                if (irrad > 0.99 && irrad < 1.01)       /* check gamut */
528 <                        for (i = 0; i < 24; i++)
529 <                                if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
515 <                                        gmtflags |= 1L<<i;
527 >                for (i = 0; i < 24; i++)        /* check gamut */
528 >                        if (cflags & 1L<<i && cvtcolor(ctmp, inpRGB[i]))
529 >                                gmtflags |= 1L<<i;
530          } while (cflags & gmtflags);
531 +
532          if (gmtflags & MODFLGS)
533                  fprintf(stderr,
534                  "%s: warning - some moderate colors are out of gamut\n",
# Line 525 | Line 540 | static void
540   putmapping(void)                        /* put out color mapping */
541   {
542          static char     cchar[3] = {'r', 'g', 'b'};
543 <        register int    i, j;
543 >        int     i, j;
544                                          /* print brightness mapping */
545          for (j = 0; j < 3; j++) {
546                  printf("%cxa(i) : select(i", cchar[j]);
# Line 581 | Line 596 | compsoln(              /* solve 3xN system using least-squares */
596          double  mat[3][3], invmat[3][3];
597          double  det;
598          double  colv[3], rowv[3];
599 <        register int    i, j, k;
599 >        int     i, j, k;
600  
601          if (n < 3) {
602                  fprintf(stderr, "%s: too few colors to match!\n", progname);
# Line 636 | Line 651 | compsoln(              /* solve 3xN system using least-squares */
651   static void
652   cwarp(void)                             /* compute color warp map */
653   {
654 <        register int    i;
654 >        int     i;
655  
656          if ((wcor = new3dw(W3EXACT)) == NULL)
657                  goto memerr;
# Line 687 | Line 702 | cresp(         /* transform color according to matrix */
702   static void
703   xyY2RGB(                /* convert xyY to RGB */
704          COLOR   rgbout,
705 <        register float  xyYin[3]
705 >        float   xyYin[3]
706   )
707   {
708          COLOR   ctmp;
# Line 708 | Line 723 | picdebug(void)                 /* put out debugging picture */
723          static COLOR    blkcol = BLKCOLOR;
724          COLOR   *scan;
725          int     y, i;
726 <        register int    x, rg;
726 >        int     x, rg;
727  
728          if (fseek(stdin, 0L, 0) == EOF) {
729                  fprintf(stderr, "%s: cannot seek on input picture\n", progname);
# Line 767 | Line 782 | clrdebug(void)                 /* put out debug picture from color i
782          COLR    *scan;
783          COLOR   ctmp, ct2;
784          int     y, i;
785 <        register int    x, rg;
785 >        int     x, rg;
786                                                  /* convert colors */
787          for (i = 0; i < 24; i++) {
788                  copycolor(ctmp, mbRGB[i]);

Diff Legend

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