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.13 by greg, Fri Jan 31 15:56:17 1997 UTC vs.
Revision 2.21 by schorsch, Mon Oct 27 10:24:51 2003 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1997 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
14 > #include <math.h>
15 > #include <time.h>
16 >
17 > #include "platform.h"
18 > #include "rtprocess.h"
19   #include "color.h"
20   #include "resolu.h"
21   #include "pmap.h"
22 + #include "warp3d.h"
23  
24                                  /* MacBeth colors */
25   #define DarkSkin        0
# 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 */
# Line 109 | Line 118 | COLOR  bramp[NMBNEU][2];       /* brightness ramp (per primar
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  
115 – extern char     *malloc();
126  
117 –
127   main(argc, argv)
128   int     argc;
129   char    **argv;
# Line 132 | Line 141 | char   **argv;
141                                  perror(argv[i]);
142                                  exit(1);
143                          }
144 < #ifdef MSDOS
136 <                        setmode(fileno(debugfp), O_BINARY);
137 < #endif
144 >                        SET_FILE_BINARY(debugfp);
145                          newheader("RADIANCE", debugfp);         /* start */
146                          printargs(argc, argv, debugfp);         /* header */
147                          break;
# Line 151 | Line 158 | char   **argv;
158                          bounds[3][1] = atoi(argv[++i]);
159                          scanning = 2;
160                          break;
161 +                case 'P':                               /* pick position */
162 +                        scanning = 3;
163 +                        break;
164 +                case 'i':                               /* irradiance factor */
165 +                        i++;
166 +                        if (badarg(argc-i, argv+i, "f"))
167 +                                goto userr;
168 +                        irrad = atof(argv[i]);
169 +                        break;
170 +                case 'm':                               /* raw map output */
171 +                        rawmap = 1;
172 +                        break;
173                  case 'c':                               /* color input */
174                          scanning = 0;
175                          break;
# Line 167 | Line 186 | char   **argv;
186                  exit(1);
187          }
188          if (scanning) {                 /* load input picture header */
189 < #ifdef MSDOS
171 <                setmode(fileno(stdin), O_BINARY);
172 < #endif
189 >                SET_FILE_BINARY(stdin);
190                  if (checkheader(stdin, COLRFMT, NULL) < 0 ||
191                                  fgetresolu(&xmax, &ymax, stdin) < 0) {
192                          fprintf(stderr, "%s: bad input picture\n", progname);
193                          exit(1);
194                  }
195 +                if (scanning == 3) {
196 +                        if (i >= argc)
197 +                                goto userr;
198 +                        pickchartpos(argv[i]);
199 +                        scanning = 2;
200 +                }
201          } else {                        /* else set default xmax and ymax */
202                  xmax = 512;
203                  ymax = 2*512/3;
# Line 191 | Line 214 | char   **argv;
214          else
215                  getcolors();
216          compute();                      /* compute color mapping */
217 <                                        /* print comment */
218 <        printf("{\n\tColor correction file computed by:\n\t\t");
219 <        printargs(argc, argv, stdout);
220 <        printf("\n\tUsage: pcomb -f %s uncorrected.pic > corrected.pic\n",
221 <                        i+1 < argc ? argv[i+1] : "{this_file}");
222 <        if (!scanning)
200 <                printf("\t   Or: pcond [options] -f %s orig.pic > output.pic\n",
217 >        if (rawmap) {                   /* print out raw correspondence */
218 >                register int    j;
219 >
220 >                printf("# Color correspondence produced by:\n#\t\t");
221 >                printargs(argc, argv, stdout);
222 >                printf("#\tUsage: pcwarp %s uncorrected.pic > corrected.pic\n",
223                                  i+1 < argc ? argv[i+1] : "{this_file}");
224 <        printf("}\n");
225 <        putmapping();                   /* put out color mapping */
226 <        if (debugfp != NULL)            /* put out debug picture */
224 >                printf("#\t   Or: pcond [options] -m %s orig.pic > output.pic\n",
225 >                                i+1 < argc ? argv[i+1] : "{this_file}");
226 >                for (j = 0; j < 24; j++)
227 >                        printf("%f %f %f    %f %f %f\n",
228 >                                colval(inpRGB[j],RED), colval(inpRGB[j],GRN),
229 >                                colval(inpRGB[j],BLU), colval(mbRGB[j],RED),
230 >                                colval(mbRGB[j],GRN), colval(mbRGB[j],BLU));
231 >                if (scanning && debugfp != NULL)
232 >                        cwarp();                /* color warp for debugging */
233 >        } else {                        /* print color mapping */
234 >                                                /* print header */
235 >                printf("{\n\tColor correction file computed by:\n\t\t");
236 >                printargs(argc, argv, stdout);
237 >                printf("\n\tUsage: pcomb -f %s uncorrected.pic > corrected.pic\n",
238 >                                i+1 < argc ? argv[i+1] : "{this_file}");
239 >                if (!scanning)
240 >                        printf("\t   Or: pcond [options] -f %s orig.pic > output.pic\n",
241 >                                        i+1 < argc ? argv[i+1] : "{this_file}");
242 >                printf("}\n");
243 >                putmapping();                   /* put out color mapping */
244 >        }
245 >        if (debugfp != NULL) {          /* put out debug picture */
246                  if (scanning)
247                          picdebug();
248                  else
249                          clrdebug();
250 +        }
251          exit(0);
252   userr:
253          fprintf(stderr,
254 < "Usage: %s [-d dbg.pic][-p xul yul xur yur xll yll xlr ylr] input.pic [output.cal]\n",
254 > "Usage: %s [-d dbg.pic][-P | -p xul yul xur yur xll yll xlr ylr][-i irrad][-m] input.pic [output.{cal|cwp}]\n",
255                          progname);
256 <        fprintf(stderr, "   or: %s [-d dbg.pic] -c [xyY.dat [output.cal]]\n",
256 >        fprintf(stderr, "   or: %s [-d dbg.pic][-i irrad][-m] -c [xyY.dat [output.{cal|cwp}]]\n",
257                          progname);
258          exit(1);
259   }
# Line 236 | Line 278 | init()                         /* initialize */
278                  exit(1);
279          }
280                                          /* map MacBeth colors to RGB space */
281 <        for (i = 0; i < 24; i++)
281 >        for (i = 0; i < 24; i++) {
282                  xyY2RGB(mbRGB[i], mbxyY[i]);
283 +                scalecolor(mbRGB[i], irrad);
284 +        }
285   }
286  
287  
# Line 311 | Line 355 | getpicture()                           /* load in picture colors */
355                  scalecolor(inpRGB[i], d);
356                  inpflags |= 1L<<i;
357          }
358 <        free((char *)scanln);
358 >        free((void *)scanln);
359   }
360  
361  
# Line 323 | Line 367 | getcolors()                    /* get xyY colors from standard input */
367          float   xyYin[3];
368  
369          while (fgetval(stdin, 'i', &n) == 1) {          /* read colors */
370 <                if (n < 0 | n > 24 ||
370 >                if ((n < 0) | (n > 24) ||
371                                  fgetval(stdin, 'f', &xyYin[0]) != 1 ||
372                                  fgetval(stdin, 'f', &xyYin[1]) != 1 ||
373                                  fgetval(stdin, 'f', &xyYin[2]) != 1 ||
374 <                                xyYin[0] < 0. | xyYin[1] < 0. ||
374 >                                (xyYin[0] < 0.) | (xyYin[1] < 0.) ||
375                                  xyYin[0] + xyYin[1] > 1.) {
376                          fprintf(stderr, "%s: bad color input data\n",
377                                          progname);
# Line 402 | Line 446 | compute()                      /* compute color mapping */
446          if (scanning) {
447                  copycolor(colmin, cblack);
448                  copycolor(colmax, cwhite);
449 +                scalecolor(colmax, irrad);
450          } else
451                  for (i = 0; i < 3; i++) {
452                          colval(colmin,i) = colval(bramp[0][0],i) -
# Line 426 | Line 471 | compute()                      /* compute color mapping */
471                                  n++;
472                          }
473                  compsoln(clrin, clrout, n);
474 <                                                /* check out-of-gamut colors */
475 <                for (i = 0; i < 24; i++)
476 <                        if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
477 <                                gmtflags |= 1L<<i;
474 >                if (irrad > 0.99 && irrad < 1.01)       /* check gamut */
475 >                        for (i = 0; i < 24; i++)
476 >                                if (cflags & 1L<<i && cvtcolor(ctmp, mbRGB[i]))
477 >                                        gmtflags |= 1L<<i;
478          } while (cflags & gmtflags);
479          if (gmtflags & MODFLGS)
480                  fprintf(stderr,
# Line 438 | Line 483 | compute()                      /* compute color mapping */
483   }
484  
485  
486 < putmapping()                    /* put out color mapping for pcomb -f */
486 > putmapping()                    /* put out color mapping */
487   {
488          static char     cchar[3] = {'r', 'g', 'b'};
489          register int    i, j;
# Line 546 | Line 591 | int    n;
591   }
592  
593  
594 + cwarp()                         /* compute color warp map */
595 + {
596 +        register int    i;
597 +
598 +        if ((wcor = new3dw(W3EXACT)) == NULL)
599 +                goto memerr;
600 +        for (i = 0; i < 24; i++)
601 +                if (!add3dpt(wcor, inpRGB[i], mbRGB[i]))
602 +                        goto memerr;
603 +        return;
604 + memerr:
605 +        perror(progname);
606 +        exit(1);
607 + }
608 +
609 +
610   int
611   cvtcolor(cout, cin)             /* convert color according to our mapping */
612   COLOR   cout, cin;
# Line 553 | Line 614 | COLOR  cout, cin;
614          COLOR   ctmp;
615          int     clipped;
616  
617 <        if (scanning) {
617 >        if (wcor != NULL) {
618 >                clipped = warp3d(cout, cin, wcor);
619 >                clipped |= clipgamut(cout,bright(cout),CGAMUT,colmin,colmax);
620 >        } else if (scanning) {
621                  bresp(ctmp, cin);
622                  clipped = cresp(cout, ctmp);
623          } else {
# Line 625 | Line 689 | picdebug()                     /* put out debugging picture */
689                                  if (!(1L<<i & gmtflags) || (x+y)&07) {
690                                          copycolor(scan[x], mbRGB[i]);
691                                          clipgamut(scan[x], bright(scan[x]),
692 <                                                CGAMUT, cblack, cwhite);
692 >                                                CGAMUT, colmin, colmax);
693                                  } else
694                                          copycolor(scan[x], blkcol);
695                          } else if (rg == RG_CORR)
# Line 641 | Line 705 | picdebug()                     /* put out debugging picture */
705          }
706                                                  /* clean up */
707          fclose(debugfp);
708 <        free((char *)scan);
708 >        free((void *)scan);
709   }
710  
711  
# Line 664 | Line 728 | clrdebug()                     /* put out debug picture from color input
728                          clipgamut(ctmp, bright(ctmp), CGAMUT, cblack, cwhite);
729                          setcolr(orclr[i], colval(ctmp,RED),
730                                          colval(ctmp,GRN), colval(ctmp,BLU));
731 <                        bresp(ctmp, inpRGB[i]);
732 <                        colortrans(ct2, solmat, ctmp);
733 <                        clipgamut(ct2, bright(ct2), CGAMUT, cblack, cwhite);
734 <                        setcolr(cvclr[i], colval(ct2,RED),
735 <                                        colval(ct2,GRN), colval(ct2,BLU));
731 >                        if (rawmap)
732 >                                copycolr(cvclr[i], mbclr[i]);
733 >                        else {
734 >                                bresp(ctmp, inpRGB[i]);
735 >                                colortrans(ct2, solmat, ctmp);
736 >                                clipgamut(ct2, bright(ct2), CGAMUT,
737 >                                                cblack, cwhite);
738 >                                setcolr(cvclr[i], colval(ct2,RED),
739 >                                                colval(ct2,GRN),
740 >                                                colval(ct2,BLU));
741 >                        }
742                  }
743          }
744                                                  /* allocate scanline */
# Line 705 | Line 775 | clrdebug()                     /* put out debug picture from color input
775          }
776                                                  /* clean up */
777          fclose(debugfp);
778 <        free((char *)scan);
778 >        free((void *)scan);
779 > }
780 >
781 >
782 > getpos(name, bnds, fp)          /* get boundary position */
783 > char    *name;
784 > int     bnds[2];
785 > FILE    *fp;
786 > {
787 >        char    buf[64];
788 >
789 >        fprintf(stderr, "\tSelect corner: %s\n", name);
790 >        if (fgets(buf, sizeof(buf), fp) == NULL ||
791 >                        sscanf(buf, "%d %d", &bnds[0], &bnds[1]) != 2) {
792 >                fprintf(stderr, "%s: read error from display process\n",
793 >                                progname);
794 >                exit(1);
795 >        }
796 > }
797 >
798 >
799 > pickchartpos(pfn)               /* display picture and pick chart location */
800 > char    *pfn;
801 > {
802 >        char    combuf[512];
803 >        FILE    *pfp;
804 >
805 >        sprintf(combuf, DISPCOM, pfn);
806 >        if ((pfp = popen(combuf, "r")) == NULL) {
807 >                perror(combuf);
808 >                exit(1);
809 >        }
810 >        fputs("Use middle mouse button to select chart corners:\n", stderr);
811 >        getpos("upper left (dark skin)", bounds[0], pfp);
812 >        getpos("upper right (bluish green)", bounds[1], pfp);
813 >        getpos("lower left (white)", bounds[2], pfp);
814 >        getpos("lower right (black)", bounds[3], pfp);
815 >        fputs("Got it -- quit display program.\n", stderr);
816 >        pclose(pfp);
817   }

Diff Legend

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