src/px/pcond4.c

#ifndef lint
static const char       RCSid[] = "$Id: pcond4.c,v 3.20 2015/08/21 05:48:28 greg Exp $";
#endif
/*
 * Routines for veiling glare and loss of acuity.
 */

#include "pcond.h"

/************** VEILING STUFF *****************/

#define VADAPT          0.08            /* fraction of adaptation from veil */

static COLOR    *veilimg = NULL;        /* veiling image */

#define veilscan(y)     (veilimg+(y)*fvxr)

static float    (*raydir)[3] = NULL;    /* ray direction for each pixel */

#define rdirscan(y)     (raydir+(y)*fvxr)

static void compraydir(void);
#if ADJ_VEIL
static void smoothveil(void);
#endif


static void
compraydir(void)                                /* compute ray directions */
{
        FVECT   rorg, rdir;
        double  h, v;
        int     x, y;

        if (raydir != NULL)             /* already done? */
                return;
        raydir = (float (*)[3])malloc(fvxr*fvyr*3*sizeof(float));
        if (raydir == NULL)
                syserror("malloc");

        for (y = 0; y < fvyr; y++) {
                switch (inpres.rt) {
                case YMAJOR: case YMAJOR|XDECR:
                        v = (y+.5)/fvyr; break;
                case YMAJOR|YDECR: case YMAJOR|YDECR|XDECR:
                        v = 1. - (y+.5)/fvyr; break;
                case 0: case YDECR:
                        h = (y+.5)/fvyr; break;
                case XDECR: case XDECR|YDECR:
                        h = 1. - (y+.5)/fvyr; break;
                }
                for (x = 0; x < fvxr; x++) {
                        switch (inpres.rt) {
                        case YMAJOR: case YMAJOR|YDECR:
                                h = (x+.5)/fvxr; break;
                        case YMAJOR|XDECR: case YMAJOR|XDECR|YDECR:
                                h = 1. - (x+.5)/fvxr; break;
                        case 0: case XDECR:
                                v = (x+.5)/fvxr; break;
                        case YDECR: case YDECR|XDECR:
                                v = 1. - (x+.5)/fvxr; break;
                        }
                        if (viewray(rorg, rdir, &ourview, h, v)
                                        >= -FTINY) {
                                rdirscan(y)[x][0] = rdir[0];
                                rdirscan(y)[x][1] = rdir[1];
                                rdirscan(y)[x][2] = rdir[2];
                        } else {
                                rdirscan(y)[x][0] =
                                rdirscan(y)[x][1] =
                                rdirscan(y)[x][2] = 0.0;
                        }
                }
        }
}


void
compveil(void)                          /* compute veiling image */
{
        double  t2, t2sum;
        COLOR   ctmp, vsum;
        int     px, py;
        int     x, y;

        if (veilimg != NULL)            /* already done? */
                return;
                                        /* compute ray directions */
        compraydir();
                                        /* compute veil image */
        veilimg = (COLOR *)malloc(fvxr*fvyr*sizeof(COLOR));
        if (veilimg == NULL)
                syserror("malloc");
        for (py = 0; py < fvyr; py++)
                for (px = 0; px < fvxr; px++) {
                        t2sum = 0.;
                        setcolor(vsum, 0., 0., 0.);
                        for (y = 0; y < fvyr; y++)
                                for (x = 0; x < fvxr; x++) {
                                        if (x == px && y == py) continue;
                                        t2 = DOT(rdirscan(py)[px],
                                                        rdirscan(y)[x]);
                                        if (t2 <= FTINY) continue;
                                        /*      use approximation instead
                                        t3 = acos(t2);
                                        t2 = t2/(t3*t3);
                                        */
                                        t2 *= .5 / (1. - t2);
                                        copycolor(ctmp, fovscan(y)[x]);
                                        scalecolor(ctmp, t2);
                                        addcolor(vsum, ctmp);
                                        t2sum += t2;
                                }
                        /* VADAPT of original is subtracted in addveil() */
                        if (t2sum > FTINY)
                                scalecolor(vsum, VADAPT/t2sum);
                        copycolor(veilscan(py)[px], vsum);
                }
                                        /* modify FOV sample image */
        for (y = 0; y < fvyr; y++)
                for (x = 0; x < fvxr; x++) {
                        scalecolor(fovscan(y)[x], 1.-VADAPT);
                        addcolor(fovscan(y)[x], veilscan(y)[x]);
                }
        comphist();                     /* recompute histogram */
}


#if ADJ_VEIL
/*
 * The following veil adjustment was added to compensate for
 * the fact that contrast reduction gets confused with veil
 * in the human visual system.  Therefore, we reduce the
 * veil in portions of the image where our mapping has
 * already reduced contrast below the target value.
 * This gets called after the intial veil has been computed
 * and added to the foveal image, and the mapping has been
 * determined.
 */
void
adjveil(void)                           /* adjust veil image */
{
        float   *crfptr = crfimg;
        COLOR   *fovptr = fovimg;
        COLOR   *veilptr = veilimg;
        double  s2nits = 1./inpexp;
        double  vl, vl2, fovl, vlsum;
        double  deltavc[3];
        int     i, j;

        if (lumf == rgblum)
                s2nits *= WHTEFFICACY;

        for (i = fvxr*fvyr; i--; crfptr++, fovptr++, veilptr++) {
                if (crfptr[0] >= 0.95)
                        continue;
                vl = plum(veilptr[0]);
                fovl = (plum(fovptr[0]) - vl) * (1./(1.-VADAPT));
                if (vl <= 0.05*fovl)
                        continue;
                vlsum = vl;
                for (j = 2; j < 11; j++) {
                        vlsum += crfptr[0]*vl - (1.0 - crfptr[0])*fovl;
                        vl2 = vlsum / (double)j;
                        if (vl2 < 0.0)
                                vl2 = 0.0;
                        crfptr[0] = crfactor(fovl + vl2);
                }
                /* desaturation code causes color fringes at this level */
                for (j = 3; j--; ) {
                        double  vc = colval(veilptr[0],j);
                        double  fovc = (colval(fovptr[0],j) - vc) *
                                                (1./(1.-VADAPT));
                        deltavc[j] = (1.-crfptr[0])*(fovl/s2nits - fovc);
                        if (vc + deltavc[j] < 0.0)
                                break;
                }
                if (j < 0)
                        addcolor(veilptr[0], deltavc);
                else
                        scalecolor(veilptr[0], vl2/vl);
        }
        smoothveil();                   /* smooth our result */
}


static void
smoothveil(void)                                /* smooth veil image */
{
        COLOR   *nveilimg;
        COLOR   *ovptr, *nvptr;
        int     x, y, i;

        nveilimg = (COLOR *)malloc(fvxr*fvyr*sizeof(COLOR));
        if (nveilimg == NULL)
                return;
        for (y = 1; y < fvyr-1; y++) {
                ovptr = veilimg + y*fvxr + 1;
                nvptr = nveilimg + y*fvxr + 1;
                for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
                        for (i = 3; i--; )
                                nvptr[0][i] = 0.5 * ovptr[0][i]
                                        + (1./12.) *
                                (ovptr[-1][i] + ovptr[-fvxr][i] +
                                        ovptr[1][i] + ovptr[fvxr][i])
                                        + (1./24.) *
                                (ovptr[-fvxr-1][i] + ovptr[-fvxr+1][i] +
                                        ovptr[fvxr-1][i] + ovptr[fvxr+1][i]);
        }
        ovptr = veilimg + 1;
        nvptr = nveilimg + 1;
        for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
                for (i = 3; i--; )
                        nvptr[0][i] = 0.5 * ovptr[0][i]
                                + (1./9.) *
                        (ovptr[-1][i] + ovptr[1][i] + ovptr[fvxr][i])
                                + (1./12.) *
                        (ovptr[fvxr-1][i] + ovptr[fvxr+1][i]);
        ovptr = veilimg + (fvyr-1)*fvxr + 1;
        nvptr = nveilimg + (fvyr-1)*fvxr + 1;
        for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
                for (i = 3; i--; )
                        nvptr[0][i] = 0.5 * ovptr[0][i]
                                + (1./9.) *
                        (ovptr[-1][i] + ovptr[1][i] + ovptr[-fvxr][i])
                                + (1./12.) *
                        (ovptr[-fvxr-1][i] + ovptr[-fvxr+1][i]);
        ovptr = veilimg + fvxr;
        nvptr = nveilimg + fvxr;
        for (y = 1; y < fvyr-1; y++, ovptr += fvxr, nvptr += fvxr)
                for (i = 3; i--; )
                        nvptr[0][i] = 0.5 * ovptr[0][i]
                                + (1./9.) *
                        (ovptr[-fvxr][i] + ovptr[1][i] + ovptr[fvxr][i])
                                + (1./12.) *
                        (ovptr[-fvxr+1][i] + ovptr[fvxr+1][i]);
        ovptr = veilimg + fvxr - 1;
        nvptr = nveilimg + fvxr - 1;
        for (y = 1; y < fvyr-1; y++, ovptr += fvxr, nvptr += fvxr)
                for (i = 3; i--; )
                        nvptr[0][i] = 0.5 * ovptr[0][i]
                                + (1./9.) *
                        (ovptr[-fvxr][i] + ovptr[-1][i] + ovptr[fvxr][i])
                                + (1./12.) *
                        (ovptr[-fvxr-1][i] + ovptr[fvxr-1][i]);
        for (i = 3; i--; ) {
                nveilimg[0][i] = veilimg[0][i];
                nveilimg[fvxr-1][i] = veilimg[fvxr-1][i];
                nveilimg[(fvyr-1)*fvxr][i] = veilimg[(fvyr-1)*fvxr][i];
                nveilimg[fvyr*fvxr-1][i] = veilimg[fvyr*fvxr-1][i];
        }
        free((void *)veilimg);
        veilimg = nveilimg;
}
#endif

void
addveil(                                /* add veil to scanline */
        COLOR   *sl,
        int     y
)
{
        int     vx, vy;
        double  dx, dy;
        double  lv, uv;
        int     x, i;

        vy = dy = (y+.5)/numscans(&inpres)*fvyr - .5;
        while (vy >= fvyr-1) vy--;
        dy -= (double)vy;
        for (x = 0; x < scanlen(&inpres); x++) {
                vx = dx = (x+.5)/scanlen(&inpres)*fvxr - .5;
                while (vx >= fvxr-1) vx--;
                dx -= (double)vx;
                for (i = 0; i < 3; i++) {
                        lv = (1.-dy)*colval(veilscan(vy)[vx],i) +
                                        dy*colval(veilscan(vy+1)[vx],i);
                        uv = (1.-dy)*colval(veilscan(vy)[vx+1],i) +
                                        dy*colval(veilscan(vy+1)[vx+1],i);
                        colval(sl[x],i) = (1.-VADAPT)*colval(sl[x],i) +
                                        (1.-dx)*lv + dx*uv;
                }
        }
}


/****************** ACUITY STUFF *******************/

typedef struct {
        short   sampe;          /* sample area size (exponent of 2) */
        short   nscans;         /* number of scanlines in this bar */
        int     len;            /* individual scanline length */
        int     nread;          /* number of scanlines loaded */
        COLOR   *sdata;         /* scanbar data */
} SCANBAR;

#define bscan(sb,y)     ((COLOR *)(sb)->sdata+((y)%(sb)->nscans)*(sb)->len)

SCANBAR *rootbar;               /* root scan bar (lowest resolution) */

float   *inpacuD = NULL;        /* input acuity data (cycles/degree) */

#define tsampr(x,y)     inpacuD[(y)*fvxr+(x)]

static COLOR * getascan(SCANBAR *sb, int        y);
static void acusample(COLOR     col, int        x, int  y, double       sr);
static void ascanval(COLOR      col, int        x, int  y, SCANBAR      *sb);
static SCANBAR  *sballoc(int    se, int ns, int sl);

double
hacuity(                        /* return visual acuity in cycles/degree */
        double  La
)
{
                                        /* functional fit */
        return(17.25*atan(1.4*log10(La) + 0.35) + 25.72);
}


static COLOR *
getascan(                       /* find/read scanline y for scanbar sb */
        SCANBAR *sb,
        int     y
)
{
        COLOR   *sl0, *sl1, *mysl;
        int     i;

        if (y < sb->nread - sb->nscans)                 /* too far back? */
                return(NULL);
        for ( ; y >= sb->nread; sb->nread++) {          /* read as necessary */
                mysl = bscan(sb, sb->nread);
                if (sb->sampe == 0) {
                        if (fread2scan(mysl, sb->len, infp, NCSAMP, WLPART) < 0) {
                                fprintf(stderr, "%s: %s: scanline read error\n",
                                                progname, infn);
                                exit(1);
                        }
                } else {
                        sl0 = getascan(sb+1, 2*y);
                        if (sl0 == NULL)
                                return(NULL);
                        sl1 = getascan(sb+1, 2*y+1);
                        for (i = 0; i < sb->len; i++) {
                                copycolor(mysl[i], sl0[2*i]);
                                addcolor(mysl[i], sl0[2*i+1]);
                                addcolor(mysl[i], sl1[2*i]);
                                addcolor(mysl[i], sl1[2*i+1]);
                                scalecolor(mysl[i], 0.25);
                        }
                }
        }
        return(bscan(sb, y));
}


void
acuscan(                /* get acuity-sampled scanline */
        COLOR   *scln,
        int     y
)
{
        double  sr;
        double  dx, dy;
        int     ix, iy;
        int     x;
        
        if (inpacuD == NULL)
                return;
                                        /* compute foveal y position */
        iy = dy = (y+.5)/numscans(&inpres)*fvyr - .5;
        while (iy >= fvyr-1) iy--;
        dy -= (double)iy;
        for (x = 0; x < scanlen(&inpres); x++) {
                                        /* compute foveal x position */
                ix = dx = (x+.5)/scanlen(&inpres)*fvxr - .5;
                while (ix >= fvxr-1) ix--;
                dx -= (double)ix;
                                        /* interpolate sample rate */
                sr = (1.-dy)*((1.-dx)*tsampr(ix,iy) + dx*tsampr(ix+1,iy)) +
                        dy*((1.-dx)*tsampr(ix,iy+1) + dx*tsampr(ix+1,iy+1));

                acusample(scln[x], x, y, sr);   /* compute sample */
        }
}


static void
acusample(      /* interpolate sample at (x,y) using rate sr */
        COLOR   col,
        int     x,
        int     y,
        double  sr
)
{
        COLOR   c1;
        double  d;
        SCANBAR *sb0;

        for (sb0 = rootbar; sb0->sampe != 0 && 1<<sb0[1].sampe > sr; sb0++)
                ;
        ascanval(col, x, y, sb0);
        if (sb0->sampe == 0)            /* don't extrapolate highest */
                return;
        ascanval(c1, x, y, sb0+1);
        d = ((1<<sb0->sampe) - sr)/(1<<sb0[1].sampe);
        scalecolor(col, 1.-d);
        scalecolor(c1, d);
        addcolor(col, c1);
}


static void
ascanval(               /* interpolate scanbar at orig. coords (x,y) */
        COLOR   col,
        int     x,
        int     y,
        SCANBAR *sb
)
{
        COLOR   *sl0, *sl1, c1, c1y;
        double  dx, dy;
        int     ix, iy;

        if (sb->sampe == 0) {           /* no need to interpolate */
                sl0 = getascan(sb, y);
                copycolor(col, sl0[x]);
                return;
        }
                                        /* compute coordinates for sb */
        ix = dx = (x+.5)/(1<<sb->sampe) - .5;
        while (ix >= sb->len-1) ix--;
        dx -= (double)ix;
        iy = dy = (y+.5)/(1<<sb->sampe) - .5;
        while (iy >= (numscans(&inpres)>>sb->sampe)-1) iy--;
        dy -= (double)iy;
                                        /* get scanlines */
        sl0 = getascan(sb, iy);
#ifdef DEBUG
        if (sl0 == NULL)
                error(INTERNAL, "cannot backspace in ascanval");
#endif
        sl1 = getascan(sb, iy+1);
                                        /* 2D linear interpolation */
        copycolor(col, sl0[ix]);
        scalecolor(col, 1.-dx);
        copycolor(c1, sl0[ix+1]);
        scalecolor(c1, dx);
        addcolor(col, c1);
        copycolor(c1y, sl1[ix]);
        scalecolor(c1y, 1.-dx);
        copycolor(c1, sl1[ix+1]);
        scalecolor(c1, dx);
        addcolor(c1y, c1);
        scalecolor(col, 1.-dy);
        scalecolor(c1y, dy);
        addcolor(col, c1y);
        for (ix = 0; ix < 3; ix++)      /* make sure no negative */
                if (colval(col,ix) < 0.)
                        colval(col,ix) = 0.;
}


static SCANBAR  *
sballoc(                /* allocate scanbar */
        int     se,             /* sampling rate exponent */
        int     ns,             /* number of scanlines */
        int     sl              /* original scanline length */
)
{
        SCANBAR *sbarr;
        SCANBAR *sb;

        sbarr = sb = (SCANBAR *)malloc((se+1)*sizeof(SCANBAR));
        if (sb == NULL)
                syserror("malloc");
        do {
                sb->len = sl>>se;
                if (sb->len <= 0)
                        continue;
                sb->sampe = se;
                sb->nscans = ns;
                sb->sdata = (COLOR *)malloc(sb->len*ns*sizeof(COLOR));
                if (sb->sdata == NULL)
                        syserror("malloc");
                sb->nread = 0;
                ns <<= 1;
                sb++;
        } while (--se >= 0);
        return(sbarr);
}


void
initacuity(void)                        /* initialize variable acuity sampling */
{
        FVECT   diffx, diffy, cp;
        double  omega, maxsr;
        int     x, y, i;
        
        compraydir();                   /* compute ray directions */

        inpacuD = (float *)malloc(fvxr*fvyr*sizeof(float));
        if (inpacuD == NULL)
                syserror("malloc");
        maxsr = 1.;                     /* compute internal sample rates */
        for (y = 1; y < fvyr-1; y++)
                for (x = 1; x < fvxr-1; x++) {
                        for (i = 0; i < 3; i++) {
                                diffx[i] = 0.5*fvxr/scanlen(&inpres) *
                                                (rdirscan(y)[x+1][i] -
                                                rdirscan(y)[x-1][i]);
                                diffy[i] = 0.5*fvyr/numscans(&inpres) *
                                                (rdirscan(y+1)[x][i] -
                                                rdirscan(y-1)[x][i]);
                        }
                        fcross(cp, diffx, diffy);
                        omega = 0.5 * sqrt(DOT(cp,cp));
                        if (omega <= FTINY*FTINY)
                                tsampr(x,y) = 1.;
                        else if ((tsampr(x,y) = PI/180. / sqrt(omega) /
                                        hacuity(plum(fovscan(y)[x]))) > maxsr)
                                maxsr = tsampr(x,y);
                }
                                        /* copy perimeter (easier) */
        for (x = 1; x < fvxr-1; x++) {
                tsampr(x,0) = tsampr(x,1);
                tsampr(x,fvyr-1) = tsampr(x,fvyr-2);
        }
        for (y = 0; y < fvyr; y++) {
                tsampr(0,y) = tsampr(1,y);
                tsampr(fvxr-1,y) = tsampr(fvxr-2,y);
        }
                                        /* initialize with next power of two */
        rootbar = sballoc((int)(log(maxsr)/log(2.))+1, 2, scanlen(&inpres));
}
Revision:	3.21
Committed:	Wed Sep 11 18:56:12 2024 UTC (13 months, 3 weeks ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad6R0, HEAD
Changes since 3.20:	+2 -2 lines
Log Message:	feat(pcond,pvalue): Added hyperspectral input handling
#	User	Rev	Content
1	greg	3.1	#ifndef lint
2	greg	3.21	static const char RCSid[] = "$Id: pcond4.c,v 3.20 2015/08/21 05:48:28 greg Exp $";
3	greg	3.1	#endif
4			/*
5			* Routines for veiling glare and loss of acuity.
6			*/
7
8			#include "pcond.h"
9
10	greg	3.3	/************ VEILING STUFF ***************/
11	greg	3.1
12			#define VADAPT 0.08 /* fraction of adaptation from veil */
13
14	greg	3.11	static COLOR veilimg = NULL; / veiling image */
15	greg	3.1
16			#define veilscan(y) (veilimg+(y)*fvxr)
17
18	greg	3.2	static float (raydir)[3] = NULL; / ray direction for each pixel */
19	greg	3.1
20			#define rdirscan(y) (raydir+(y)*fvxr)
21
22	schorsch	3.17	static void compraydir(void);
23			#if ADJ_VEIL
24			static void smoothveil(void);
25			#endif
26	greg	3.1
27	schorsch	3.17
28			static void
29			compraydir(void) /* compute ray directions */
30	greg	3.1	{
31	greg	3.2	FVECT rorg, rdir;
32	greg	3.1	double h, v;
33	greg	3.20	int x, y;
34	greg	3.1
35			if (raydir != NULL) /* already done? */
36			return;
37	greg	3.2	raydir = (float ()[3])malloc(fvxrfvyr3sizeof(float));
38	greg	3.1	if (raydir == NULL)
39			syserror("malloc");
40
41			for (y = 0; y < fvyr; y++) {
42	greg	3.16	switch (inpres.rt) {
43	greg	3.1	case YMAJOR: case YMAJOR\|XDECR:
44			v = (y+.5)/fvyr; break;
45			case YMAJOR\|YDECR: case YMAJOR\|YDECR\|XDECR:
46			v = 1. - (y+.5)/fvyr; break;
47			case 0: case YDECR:
48			h = (y+.5)/fvyr; break;
49			case XDECR: case XDECR\|YDECR:
50			h = 1. - (y+.5)/fvyr; break;
51			}
52			for (x = 0; x < fvxr; x++) {
53	greg	3.16	switch (inpres.rt) {
54	greg	3.1	case YMAJOR: case YMAJOR\|YDECR:
55			h = (x+.5)/fvxr; break;
56			case YMAJOR\|XDECR: case YMAJOR\|XDECR\|YDECR:
57			h = 1. - (x+.5)/fvxr; break;
58			case 0: case XDECR:
59			v = (x+.5)/fvxr; break;
60			case YDECR: case YDECR\|XDECR:
61			v = 1. - (x+.5)/fvxr; break;
62			}
63	greg	3.2	if (viewray(rorg, rdir, &ourview, h, v)
64			>= -FTINY) {
65			rdirscan(y)[x][0] = rdir[0];
66			rdirscan(y)[x][1] = rdir[1];
67			rdirscan(y)[x][2] = rdir[2];
68			} else {
69	greg	3.1	rdirscan(y)[x][0] =
70			rdirscan(y)[x][1] =
71			rdirscan(y)[x][2] = 0.0;
72			}
73			}
74			}
75			}
76
77
78	greg	3.20	void
79	schorsch	3.17	compveil(void) /* compute veiling image */
80	greg	3.1	{
81			double t2, t2sum;
82			COLOR ctmp, vsum;
83			int px, py;
84	greg	3.20	int x, y;
85	greg	3.11
86			if (veilimg != NULL) /* already done? */
87			return;
88	greg	3.1	/* compute ray directions */
89			compraydir();
90			/* compute veil image */
91			veilimg = (COLOR )malloc(fvxrfvyr*sizeof(COLOR));
92			if (veilimg == NULL)
93			syserror("malloc");
94			for (py = 0; py < fvyr; py++)
95			for (px = 0; px < fvxr; px++) {
96			t2sum = 0.;
97			setcolor(vsum, 0., 0., 0.);
98			for (y = 0; y < fvyr; y++)
99			for (x = 0; x < fvxr; x++) {
100			if (x == px && y == py) continue;
101			t2 = DOT(rdirscan(py)[px],
102			rdirscan(y)[x]);
103			if (t2 <= FTINY) continue;
104	greg	3.4	/* use approximation instead
105	greg	3.12	t3 = acos(t2);
106			t2 = t2/(t3*t3);
107	greg	3.4	*/
108	greg	3.12	t2 *= .5 / (1. - t2);
109	greg	3.1	copycolor(ctmp, fovscan(y)[x]);
110			scalecolor(ctmp, t2);
111			addcolor(vsum, ctmp);
112			t2sum += t2;
113			}
114			/* VADAPT of original is subtracted in addveil() */
115	gregl	3.15	if (t2sum > FTINY)
116			scalecolor(vsum, VADAPT/t2sum);
117	greg	3.1	copycolor(veilscan(py)[px], vsum);
118			}
119	greg	3.11	/* modify FOV sample image */
120			for (y = 0; y < fvyr; y++)
121			for (x = 0; x < fvxr; x++) {
122			scalecolor(fovscan(y)[x], 1.-VADAPT);
123			addcolor(fovscan(y)[x], veilscan(y)[x]);
124			}
125			comphist(); /* recompute histogram */
126	greg	3.1	}
127
128
129	greg	3.16	#if ADJ_VEIL
130			/*
131			* The following veil adjustment was added to compensate for
132			* the fact that contrast reduction gets confused with veil
133			* in the human visual system. Therefore, we reduce the
134			* veil in portions of the image where our mapping has
135			* already reduced contrast below the target value.
136			* This gets called after the intial veil has been computed
137			* and added to the foveal image, and the mapping has been
138			* determined.
139			*/
140	greg	3.20	void
141	schorsch	3.17	adjveil(void) /* adjust veil image */
142	greg	3.16	{
143			float *crfptr = crfimg;
144			COLOR *fovptr = fovimg;
145			COLOR *veilptr = veilimg;
146			double s2nits = 1./inpexp;
147			double vl, vl2, fovl, vlsum;
148			double deltavc[3];
149			int i, j;
150
151			if (lumf == rgblum)
152			s2nits *= WHTEFFICACY;
153
154			for (i = fvxr*fvyr; i--; crfptr++, fovptr++, veilptr++) {
155			if (crfptr[0] >= 0.95)
156			continue;
157			vl = plum(veilptr[0]);
158			fovl = (plum(fovptr[0]) - vl) * (1./(1.-VADAPT));
159			if (vl <= 0.05*fovl)
160			continue;
161			vlsum = vl;
162			for (j = 2; j < 11; j++) {
163			vlsum += crfptr[0]vl - (1.0 - crfptr[0])fovl;
164			vl2 = vlsum / (double)j;
165			if (vl2 < 0.0)
166			vl2 = 0.0;
167			crfptr[0] = crfactor(fovl + vl2);
168			}
169			/* desaturation code causes color fringes at this level */
170			for (j = 3; j--; ) {
171			double vc = colval(veilptr[0],j);
172			double fovc = (colval(fovptr[0],j) - vc) *
173			(1./(1.-VADAPT));
174			deltavc[j] = (1.-crfptr[0])*(fovl/s2nits - fovc);
175			if (vc + deltavc[j] < 0.0)
176			break;
177			}
178			if (j < 0)
179			addcolor(veilptr[0], deltavc);
180			else
181			scalecolor(veilptr[0], vl2/vl);
182			}
183			smoothveil(); /* smooth our result */
184			}
185
186
187	schorsch	3.17	static void
188			smoothveil(void) /* smooth veil image */
189	greg	3.16	{
190			COLOR *nveilimg;
191			COLOR ovptr, nvptr;
192			int x, y, i;
193
194			nveilimg = (COLOR )malloc(fvxrfvyr*sizeof(COLOR));
195			if (nveilimg == NULL)
196			return;
197			for (y = 1; y < fvyr-1; y++) {
198			ovptr = veilimg + y*fvxr + 1;
199			nvptr = nveilimg + y*fvxr + 1;
200			for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
201			for (i = 3; i--; )
202			nvptr[0][i] = 0.5 * ovptr[0][i]
203			+ (1./12.) *
204			(ovptr[-1][i] + ovptr[-fvxr][i] +
205			ovptr[1][i] + ovptr[fvxr][i])
206			+ (1./24.) *
207			(ovptr[-fvxr-1][i] + ovptr[-fvxr+1][i] +
208			ovptr[fvxr-1][i] + ovptr[fvxr+1][i]);
209			}
210			ovptr = veilimg + 1;
211			nvptr = nveilimg + 1;
212			for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
213			for (i = 3; i--; )
214			nvptr[0][i] = 0.5 * ovptr[0][i]
215			+ (1./9.) *
216			(ovptr[-1][i] + ovptr[1][i] + ovptr[fvxr][i])
217			+ (1./12.) *
218			(ovptr[fvxr-1][i] + ovptr[fvxr+1][i]);
219			ovptr = veilimg + (fvyr-1)*fvxr + 1;
220			nvptr = nveilimg + (fvyr-1)*fvxr + 1;
221			for (x = 1; x < fvxr-1; x++, ovptr++, nvptr++)
222			for (i = 3; i--; )
223			nvptr[0][i] = 0.5 * ovptr[0][i]
224			+ (1./9.) *
225			(ovptr[-1][i] + ovptr[1][i] + ovptr[-fvxr][i])
226			+ (1./12.) *
227			(ovptr[-fvxr-1][i] + ovptr[-fvxr+1][i]);
228			ovptr = veilimg + fvxr;
229			nvptr = nveilimg + fvxr;
230			for (y = 1; y < fvyr-1; y++, ovptr += fvxr, nvptr += fvxr)
231			for (i = 3; i--; )
232			nvptr[0][i] = 0.5 * ovptr[0][i]
233			+ (1./9.) *
234			(ovptr[-fvxr][i] + ovptr[1][i] + ovptr[fvxr][i])
235			+ (1./12.) *
236			(ovptr[-fvxr+1][i] + ovptr[fvxr+1][i]);
237			ovptr = veilimg + fvxr - 1;
238			nvptr = nveilimg + fvxr - 1;
239			for (y = 1; y < fvyr-1; y++, ovptr += fvxr, nvptr += fvxr)
240			for (i = 3; i--; )
241			nvptr[0][i] = 0.5 * ovptr[0][i]
242			+ (1./9.) *
243			(ovptr[-fvxr][i] + ovptr[-1][i] + ovptr[fvxr][i])
244			+ (1./12.) *
245			(ovptr[-fvxr-1][i] + ovptr[fvxr-1][i]);
246			for (i = 3; i--; ) {
247			nveilimg[0][i] = veilimg[0][i];
248			nveilimg[fvxr-1][i] = veilimg[fvxr-1][i];
249			nveilimg[(fvyr-1)fvxr][i] = veilimg[(fvyr-1)fvxr][i];
250			nveilimg[fvyrfvxr-1][i] = veilimg[fvyrfvxr-1][i];
251			}
252			free((void *)veilimg);
253			veilimg = nveilimg;
254			}
255			#endif
256
257	greg	3.20	void
258	schorsch	3.17	addveil( /* add veil to scanline */
259			COLOR *sl,
260			int y
261			)
262	greg	3.1	{
263			int vx, vy;
264			double dx, dy;
265			double lv, uv;
266	greg	3.20	int x, i;
267	greg	3.1
268			vy = dy = (y+.5)/numscans(&inpres)*fvyr - .5;
269	greg	3.7	while (vy >= fvyr-1) vy--;
270	greg	3.1	dy -= (double)vy;
271			for (x = 0; x < scanlen(&inpres); x++) {
272			vx = dx = (x+.5)/scanlen(&inpres)*fvxr - .5;
273	greg	3.7	while (vx >= fvxr-1) vx--;
274	greg	3.1	dx -= (double)vx;
275			for (i = 0; i < 3; i++) {
276			lv = (1.-dy)*colval(veilscan(vy)[vx],i) +
277			dy*colval(veilscan(vy+1)[vx],i);
278			uv = (1.-dy)*colval(veilscan(vy)[vx+1],i) +
279			dy*colval(veilscan(vy+1)[vx+1],i);
280			colval(sl[x],i) = (1.-VADAPT)*colval(sl[x],i) +
281			(1.-dx)lv + dxuv;
282			}
283			}
284	greg	3.3	}
285
286
287			/**************** ACUITY STUFF *****************/
288
289	greg	3.8	typedef struct {
290			short sampe; /* sample area size (exponent of 2) */
291	greg	3.3	short nscans; /* number of scanlines in this bar */
292			int len; /* individual scanline length */
293			int nread; /* number of scanlines loaded */
294	greg	3.8	COLOR sdata; / scanbar data */
295	greg	3.3	} SCANBAR;
296
297	greg	3.8	#define bscan(sb,y) ((COLOR )(sb)->sdata+((y)%(sb)->nscans)(sb)->len)
298	greg	3.3
299			SCANBAR rootbar; / root scan bar (lowest resolution) */
300
301	greg	3.18	float inpacuD = NULL; / input acuity data (cycles/degree) */
302	greg	3.3
303			#define tsampr(x,y) inpacuD[(y)*fvxr+(x)]
304
305	schorsch	3.17	static COLOR * getascan(SCANBAR *sb, int y);
306			static void acusample(COLOR col, int x, int y, double sr);
307			static void ascanval(COLOR col, int x, int y, SCANBAR *sb);
308			static SCANBAR *sballoc(int se, int ns, int sl);
309
310	greg	3.20	double
311	schorsch	3.17	hacuity( /* return visual acuity in cycles/degree */
312			double La
313			)
314	greg	3.13	{
315			/* functional fit */
316			return(17.25atan(1.4log10(La) + 0.35) + 25.72);
317	greg	3.3	}
318
319
320	schorsch	3.17	static COLOR *
321			getascan( /* find/read scanline y for scanbar sb */
322	greg	3.20	SCANBAR *sb,
323	schorsch	3.17	int y
324			)
325	greg	3.3	{
326	greg	3.20	COLOR sl0, sl1, *mysl;
327			int i;
328	greg	3.3
329	greg	3.6	if (y < sb->nread - sb->nscans) /* too far back? */
330			return(NULL);
331	greg	3.3	for ( ; y >= sb->nread; sb->nread++) { /* read as necessary */
332			mysl = bscan(sb, sb->nread);
333	greg	3.8	if (sb->sampe == 0) {
334	greg	3.21	if (fread2scan(mysl, sb->len, infp, NCSAMP, WLPART) < 0) {
335	greg	3.3	fprintf(stderr, "%s: %s: scanline read error\n",
336			progname, infn);
337			exit(1);
338			}
339			} else {
340	greg	3.8	sl0 = getascan(sb+1, 2*y);
341	greg	3.6	if (sl0 == NULL)
342			return(NULL);
343	greg	3.8	sl1 = getascan(sb+1, 2*y+1);
344	greg	3.3	for (i = 0; i < sb->len; i++) {
345			copycolor(mysl[i], sl0[2*i]);
346			addcolor(mysl[i], sl0[2*i+1]);
347			addcolor(mysl[i], sl1[2*i]);
348			addcolor(mysl[i], sl1[2*i+1]);
349			scalecolor(mysl[i], 0.25);
350			}
351			}
352			}
353			return(bscan(sb, y));
354			}
355
356
357	greg	3.20	void
358	schorsch	3.17	acuscan( /* get acuity-sampled scanline */
359			COLOR *scln,
360			int y
361			)
362	greg	3.3	{
363			double sr;
364			double dx, dy;
365			int ix, iy;
366	greg	3.20	int x;
367	greg	3.18
368			if (inpacuD == NULL)
369			return;
370	greg	3.3	/* compute foveal y position */
371			iy = dy = (y+.5)/numscans(&inpres)*fvyr - .5;
372	greg	3.9	while (iy >= fvyr-1) iy--;
373	greg	3.3	dy -= (double)iy;
374			for (x = 0; x < scanlen(&inpres); x++) {
375			/* compute foveal x position */
376			ix = dx = (x+.5)/scanlen(&inpres)*fvxr - .5;
377	greg	3.9	while (ix >= fvxr-1) ix--;
378	greg	3.3	dx -= (double)ix;
379			/* interpolate sample rate */
380			sr = (1.-dy)((1.-dx)tsampr(ix,iy) + dx*tsampr(ix+1,iy)) +
381			dy((1.-dx)tsampr(ix,iy+1) + dx*tsampr(ix+1,iy+1));
382
383			acusample(scln[x], x, y, sr); /* compute sample */
384			}
385			}
386
387
388	schorsch	3.17	static void
389			acusample( /* interpolate sample at (x,y) using rate sr */
390			COLOR col,
391			int x,
392			int y,
393			double sr
394			)
395	greg	3.3	{
396			COLOR c1;
397			double d;
398	greg	3.20	SCANBAR *sb0;
399	greg	3.3
400	greg	3.8	for (sb0 = rootbar; sb0->sampe != 0 && 1<<sb0[1].sampe > sr; sb0++)
401	greg	3.3	;
402			ascanval(col, x, y, sb0);
403	greg	3.8	if (sb0->sampe == 0) /* don't extrapolate highest */
404	greg	3.3	return;
405	greg	3.8	ascanval(c1, x, y, sb0+1);
406			d = ((1<<sb0->sampe) - sr)/(1<<sb0[1].sampe);
407	greg	3.3	scalecolor(col, 1.-d);
408			scalecolor(c1, d);
409			addcolor(col, c1);
410			}
411
412
413	schorsch	3.17	static void
414			ascanval( /* interpolate scanbar at orig. coords (x,y) */
415			COLOR col,
416			int x,
417			int y,
418			SCANBAR *sb
419			)
420	greg	3.3	{
421			COLOR sl0, sl1, c1, c1y;
422			double dx, dy;
423			int ix, iy;
424
425	greg	3.8	if (sb->sampe == 0) { /* no need to interpolate */
426	greg	3.6	sl0 = getascan(sb, y);
427			copycolor(col, sl0[x]);
428			return;
429			}
430			/* compute coordinates for sb */
431	greg	3.8	ix = dx = (x+.5)/(1<<sb->sampe) - .5;
432	greg	3.7	while (ix >= sb->len-1) ix--;
433	greg	3.3	dx -= (double)ix;
434	greg	3.8	iy = dy = (y+.5)/(1<<sb->sampe) - .5;
435			while (iy >= (numscans(&inpres)>>sb->sampe)-1) iy--;
436	greg	3.3	dy -= (double)iy;
437			/* get scanlines */
438			sl0 = getascan(sb, iy);
439	greg	3.9	#ifdef DEBUG
440	greg	3.14	if (sl0 == NULL)
441			error(INTERNAL, "cannot backspace in ascanval");
442	greg	3.9	#endif
443	greg	3.3	sl1 = getascan(sb, iy+1);
444			/* 2D linear interpolation */
445			copycolor(col, sl0[ix]);
446			scalecolor(col, 1.-dx);
447			copycolor(c1, sl0[ix+1]);
448			scalecolor(c1, dx);
449			addcolor(col, c1);
450			copycolor(c1y, sl1[ix]);
451			scalecolor(c1y, 1.-dx);
452			copycolor(c1, sl1[ix+1]);
453			scalecolor(c1, dx);
454			addcolor(c1y, c1);
455			scalecolor(col, 1.-dy);
456			scalecolor(c1y, dy);
457			addcolor(col, c1y);
458	greg	3.9	for (ix = 0; ix < 3; ix++) /* make sure no negative */
459			if (colval(col,ix) < 0.)
460			colval(col,ix) = 0.;
461	greg	3.3	}
462
463
464	schorsch	3.17	static SCANBAR *
465			sballoc( /* allocate scanbar */
466			int se, /* sampling rate exponent */
467			int ns, /* number of scanlines */
468			int sl /* original scanline length */
469			)
470	greg	3.3	{
471	greg	3.8	SCANBAR *sbarr;
472	greg	3.20	SCANBAR *sb;
473	greg	3.3
474	greg	3.9	sbarr = sb = (SCANBAR )malloc((se+1)sizeof(SCANBAR));
475	greg	3.3	if (sb == NULL)
476			syserror("malloc");
477	greg	3.8	do {
478	greg	3.16	sb->len = sl>>se;
479			if (sb->len <= 0)
480			continue;
481	greg	3.9	sb->sampe = se;
482			sb->nscans = ns;
483			sb->sdata = (COLOR )malloc(sb->lenns*sizeof(COLOR));
484	greg	3.8	if (sb->sdata == NULL)
485			syserror("malloc");
486			sb->nread = 0;
487			ns <<= 1;
488			sb++;
489	greg	3.9	} while (--se >= 0);
490	greg	3.8	return(sbarr);
491	greg	3.3	}
492
493
494	greg	3.20	void
495	schorsch	3.17	initacuity(void) /* initialize variable acuity sampling */
496	greg	3.3	{
497			FVECT diffx, diffy, cp;
498			double omega, maxsr;
499	greg	3.20	int x, y, i;
500	greg	3.18
501	greg	3.3	compraydir(); /* compute ray directions */
502
503			inpacuD = (float )malloc(fvxrfvyr*sizeof(float));
504			if (inpacuD == NULL)
505			syserror("malloc");
506			maxsr = 1.; /* compute internal sample rates */
507			for (y = 1; y < fvyr-1; y++)
508			for (x = 1; x < fvxr-1; x++) {
509			for (i = 0; i < 3; i++) {
510			diffx[i] = 0.5fvxr/scanlen(&inpres)
511			(rdirscan(y)[x+1][i] -
512			rdirscan(y)[x-1][i]);
513			diffy[i] = 0.5fvyr/numscans(&inpres)
514			(rdirscan(y+1)[x][i] -
515			rdirscan(y-1)[x][i]);
516			}
517			fcross(cp, diffx, diffy);
518			omega = 0.5 * sqrt(DOT(cp,cp));
519	greg	3.10	if (omega <= FTINY*FTINY)
520	greg	3.4	tsampr(x,y) = 1.;
521			else if ((tsampr(x,y) = PI/180. / sqrt(omega) /
522			hacuity(plum(fovscan(y)[x]))) > maxsr)
523	greg	3.3	maxsr = tsampr(x,y);
524			}
525			/* copy perimeter (easier) */
526			for (x = 1; x < fvxr-1; x++) {
527			tsampr(x,0) = tsampr(x,1);
528			tsampr(x,fvyr-1) = tsampr(x,fvyr-2);
529			}
530			for (y = 0; y < fvyr; y++) {
531	greg	3.9	tsampr(0,y) = tsampr(1,y);
532			tsampr(fvxr-1,y) = tsampr(fvxr-2,y);
533	greg	3.3	}
534			/* initialize with next power of two */
535	greg	3.8	rootbar = sballoc((int)(log(maxsr)/log(2.))+1, 2, scanlen(&inpres));
536	greg	3.1	}