ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/tonemap.c
(Generate patch)

Comparing ray/src/common/tonemap.c (file contents):
Revision 3.20 by greg, Sat Jan 14 20:25:51 2006 UTC vs.
Revision 3.47 by greg, Wed Apr 7 21:13:52 2021 UTC

# Line 12 | Line 12 | static const char      RCSid[] = "$Id$";
12   #include "copyright.h"
13  
14   #include        <stdio.h>
15 + #include        <stdlib.h>
16   #include        <math.h>
17 + #include        <string.h>
18   #include        "tmprivat.h"
19   #include        "tmerrmsg.h"
20  
# Line 22 | Line 24 | static const char      RCSid[] = "$Id$";
24   struct tmPackage        *tmPkg[TM_MAXPKG];
25   int     tmNumPkgs = 0;                  /* number of registered packages */
26  
27 +                                        /* luminance->brightness lookup */
28 + static TMbright         *tmFloat2BrtLUT = NULL;
29  
30 + #define tmCvLumLUfp(pf) tmFloat2BrtLUT[*(int32 *)(pf) >> 15]
31 +
32 +
33   TMstruct *
34   tmInit(                                 /* initialize new tone mapping */
35   int     flags,
# Line 48 | Line 55 | double gamval
55                  tmnew->clf[GRN] = rgb2xyzmat[1][1];
56                  tmnew->clf[BLU] = rgb2xyzmat[1][2];
57          } else {
58 <                comprgb2xyzWBmat(cmat, tmnew->monpri=monpri);
58 >                comprgb2xyzmat(cmat, tmnew->monpri=monpri);
59                  tmnew->clf[RED] = cmat[1][0];
60                  tmnew->clf[GRN] = cmat[1][1];
61                  tmnew->clf[BLU] = cmat[1][2];
# Line 60 | Line 67 | double gamval
67                  tmnew->mongam = gamval;
68                                                  /* set color divisors */
69          for (i = 0; i < 3; i++)
70 <                tmnew->cdiv[i] = 256.*pow(tmnew->clf[i], 1./tmnew->mongam);
70 >                tmnew->cdiv[i] = TM_BRES*pow(tmnew->clf[i], 1./tmnew->mongam);
71  
72                                                  /* set input transform */
73          tmnew->inppri = tmnew->monpri;
# Line 111 | Line 118 | MEM_PTR        dat
118                          tms->clf[CIEX] = tms->clf[CIEZ] = 0.;
119                          tms->clf[CIEY] = 1.;
120                  } else {
121 <                        comprgb2xyzWBmat(tms->cmat, tms->monpri);
121 >                        comprgb2xyzmat(tms->cmat, tms->monpri);
122                          tms->clf[RED] = tms->cmat[1][0];
123                          tms->clf[GRN] = tms->cmat[1][1];
124                          tms->clf[BLU] = tms->cmat[1][2];
125                  }
126 <                tms->cmat[0][0] = tms->cmat[1][1] = tms->cmat[2][2] =
120 <                                tms->inpsf;
126 >                tms->cmat[0][0] = tms->cmat[1][1] = tms->cmat[2][2] = 1.;
127                  tms->cmat[0][1] = tms->cmat[0][2] = tms->cmat[1][0] =
128                  tms->cmat[1][2] = tms->cmat[2][0] = tms->cmat[2][1] = 0.;
129  
130 <        } else if (tms->inppri == TM_XYZPRIM)   /* input is XYZ */
130 >        } else if (tms->inppri == TM_XYZPRIM) {         /* input is XYZ */
131                  compxyz2rgbWBmat(tms->cmat, tms->monpri);
132  
133 <        else {                                  /* input is RGB */
133 >        } else {                                        /* input is RGB */
134                  if (tms->inppri != tms->monpri &&
135                                  PRIMEQ(tms->inppri, tms->monpri))
136                          tms->inppri = tms->monpri;      /* no xform */
137 <                comprgb2rgbWBmat(tms->cmat, tms->inppri, tms->monpri);
137 >                if (!comprgb2rgbWBmat(tms->cmat, tms->inppri, tms->monpri))
138 >                        returnErr(TM_E_ILLEGAL);
139          }
140          for (i = 0; i < 3; i++)
141                  for (j = 0; j < 3; j++)
142                          tms->cmat[i][j] *= tms->inpsf;
143                                                  /* set color divisors */
144          for (i = 0; i < 3; i++)
145 <                if (tms->clf[i] > .001)
146 <                        tms->cdiv[i] =
140 <                                256.*pow(tms->clf[i], 1./tms->mongam);
141 <                else
142 <                        tms->cdiv[i] = 1;
145 >                tms->cdiv[i] = TM_BRES*pow(tms->clf[i] < .001 ? .001 :
146 >                                                tms->clf[i], 1./tms->mongam);
147                                                  /* notify packages */
148          for (i = tmNumPkgs; i--; )
149                  if (tms->pd[i] != NULL && tmPkg[i]->NewSpace != NULL)
# Line 149 | Line 153 | MEM_PTR        dat
153  
154  
155   void
156 < tmClearHisto(                   /* clear current histogram */
156 > tmClearHisto(                           /* clear current histogram */
157   TMstruct        *tms
158   )
159   {
160          if (tms == NULL || tms->histo == NULL)
161                  return;
162 <        free((MEM_PTR)tms->histo);
162 >        free(tms->histo);
163          tms->histo = NULL;
164   }
165  
166  
167 + TMbright
168 + tmCvLuminance(                          /* convert a single luminance */
169 + double  lum
170 + )
171 + {
172 +        double  d;
173 +
174 + #ifdef isfinite
175 +        if (!isfinite(lum) || lum <= TM_NOLUM)
176 + #else
177 +        if (lum <= TM_NOLUM)
178 + #endif
179 +                return(TM_NOBRT);
180 +        d = TM_BRTSCALE*log(lum);
181 +        return((TMbright)(d + .5 - (d < 0.)));
182 + }
183 +
184 +
185   int
186 + tmCvLums(                               /* convert luminances using lookup */
187 + TMbright        *ls,
188 + float           *scan,
189 + int             len
190 + )
191 + {
192 +        if (tmFloat2BrtLUT == NULL) {   /* initialize lookup table */
193 +                int32   i;
194 +                tmFloat2BrtLUT = (TMbright *)malloc(sizeof(TMbright)*0x10000);
195 +                if (tmFloat2BrtLUT == NULL)
196 +                        return(TM_E_NOMEM);
197 +                for (i = 0; i < 0x10000; i++) {
198 +                        int32   l = (i<<1 | 1) << 14;
199 + #ifndef isfinite
200 +                        if ((l & 0x7f800000) == 0x7f800000)
201 +                                tmFloat2BrtLUT[i] = TM_NOBRT;
202 +                        else
203 + #endif
204 +                        tmFloat2BrtLUT[i] = tmCvLuminance(*(float *)&l);
205 +                }
206 +        }
207 +        if (len <= 0)
208 +                return(TM_E_OK);
209 +        if ((ls == NULL) | (scan == NULL))
210 +                return(TM_E_ILLEGAL);
211 +        while (len--) {
212 +                if (*scan <= TM_NOLUM) {
213 +                        *ls++ = TM_NOBRT;
214 +                        ++scan;
215 +                        continue;
216 +                }
217 +                *ls++ = tmCvLumLUfp(scan++);
218 +        }
219 +        return(TM_E_OK);
220 + }
221 +
222 +
223 + int
224 + tmCvGrays(                              /* convert float gray values */
225 + TMstruct        *tms,
226 + TMbright        *ls,
227 + float           *scan,
228 + int             len
229 + )
230 + {
231 +        static const char funcName[] = "tmCvGrays";
232 +        int     i;
233 +
234 +        if (tms == NULL)
235 +                returnErr(TM_E_TMINVAL);
236 +        if ((ls == NULL) | (scan == NULL) | (len < 0))
237 +                returnErr(TM_E_ILLEGAL);
238 +        if (tmFloat2BrtLUT == NULL)                     /* initialize */
239 +                tmCvLums(NULL, NULL, 0);
240 +        for (i = len; i--; ) {
241 +                float   lum = tms->inpsf * scan[i];
242 +                if (lum <= TM_NOLUM)
243 +                        ls[i] = TM_NOBRT;
244 +                else
245 +                        ls[i] = tmCvLumLUfp(&lum);
246 +        }
247 +        returnOK;
248 + }
249 +
250 +
251 + int
252   tmCvColors(                             /* convert float colors */
253   TMstruct        *tms,
254   TMbright        *ls,
255 < BYTE    *cs,
255 > uby8    *cs,
256   COLOR   *scan,
257   int     len
258   )
259   {
260          static const char funcName[] = "tmCvColors";
261 <        static COLOR    csmall = {.5*MINLUM, .5*MINLUM, .5*MINLUM};
174 <        static BYTE     gamtab[1024];
261 >        static uby8     gamtab[1024];
262          static double   curgam = .0;
263          COLOR   cmon;
264 <        double  lum, slum;
178 <        double  d;
264 >        float   lum, slum, d;
265          int     i;
266  
267          if (tms == NULL)
268                  returnErr(TM_E_TMINVAL);
269          if ((ls == NULL) | (scan == NULL) | (len < 0))
270                  returnErr(TM_E_ILLEGAL);
271 <        if (cs != TM_NOCHROM && fabs(curgam - tms->mongam) < .02) {
271 >        if (tmFloat2BrtLUT == NULL)                     /* initialize */
272 >                tmCvLums(NULL, NULL, 0);
273 >        if (cs != TM_NOCHROM && fabs(tms->mongam - curgam) > .02) {
274                  curgam = tms->mongam;                   /* (re)build table */
275                  for (i = 1024; i--; )
276                          gamtab[i] = (int)(256.*pow((i+.5)/1024., 1./curgam));
# Line 195 | Line 283 | int    len
283                          cmon[GRN] = tms->inpsf*scan[i][GRN];
284                          cmon[BLU] = tms->inpsf*scan[i][BLU];
285                  }
286 + #ifdef isfinite
287 +                if (!isfinite(cmon[RED]) || cmon[RED] < .0f) cmon[RED] = .0f;
288 +                if (!isfinite(cmon[GRN]) || cmon[GRN] < .0f) cmon[GRN] = .0f;
289 +                if (!isfinite(cmon[BLU]) || cmon[BLU] < .0f) cmon[BLU] = .0f;
290 + #else
291 +                if (cmon[RED] < .0f) cmon[RED] = .0f;
292 +                if (cmon[GRN] < .0f) cmon[GRN] = .0f;
293 +                if (cmon[BLU] < .0f) cmon[BLU] = .0f;
294 + #endif
295                                                          /* world luminance */
296                  lum =   tms->clf[RED]*cmon[RED] +
297                          tms->clf[GRN]*cmon[GRN] +
298                          tms->clf[BLU]*cmon[BLU] ;
299 <                                                        /* check range */
300 <                if (clipgamut(cmon, lum, CGAMUT_LOWER, csmall, cwhite))
301 <                        lum =   tms->clf[RED]*cmon[RED] +
302 <                                tms->clf[GRN]*cmon[GRN] +
303 <                                tms->clf[BLU]*cmon[BLU] ;
207 <                if (lum < MINLUM) {
208 <                        ls[i] = MINBRT-1;               /* bogus value */
209 <                        lum = MINLUM;
210 <                } else {
211 <                        d = TM_BRTSCALE*log(lum);       /* encode it */
212 <                        ls[i] = d>0. ? (int)(d+.5) : (int)(d-.5);
213 <                }
299 >                if (lum <= TM_NOLUM) {                  /* convert brightness */
300 >                        lum = cmon[RED] = cmon[GRN] = cmon[BLU] = TM_NOLUM;
301 >                        ls[i] = TM_NOBRT;
302 >                } else
303 >                        ls[i] = tmCvLumLUfp(&lum);
304                  if (cs == TM_NOCHROM)                   /* no color? */
305                          continue;
306                  if (tms->flags & TM_F_MESOPIC && lum < LMESUPPER) {
307                          slum = scotlum(cmon);           /* mesopic adj. */
308 <                        if (lum < LMESLOWER)
308 >                        if (lum < LMESLOWER) {
309                                  cmon[RED] = cmon[GRN] = cmon[BLU] = slum;
310 <                        else {
310 >                        } else {
311                                  d = (lum - LMESLOWER)/(LMESUPPER - LMESLOWER);
312                                  if (tms->flags & TM_F_BW)
313                                          cmon[RED] = cmon[GRN] =
314                                                          cmon[BLU] = d*lum;
315                                  else
316                                          scalecolor(cmon, d);
317 <                                d = (1.-d)*slum;
317 >                                d = (1.f-d)*slum;
318                                  cmon[RED] += d;
319                                  cmon[GRN] += d;
320                                  cmon[BLU] += d;
# Line 233 | Line 323 | int    len
323                          cmon[RED] = cmon[GRN] = cmon[BLU] = lum;
324                  }
325                  d = tms->clf[RED]*cmon[RED]/lum;
326 <                cs[3*i  ] = d>=.999 ? 255 : gamtab[(int)(1024.*d)];
326 >                cs[3*i  ] = d>=.999f ? 255 : gamtab[(int)(1024.f*d)];
327                  d = tms->clf[GRN]*cmon[GRN]/lum;
328 <                cs[3*i+1] = d>=.999 ? 255 : gamtab[(int)(1024.*d)];
328 >                cs[3*i+1] = d>=.999f ? 255 : gamtab[(int)(1024.f*d)];
329                  d = tms->clf[BLU]*cmon[BLU]/lum;
330 <                cs[3*i+2] = d>=.999 ? 255 : gamtab[(int)(1024.*d)];
330 >                cs[3*i+2] = d>=.999f ? 255 : gamtab[(int)(1024.f*d)];
331          }
332          returnOK;
333   }
334  
335  
246 TMbright
247 tmCvLuminance(                          /* convert a single luminance */
248 double  lum
249 )
250 {
251        double  d;
252
253        if (lum <= TM_NOLUM)
254                return(TM_NOBRT);
255        d = TM_BRTSCALE*log(lum);
256        if (d > 0.)
257                return((TMbright)(d+.5));
258        return((TMbright)(d-.5));
259 }
260
261
336   int
263 tmCvGrays(                              /* convert float gray values */
264 TMstruct        *tms,
265 TMbright        *ls,
266 float   *scan,
267 int     len
268 )
269 {
270        static const char funcName[] = "tmCvGrays";
271        double  d;
272        int     i;
273
274        if (tms == NULL)
275                returnErr(TM_E_TMINVAL);
276        if ((ls == NULL) | (scan == NULL) | (len < 0))
277                returnErr(TM_E_ILLEGAL);
278        for (i = len; i--; )
279                if (scan[i] <= TM_NOLUM) {
280                        ls[i] = TM_NOBRT;               /* bogus value */
281                } else {
282                        d = TM_BRTSCALE*log(scan[i]);   /* encode it */
283                        ls[i] = d>0. ? (int)(d+.5) : (int)(d-.5);
284                }
285        returnOK;
286 }
287
288
289 int
337   tmAddHisto(                             /* add values to histogram */
338   TMstruct        *tms,
339   TMbright        *ls,
# Line 313 | Line 360 | int    wt
360                  tms->hbrmin = tms->hbrmax = ls[i];
361                  oldlen = 0;
362          } else {
363 <                oldorig = (tms->hbrmin-MINBRT)/HISTEP;
364 <                oldlen = (tms->hbrmax-MINBRT)/HISTEP + 1 - oldorig;
363 >                oldorig = HISTI(tms->hbrmin);
364 >                oldlen = HISTI(tms->hbrmax) + 1 - oldorig;
365          }
366          for (i = len; i--; ) {
367                  if ((j = ls[i]) < MINBRT)
# Line 324 | Line 371 | int    wt
371                  else if (j > tms->hbrmax)
372                          tms->hbrmax = j;
373          }
374 <        horig = (tms->hbrmin-MINBRT)/HISTEP;
375 <        hlen = (tms->hbrmax-MINBRT)/HISTEP + 1 - horig;
374 >        horig = HISTI(tms->hbrmin);
375 >        hlen = HISTI(tms->hbrmax) + 1 - horig;
376          if (hlen > oldlen) {                    /* (re)allocate histogram */
377 <                int     *newhist = (int *)calloc(hlen, sizeof(int));
377 >                HIST_TYP  *newhist = (HIST_TYP *)calloc(hlen, sizeof(HIST_TYP));
378                  if (newhist == NULL)
379                          returnErr(TM_E_NOMEM);
380                  if (oldlen) {                   /* copy and free old */
381 <                        for (i = oldlen, j = i+oldorig-horig; i; )
382 <                                newhist[--j] = tms->histo[--i];
383 <                        free((MEM_PTR)tms->histo);
381 >                        memcpy(newhist+(oldorig-horig),
382 >                                        tms->histo, oldlen*sizeof(HIST_TYP));
383 >                        free(tms->histo);
384                  }
385                  tms->histo = newhist;
386          }
# Line 341 | Line 388 | int    wt
388                  returnOK;
389          for (i = len; i--; )                    /* add in new counts */
390                  if (ls[i] >= MINBRT)
391 <                        tms->histo[ (ls[i]-MINBRT)/HISTEP - horig ] += wt;
391 >                        tms->histo[ HISTI(ls[i]) - horig ] += wt;
392          returnOK;
393   }
394  
# Line 369 | Line 416 | double La
416   }
417  
418  
372 static int
373 tmNewMap(                       /* allocate new tone-mapping array */
374 TMstruct        *tms
375 )
376 {
377        if (tms->lumap != NULL && (tms->mbrmax - tms->mbrmin) !=
378                                        (tms->hbrmax - tms->hbrmin)) {
379                free((MEM_PTR)tms->lumap);
380                tms->lumap = NULL;
381        }
382        tms->mbrmin = tms->hbrmin;
383        tms->mbrmax = tms->hbrmax;
384        if (tms->mbrmin > tms->mbrmax)
385                return 0;
386        if (tms->lumap == NULL)
387                tms->lumap = (unsigned short *)malloc(sizeof(unsigned short)*
388                                        (tms->mbrmax-tms->mbrmin+1));
389        return(tms->lumap != NULL);
390 }
391
392
419   int
420   tmFixedMapping(                 /* compute fixed, linear tone-mapping */
421   TMstruct        *tms,
422   double  expmult,
423 < double  gamval
423 > double  gamval,
424 > double  Lddyn
425   )
426   {
427          static const char funcName[] = "tmFixedMapping";
428 <        double          d;
429 <        int     i;
428 >        const int       maxV = (1L<<(8*sizeof(TMAP_TYP))) - 1;
429 >        double          minD;
430 >        int             i;
431          
432          if (!tmNewMap(tms))
433                  returnErr(TM_E_NOMEM);
434 <        if (expmult <= .0)
435 <                expmult = 1.;
436 <        if (gamval < MINGAM)
437 <                gamval = tms->mongam;
438 <        d = log(expmult/tms->inpsf);
439 <        for (i = tms->mbrmax-tms->mbrmin+1; i--; )
440 <                tms->lumap[i] = 256. * exp(
441 <                        ( d + (tms->mbrmin+i)*(1./TM_BRTSCALE) )
442 <                        / gamval );
434 >                                        /* check arguments */
435 >        if (expmult <= .0) expmult = 1.;
436 >        if (gamval < MINGAM) gamval = tms->mongam;
437 >        if (Lddyn < MINLDDYN) Lddyn = DEFLDDYN;
438 >        minD = 1./Lddyn;
439 >        for (i = tms->mbrmax-tms->mbrmin+1; i--; ) {
440 >                double  d;
441 >                d = expmult/tms->inpsf * tmLuminance(tms->mbrmin + i);
442 >                if (d <= minD)
443 >                        break;          /* map initialized to zeroes */
444 >                d = (d - minD)/(1. - minD);
445 >                d = TM_BRES*pow(d, 1./gamval);
446 >                tms->lumap[i] = (d > maxV) ? maxV : (int)d;
447 >        }
448          returnOK;
449   }
450  
# Line 425 | Line 458 | double Ldmax
458   )
459   {
460          static const char funcName[] = "tmComputeMapping";
461 <        int     *histo;
461 >        HIST_TYP        *histo;
462          float   *cumf;
463 <        int     brt0, histlen, threshold, ceiling, trimmings;
464 <        double  logLddyn, Ldmin, Ldavg, Lwavg, Tr, Lw, Ld;
465 <        int32   histot;
463 >        int     brt0, histlen;
464 >        HIST_TYP        threshold, ceiling, trimmings, histot;
465 >        double  logLddyn, Ldmin, Lwavg, Tr, Lw, Ld;
466          double  sum;
467          double  d;
468          int     i, j;
# Line 443 | Line 476 | double Ldmax
476                                          /* compute handy values */
477          Ldmin = Ldmax/Lddyn;
478          logLddyn = log(Lddyn);
479 <        Ldavg = sqrt(Ldmax*Ldmin);
480 <        i = (tms->hbrmin-MINBRT)/HISTEP;
481 <        brt0 = MINBRT + HISTEP/2 + i*HISTEP;
449 <        histlen = (tms->hbrmax-MINBRT)/HISTEP + 1 - i;
479 >        i = HISTI(tms->hbrmin);
480 >        brt0 = HISTV(i);
481 >        histlen = HISTI(tms->hbrmax) + 1 - i;
482                                          /* histogram total and mean */
483          histot = 0; sum = 0;
484          j = brt0 + histlen*HISTEP;
485          for (i = histlen; i--; ) {
486                  histot += tms->histo[i];
487 <                sum += (j -= HISTEP) * tms->histo[i];
487 >                sum += (double)(j -= HISTEP) * tms->histo[i];
488          }
489 <        threshold = histot*0.005 + .5;
490 <        if (threshold < 4)
489 >        threshold = histot*0.002 + .5;
490 >        if (!histot)
491                  returnErr(TM_E_TMFAIL);
492          Lwavg = tmLuminance( (double)sum / histot );
461                                        /* allocate space for mapping */
462        if (!tmNewMap(tms))
463                returnErr(TM_E_NOMEM);
493                                          /* use linear tone mapping? */
494 <        if (tms->flags & TM_F_LINEAR)
494 >        if (tms->flags & TM_F_LINEAR || threshold < 4 ||
495 >                        tms->hbrmax - tms->hbrmin < TM_BRTSCALE*logLddyn)
496                  goto linearmap;
497                                          /* clamp histogram */
498 <        histo = (int *)malloc(histlen*sizeof(int));
498 >        histo = (HIST_TYP *)malloc(histlen*sizeof(HIST_TYP));
499          cumf = (float *)malloc((histlen+2)*sizeof(float));
500          if ((histo == NULL) | (cumf == NULL))
501                  returnErr(TM_E_NOMEM);
502          cumf[histlen+1] = 1.;           /* guard for assignment code */
503 <        for (i = histlen; i--; )        /* make malleable copy */
504 <                histo[i] = tms->histo[i];
503 >                                        /* make malleable copy */
504 >        memcpy(histo, tms->histo, histlen*sizeof(HIST_TYP));
505          do {                            /* iterate to solution */
506                  sum = 0;                /* cumulative probability */
507                  for (i = 0; i < histlen; i++) {
508 <                        cumf[i] = (double)sum/histot;
509 <                        sum += histo[i];
508 >                        cumf[i] = sum/histot;
509 >                        sum += (double)histo[i];
510                  }
511                  cumf[histlen] = 1.;
512                  Tr = histot * (double)(tms->hbrmax - tms->hbrmin) /
513 <                        ((double)histlen*TM_BRTSCALE) / logLddyn;
513 >                                ((double)TM_BRTSCALE*histlen*logLddyn);
514                  ceiling = Tr + 1.;
515                  trimmings = 0;          /* clip to envelope */
516                  for (i = histlen; i--; ) {
# Line 498 | Line 528 | double Ldmax
528                  }
529                                          /* check if we're out of data */
530                  if ((histot -= trimmings) <= threshold) {
531 <                        free((MEM_PTR)histo);
532 <                        free((MEM_PTR)cumf);
531 >                        free(histo);
532 >                        free(cumf);
533                          goto linearmap;
534                  }
535          } while (trimmings > threshold);
536 +                                        /* allocate space for mapping */
537 +        if (!tmNewMap(tms))
538 +                returnErr(TM_E_NOMEM);
539                                          /* assign tone-mapping */
540          for (i = tms->mbrmax-tms->mbrmin+1; i--; ) {
541                  j = d = (double)i/(tms->mbrmax-tms->mbrmin)*histlen;
542                  d -= (double)j;
543                  Ld = Ldmin*exp(logLddyn*((1.-d)*cumf[j]+d*cumf[j+1]));
544                  d = (Ld - Ldmin)/(Ldmax - Ldmin);
545 <                tms->lumap[i] = 256.*pow(d, 1./gamval);
545 >                tms->lumap[i] = TM_BRES*pow(d, 1./gamval);
546          }
547 <        free((MEM_PTR)histo);           /* clean up and return */
548 <        free((MEM_PTR)cumf);
547 >        free(histo);                    /* clean up and return */
548 >        free(cumf);
549          returnOK;
550   linearmap:                              /* linear tone-mapping */
551          if (tms->flags & TM_F_HCONTR)
552 <                d = htcontrs(Ldavg) / htcontrs(Lwavg);
552 >                d = htcontrs(sqrt(Ldmax*Ldmin)) / htcontrs(Lwavg);
553          else
554 <                d = Ldavg / Lwavg;
555 <        return(tmFixedMapping(tms, tms->inpsf*d/Ldmax, gamval));
554 >                d = Ldmax / tmLuminance(tms->hbrmax);
555 >        return(tmFixedMapping(tms, tms->inpsf*d/Ldmax, gamval, Lddyn));
556   }
557  
558  
559   int
560   tmMapPixels(                    /* apply tone-mapping to pixel(s) */
561   TMstruct        *tms,
562 < BYTE    *ps,
562 > uby8    *ps,
563   TMbright        *ls,
564 < BYTE    *cs,
564 > uby8    *cs,
565   int     len
566   )
567   {
568          static const char funcName[] = "tmMapPixels";
569 <        int32   li, pv;
569 >        TMbright        lv;
570 >        TMAP_TYP        li;
571 >        int             pv;
572  
573          if (tms == NULL || tms->lumap == NULL)
574                  returnErr(TM_E_TMINVAL);
575          if ((ps == NULL) | (ls == NULL) | (len < 0))
576                  returnErr(TM_E_ILLEGAL);
577          while (len--) {
578 <                if ((li = *ls++) < tms->mbrmin) {
578 >                if ((lv = *ls++) < tms->mbrmin) {
579                          li = 0;
580                  } else {
581 <                        if (li > tms->mbrmax)
582 <                                li = tms->mbrmax;
583 <                        li = tms->lumap[li - tms->mbrmin];
581 >                        if (lv > tms->mbrmax)
582 >                                lv = tms->mbrmax;
583 >                        li = tms->lumap[lv - tms->mbrmin];
584                  }
585 <                if (cs == TM_NOCHROM)
586 <                        *ps++ = li>255 ? 255 : li;
587 <                else {
585 >                if (cs == TM_NOCHROM) {
586 > #if !(TM_BRES & 0xff)
587 >                        *ps++ = li>=TM_BRES ? 255 : li/(TM_BRES>>8);
588 > #else
589 >                        *ps++ = li>=TM_BRES ? 255 : (li<<8)/TM_BRES;
590 > #endif
591 >                } else {
592                          pv = *cs++ * li / tms->cdiv[RED];
593                          *ps++ = pv>255 ? 255 : pv;
594                          pv = *cs++ * li / tms->cdiv[GRN];
# Line 562 | Line 601 | int    len
601   }
602  
603  
565
566
604   TMstruct *
605 < tmDup(                          /* duplicate top tone mapping */
605 > tmDup(                          /* duplicate tone mapping */
606   TMstruct        *tms
607   )
608   {
# Line 580 | Line 617 | TMstruct       *tms
617                  return(NULL);
618          *tmnew = *tms;          /* copy everything */
619          if (tmnew->histo != NULL) {     /* duplicate histogram */
620 <                len = (tmnew->hbrmax-MINBRT)/HISTEP + 1 -
621 <                                (tmnew->hbrmin-MINBRT)/HISTEP;
585 <                tmnew->histo = (int *)malloc(len*sizeof(int));
620 >                len = HISTI(tmnew->hbrmax) + 1 - HISTI(tmnew->hbrmin);
621 >                tmnew->histo = (HIST_TYP *)malloc(len*sizeof(HIST_TYP));
622                  if (tmnew->histo != NULL)
623 <                        for (i = len; i--; )
588 <                                tmnew->histo[i] = tms->histo[i];
623 >                        memcpy(tmnew->histo, tms->histo, len*sizeof(HIST_TYP));
624          }
625          if (tmnew->lumap != NULL) {     /* duplicate luminance mapping */
626                  len = tmnew->mbrmax-tmnew->mbrmin+1;
627 <                tmnew->lumap = (unsigned short *)malloc(
593 <                                                len*sizeof(unsigned short) );
627 >                tmnew->lumap = (TMAP_TYP *)malloc(len*sizeof(TMAP_TYP));
628                  if (tmnew->lumap != NULL)
629 <                        for (i = len; i--; )
596 <                                tmnew->lumap[i] = tms->lumap[i];
629 >                        memcpy(tmnew->lumap, tms->lumap, len*sizeof(TMAP_TYP));
630          }
631                                          /* clear package data */
632          for (i = tmNumPkgs; i--; )
# Line 613 | Line 646 | TMstruct       *tms;
646                  return;
647                                          /* free tables */
648          if (tms->histo != NULL)
649 <                free((MEM_PTR)tms->histo);
649 >                free(tms->histo);
650          if (tms->lumap != NULL)
651 <                free((MEM_PTR)tms->lumap);
651 >                free(tms->lumap);
652                                          /* free private data */
653          for (i = tmNumPkgs; i--; )
654                  if (tms->pd[i] != NULL)
655                          (*tmPkg[i]->Free)(tms->pd[i]);
656 <        free((MEM_PTR)tms);             /* free basic structure */
656 >        free(tms);                      /* free basic structure */
657   }
658  
659   /******************** Shared but Private library routines *********************/
660  
661 < BYTE    tmMesofact[BMESUPPER-BMESLOWER];
661 > uby8    tmMesofact[BMESUPPER-BMESLOWER];
662  
663   void
664   tmMkMesofact()                          /* build mesopic lookup factor table */
# Line 639 | Line 672 | tmMkMesofact()                         /* build mesopic lookup factor table
672                  tmMesofact[i-BMESLOWER] = 256. *
673                                  (tmLuminance(i) - LMESLOWER) /
674                                  (LMESUPPER - LMESLOWER);
675 + }
676 +
677 +
678 + int
679 + tmNewMap(                       /* allocate new tone-mapping array */
680 + TMstruct        *tms
681 + )
682 + {
683 +        if (tms->lumap != NULL && (tms->mbrmax - tms->mbrmin) !=
684 +                                        (tms->hbrmax - tms->hbrmin)) {
685 +                free(tms->lumap);
686 +                tms->lumap = NULL;
687 +        }
688 +        tms->mbrmin = tms->hbrmin;
689 +        tms->mbrmax = tms->hbrmax;
690 +        if (tms->mbrmin > tms->mbrmax)
691 +                return(0);
692 +        if (tms->lumap == NULL)
693 +                tms->lumap = (TMAP_TYP *)calloc(tms->mbrmax-tms->mbrmin+1,
694 +                                                sizeof(TMAP_TYP));
695 +        else
696 +                memset(tms->lumap, 0, (tms->mbrmax-tms->mbrmin+1)*sizeof(TMAP_TYP));
697 +
698 +        return(tms->lumap != NULL);
699   }
700  
701  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines