src/rt/m_bsdf.c

#ifndef lint
static const char RCSid[] = "$Id: m_bsdf.c,v 2.32 2017/02/18 19:12:49 greg Exp $";
#endif
/*
 *  Shading for materials with BSDFs taken from XML data files
 */

#include "copyright.h"

#include  "ray.h"
#include  "ambient.h"
#include  "source.h"
#include  "func.h"
#include  "bsdf.h"
#include  "random.h"
#include  "pmapmat.h"

/*
 *      Arguments to this material include optional diffuse colors.
 *  String arguments include the BSDF and function files.
 *      A non-zero thickness causes the strange but useful behavior
 *  of translating transmitted rays this distance beneath the surface
 *  (opposite the surface normal) to bypass any intervening geometry.
 *  Translation only affects scattered, non-source-directed samples.
 *  A non-zero thickness has the further side-effect that an unscattered
 *  (view) ray will pass right through our material if it has any
 *  non-diffuse transmission, making the BSDF surface invisible.  This
 *  shows the proxied geometry instead. Thickness has the further
 *  effect of turning off reflection on the hidden side so that rays
 *  heading in the opposite direction pass unimpeded through the BSDF
 *  surface.  A paired surface may be placed on the opposide side of
 *  the detail geometry, less than this thickness away, if a two-way
 *  proxy is desired.  Note that the sign of the thickness is important.
 *  A positive thickness hides geometry behind the BSDF surface and uses
 *  front reflectance and transmission properties.  A negative thickness
 *  hides geometry in front of the surface when rays hit from behind,
 *  and applies only the transmission and backside reflectance properties.
 *  Reflection is ignored on the hidden side, as those rays pass through.
 *      The "up" vector for the BSDF is given by three variables, defined
 *  (along with the thickness) by the named function file, or '.' if none.
 *  Together with the surface normal, this defines the local coordinate
 *  system for the BSDF.
 *      We do not reorient the surface, so if the BSDF has no back-side
 *  reflectance and none is given in the real arguments, a BSDF surface
 *  with zero thickness will appear black when viewed from behind
 *  unless backface visibility is off.
 *      The diffuse arguments are added to components in the BSDF file,
 *  not multiplied.  However, patterns affect this material as a multiplier
 *  on everything except non-diffuse reflection.
 *
 *  Arguments for MAT_BSDF are:
 *      6+      thick   BSDFfile        ux uy uz        funcfile        transform
 *      0
 *      0|3|6|9 rdf     gdf     bdf
 *              rdb     gdb     bdb
 *              rdt     gdt     bdt
 */

/*
 * Note that our reverse ray-tracing process means that the positions
 * of incoming and outgoing vectors may be reversed in our calls
 * to the BSDF library.  This is fine, since the bidirectional nature
 * of the BSDF (that's what the 'B' stands for) means it all works out.
 */

typedef struct {
        OBJREC  *mp;            /* material pointer */
        RAY     *pr;            /* intersected ray */
        FVECT   pnorm;          /* perturbed surface normal */
        FVECT   vray;           /* local outgoing (return) vector */
        double  sr_vpsa[2];     /* sqrt of BSDF projected solid angle extrema */
        RREAL   toloc[3][3];    /* world to local BSDF coords */
        RREAL   fromloc[3][3];  /* local BSDF coords to world */
        double  thick;          /* surface thickness */
        SDData  *sd;            /* loaded BSDF data */
        COLOR   rdiff;          /* diffuse reflection */
        COLOR   tdiff;          /* diffuse transmission */
}  BSDFDAT;             /* BSDF material data */

#define cvt_sdcolor(cv, svp)    ccy2rgb(&(svp)->spec, (svp)->cieY, cv)

/* Jitter ray sample according to projected solid angle and specjitter */
static void
bsdf_jitter(FVECT vres, BSDFDAT *ndp, double sr_psa)
{
        VCOPY(vres, ndp->vray);
        if (specjitter < 1.)
                sr_psa *= specjitter;
        if (sr_psa <= FTINY)
                return;
        vres[0] += sr_psa*(.5 - frandom());
        vres[1] += sr_psa*(.5 - frandom());
        normalize(vres);
}

/* Get BSDF specular for direct component, returning true if OK to proceed */
static int
direct_specular_OK(COLOR cval, FVECT ldir, double omega, BSDFDAT *ndp)
{
        int     nsamp, ok = 0;
        FVECT   vsrc, vsmp, vjit;
        double  tomega;
        double  sf, tsr, sd[2];
        COLOR   csmp, cdiff;
        double  diffY;
        SDValue sv;
        SDError ec;
        int     i;
                                        /* transform source direction */
        if (SDmapDir(vsrc, ndp->toloc, ldir) != SDEnone)
                return(0);
                                        /* will discount diffuse portion */
        switch ((vsrc[2] > 0)<<1 | (ndp->vray[2] > 0)) {
        case 3:
                if (ndp->sd->rf == NULL)
                        return(0);      /* all diffuse */
                sv = ndp->sd->rLambFront;
                break;
        case 0:
                if (ndp->sd->rb == NULL)
                        return(0);      /* all diffuse */
                sv = ndp->sd->rLambBack;
                break;
        default:
                if ((ndp->sd->tf == NULL) & (ndp->sd->tb == NULL))
                        return(0);      /* all diffuse */
                sv = ndp->sd->tLamb;
                break;
        }
        if (sv.cieY > FTINY) {
                diffY = sv.cieY *= 1./PI;
                cvt_sdcolor(cdiff, &sv);
        } else {
                diffY = .0;
                setcolor(cdiff, .0, .0, .0);
        }
                                        /* assign number of samples */
        ec = SDsizeBSDF(&tomega, ndp->vray, vsrc, SDqueryMin, ndp->sd);
        if (ec)
                goto baderror;
                                        /* check indirect over-counting */
        if (ndp->thick != 0 && ndp->pr->crtype & (SPECULAR|AMBIENT)
                                && (vsrc[2] > 0) ^ (ndp->vray[2] > 0)) {
                double  dx = vsrc[0] + ndp->vray[0];
                double  dy = vsrc[1] + ndp->vray[1];
                if (dx*dx + dy*dy <= omega+tomega)
                        return(0);
        }
        sf = specjitter * ndp->pr->rweight;
        if (tomega <= .0)
                nsamp = 1;
        else if (25.*tomega <= omega)
                nsamp = 100.*sf + .5;
        else
                nsamp = 4.*sf*omega/tomega + .5;
        nsamp += !nsamp;
        setcolor(cval, .0, .0, .0);     /* sample our source area */
        sf = sqrt(omega);
        tsr = sqrt(tomega);
        for (i = nsamp; i--; ) {
                VCOPY(vsmp, vsrc);      /* jitter query directions */
                if (nsamp > 1) {
                        multisamp(sd, 2, (i + frandom())/(double)nsamp);
                        vsmp[0] += (sd[0] - .5)*sf;
                        vsmp[1] += (sd[1] - .5)*sf;
                        if (normalize(vsmp) == 0) {
                                --nsamp;
                                continue;
                        }
                }
                bsdf_jitter(vjit, ndp, tsr);
                                        /* compute BSDF */
                ec = SDevalBSDF(&sv, vjit, vsmp, ndp->sd);
                if (ec)
                        goto baderror;
                if (sv.cieY - diffY <= FTINY) {
                        addcolor(cval, cdiff);
                        continue;       /* no specular part */
                }
                cvt_sdcolor(csmp, &sv);
                addcolor(cval, csmp);   /* else average it in */
                ++ok;
        }
        if (!ok) {
                setcolor(cval, .0, .0, .0);
                return(0);              /* no valid specular samples */
        }
        sf = 1./(double)nsamp;
        scalecolor(cval, sf);
                                        /* subtract diffuse contribution */
        for (i = 3*(diffY > FTINY); i--; )
                if ((colval(cval,i) -= colval(cdiff,i)) < .0)
                        colval(cval,i) = .0;
        return(1);
baderror:
        objerror(ndp->mp, USER, transSDError(ec));
        return(0);                      /* gratis return */
}

/* Compute source contribution for BSDF (reflected & transmitted) */
static void
dir_bsdf(
        COLOR  cval,                    /* returned coefficient */
        void  *nnp,                     /* material data */
        FVECT  ldir,                    /* light source direction */
        double  omega                   /* light source size */
)
{
        BSDFDAT         *np = (BSDFDAT *)nnp;
        double          ldot;
        double          dtmp;
        COLOR           ctmp;

        setcolor(cval, .0, .0, .0);

        ldot = DOT(np->pnorm, ldir);
        if ((-FTINY <= ldot) & (ldot <= FTINY))
                return;

        if (ldot > 0 && bright(np->rdiff) > FTINY) {
                /*
                 *  Compute added diffuse reflected component.
                 */
                copycolor(ctmp, np->rdiff);
                dtmp = ldot * omega * (1./PI);
                scalecolor(ctmp, dtmp);
                addcolor(cval, ctmp);
        }
        if (ldot < 0 && bright(np->tdiff) > FTINY) {
                /*
                 *  Compute added diffuse transmission.
                 */
                copycolor(ctmp, np->tdiff);
                dtmp = -ldot * omega * (1.0/PI);
                scalecolor(ctmp, dtmp);
                addcolor(cval, ctmp);
        }
        if (ambRayInPmap(np->pr))
                return;         /* specular already in photon map */
        /*
         *  Compute specular scattering coefficient using BSDF.
         */
        if (!direct_specular_OK(ctmp, ldir, omega, np))
                return;
        if (ldot < 0) {         /* pattern for specular transmission */
                multcolor(ctmp, np->pr->pcol);
                dtmp = -ldot * omega;
        } else
                dtmp = ldot * omega;
        scalecolor(ctmp, dtmp);
        addcolor(cval, ctmp);
}

/* Compute source contribution for BSDF (reflected only) */
static void
dir_brdf(
        COLOR  cval,                    /* returned coefficient */
        void  *nnp,                     /* material data */
        FVECT  ldir,                    /* light source direction */
        double  omega                   /* light source size */
)
{
        BSDFDAT         *np = (BSDFDAT *)nnp;
        double          ldot;
        double          dtmp;
        COLOR           ctmp, ctmp1, ctmp2;

        setcolor(cval, .0, .0, .0);

        ldot = DOT(np->pnorm, ldir);
        
        if (ldot <= FTINY)
                return;

        if (bright(np->rdiff) > FTINY) {
                /*
                 *  Compute added diffuse reflected component.
                 */
                copycolor(ctmp, np->rdiff);
                dtmp = ldot * omega * (1./PI);
                scalecolor(ctmp, dtmp);
                addcolor(cval, ctmp);
        }
        if (ambRayInPmap(np->pr))
                return;         /* specular already in photon map */
        /*
         *  Compute specular reflection coefficient using BSDF.
         */
        if (!direct_specular_OK(ctmp, ldir, omega, np))
                return;
        dtmp = ldot * omega;
        scalecolor(ctmp, dtmp);
        addcolor(cval, ctmp);
}

/* Compute source contribution for BSDF (transmitted only) */
static void
dir_btdf(
        COLOR  cval,                    /* returned coefficient */
        void  *nnp,                     /* material data */
        FVECT  ldir,                    /* light source direction */
        double  omega                   /* light source size */
)
{
        BSDFDAT         *np = (BSDFDAT *)nnp;
        double          ldot;
        double          dtmp;
        COLOR           ctmp;

        setcolor(cval, .0, .0, .0);

        ldot = DOT(np->pnorm, ldir);

        if (ldot >= -FTINY)
                return;

        if (bright(np->tdiff) > FTINY) {
                /*
                 *  Compute added diffuse transmission.
                 */
                copycolor(ctmp, np->tdiff);
                dtmp = -ldot * omega * (1.0/PI);
                scalecolor(ctmp, dtmp);
                addcolor(cval, ctmp);
        }
        if (ambRayInPmap(np->pr))
                return;         /* specular already in photon map */
        /*
         *  Compute specular scattering coefficient using BSDF.
         */
        if (!direct_specular_OK(ctmp, ldir, omega, np))
                return;
                                        /* full pattern on transmission */
        multcolor(ctmp, np->pr->pcol);
        dtmp = -ldot * omega;
        scalecolor(ctmp, dtmp);
        addcolor(cval, ctmp);
}

/* Sample separate BSDF component */
static int
sample_sdcomp(BSDFDAT *ndp, SDComponent *dcp, int usepat)
{
        int     nstarget = 1;
        int     nsent;
        SDError ec;
        SDValue bsv;
        double  xrand;
        FVECT   vsmp;
        RAY     sr;
                                                /* multiple samples? */
        if (specjitter > 1.5) {
                nstarget = specjitter*ndp->pr->rweight + .5;
                nstarget += !nstarget;
        }
                                                /* run through our samples */
        for (nsent = 0; nsent < nstarget; nsent++) {
                if (nstarget == 1) {            /* stratify random variable */
                        xrand = urand(ilhash(dimlist,ndims)+samplendx);
                        if (specjitter < 1.)
                                xrand = .5 + specjitter*(xrand-.5);
                } else {
                        xrand = (nsent + frandom())/(double)nstarget;
                }
                SDerrorDetail[0] = '\0';        /* sample direction & coef. */
                bsdf_jitter(vsmp, ndp, ndp->sr_vpsa[0]);
                ec = SDsampComponent(&bsv, vsmp, xrand, dcp);
                if (ec)
                        objerror(ndp->mp, USER, transSDError(ec));
                if (bsv.cieY <= FTINY)          /* zero component? */
                        break;
                                                /* map vector to world */
                if (SDmapDir(sr.rdir, ndp->fromloc, vsmp) != SDEnone)
                        break;
                                                /* spawn a specular ray */
                if (nstarget > 1)
                        bsv.cieY /= (double)nstarget;
                cvt_sdcolor(sr.rcoef, &bsv);    /* use sample color */
                if (usepat)                     /* apply pattern? */
                        multcolor(sr.rcoef, ndp->pr->pcol);
                if (rayorigin(&sr, SPECULAR, ndp->pr, sr.rcoef) < 0) {
                        if (maxdepth > 0)
                                break;
                        continue;               /* Russian roulette victim */
                }
                                                /* need to offset origin? */
                if (ndp->thick != 0 && (ndp->pr->rod > 0) ^ (vsmp[2] > 0))
                        VSUM(sr.rorg, sr.rorg, ndp->pr->ron, -ndp->thick);
                rayvalue(&sr);                  /* send & evaluate sample */
                multcolor(sr.rcol, sr.rcoef);
                addcolor(ndp->pr->rcol, sr.rcol);
        }
        return(nsent);
}

/* Sample non-diffuse components of BSDF */
static int
sample_sdf(BSDFDAT *ndp, int sflags)
{
        int             n, ntotal = 0;
        SDSpectralDF    *dfp;
        COLORV          *unsc;

        if (sflags == SDsampSpT) {
                unsc = ndp->tdiff;
                if (ndp->pr->rod > 0)
                        dfp = (ndp->sd->tf != NULL) ? ndp->sd->tf : ndp->sd->tb;
                else
                        dfp = (ndp->sd->tb != NULL) ? ndp->sd->tb : ndp->sd->tf;
        } else /* sflags == SDsampSpR */ {
                unsc = ndp->rdiff;
                if (ndp->pr->rod > 0)
                        dfp = ndp->sd->rf;
                else
                        dfp = ndp->sd->rb;
        }
        if (dfp == NULL)                        /* no specular component? */
                return(0);
                                                /* below sampling threshold? */
        if (dfp->maxHemi <= specthresh+FTINY) {
                if (dfp->maxHemi > FTINY) {     /* XXX no color from BSDF */
                        FVECT   vjit;
                        double  d;
                        COLOR   ctmp;
                        bsdf_jitter(vjit, ndp, ndp->sr_vpsa[1]);
                        d = SDdirectHemi(vjit, sflags, ndp->sd);
                        if (sflags == SDsampSpT) {
                                copycolor(ctmp, ndp->pr->pcol);
                                scalecolor(ctmp, d);
                        } else                  /* no pattern on reflection */
                                setcolor(ctmp, d, d, d);
                        addcolor(unsc, ctmp);
                }
                return(0);
        }
                                                /* else need to sample */
        dimlist[ndims++] = (int)(size_t)ndp->mp;
        ndims++;
        for (n = dfp->ncomp; n--; ) {           /* loop over components */
                dimlist[ndims-1] = n + 9438;
                ntotal += sample_sdcomp(ndp, &dfp->comp[n], sflags==SDsampSpT);
        }
        ndims -= 2;
        return(ntotal);
}

/* Color a ray that hit a BSDF material */
int
m_bsdf(OBJREC *m, RAY *r)
{
        int     hitfront;
        COLOR   ctmp;
        SDError ec;
        FVECT   upvec, vtmp;
        MFUNC   *mf;
        BSDFDAT nd;
                                                /* check arguments */
        if ((m->oargs.nsargs < 6) | (m->oargs.nfargs > 9) |
                                (m->oargs.nfargs % 3))
                objerror(m, USER, "bad # arguments");
                                                /* record surface struck */
        hitfront = (r->rod > 0);
                                                /* load cal file */
        mf = getfunc(m, 5, 0x1d, 1);
        setfunc(m, r);
                                                /* get thickness */
        nd.thick = evalue(mf->ep[0]);
        if ((-FTINY <= nd.thick) & (nd.thick <= FTINY))
                nd.thick = .0;
                                                /* check shadow */
        if (r->crtype & SHADOW) {
                if (nd.thick != 0)
                        raytrans(r);            /* pass-through */
                return(1);                      /* or shadow */
        }
                                                /* check backface visibility */
        if (!hitfront & !backvis) {
                raytrans(r);
                return(1);
        }
                                                /* check other rays to pass */
        if (nd.thick != 0 && (!(r->crtype & (SPECULAR|AMBIENT)) ||
                                (nd.thick > 0) ^ hitfront)) {
                raytrans(r);                    /* hide our proxy */
                return(1);
        }
        nd.mp = m;
        nd.pr = r;
                                                /* get BSDF data */
        nd.sd = loadBSDF(m->oargs.sarg[1]);
                                                /* diffuse reflectance */
        if (hitfront) {
                cvt_sdcolor(nd.rdiff, &nd.sd->rLambFront);
                if (m->oargs.nfargs >= 3) {
                        setcolor(ctmp, m->oargs.farg[0],
                                        m->oargs.farg[1],
                                        m->oargs.farg[2]);
                        addcolor(nd.rdiff, ctmp);
                }
        } else {
                cvt_sdcolor(nd.rdiff, &nd.sd->rLambBack);
                if (m->oargs.nfargs >= 6) {
                        setcolor(ctmp, m->oargs.farg[3],
                                        m->oargs.farg[4],
                                        m->oargs.farg[5]);
                        addcolor(nd.rdiff, ctmp);
                }
        }
                                                /* diffuse transmittance */
        cvt_sdcolor(nd.tdiff, &nd.sd->tLamb);
        if (m->oargs.nfargs >= 9) {
                setcolor(ctmp, m->oargs.farg[6],
                                m->oargs.farg[7],
                                m->oargs.farg[8]);
                addcolor(nd.tdiff, ctmp);
        }
                                                /* get modifiers */
        raytexture(r, m->omod);
                                                /* modify diffuse values */
        multcolor(nd.rdiff, r->pcol);
        multcolor(nd.tdiff, r->pcol);
                                                /* get up vector */
        upvec[0] = evalue(mf->ep[1]);
        upvec[1] = evalue(mf->ep[2]);
        upvec[2] = evalue(mf->ep[3]);
                                                /* return to world coords */
        if (mf->fxp != &unitxf) {
                multv3(upvec, upvec, mf->fxp->xfm);
                nd.thick *= mf->fxp->sca;
        }
        if (r->rox != NULL) {
                multv3(upvec, upvec, r->rox->f.xfm);
                nd.thick *= r->rox->f.sca;
        }
        raynormal(nd.pnorm, r);
                                                /* compute local BSDF xform */
        ec = SDcompXform(nd.toloc, nd.pnorm, upvec);
        if (!ec) {
                nd.vray[0] = -r->rdir[0];
                nd.vray[1] = -r->rdir[1];
                nd.vray[2] = -r->rdir[2];
                ec = SDmapDir(nd.vray, nd.toloc, nd.vray);
        }
        if (!ec)
                ec = SDinvXform(nd.fromloc, nd.toloc);
        if (ec) {
                objerror(m, WARNING, "Illegal orientation vector");
                return(1);
        }
                                                /* determine BSDF resolution */
        ec = SDsizeBSDF(nd.sr_vpsa, nd.vray, NULL, SDqueryMin+SDqueryMax, nd.sd);
        if (ec)
                objerror(m, USER, transSDError(ec));

        nd.sr_vpsa[0] = sqrt(nd.sr_vpsa[0]);
        nd.sr_vpsa[1] = sqrt(nd.sr_vpsa[1]);
        if (!hitfront) {                        /* perturb normal towards hit */
                nd.pnorm[0] = -nd.pnorm[0];
                nd.pnorm[1] = -nd.pnorm[1];
                nd.pnorm[2] = -nd.pnorm[2];
        }
                                                /* sample reflection */
        sample_sdf(&nd, SDsampSpR);
                                                /* sample transmission */
        sample_sdf(&nd, SDsampSpT);
                                                /* compute indirect diffuse */
        if (bright(nd.rdiff) > FTINY) {         /* ambient from reflection */
                if (!hitfront)
                        flipsurface(r);
                copycolor(ctmp, nd.rdiff);
                multambient(ctmp, r, nd.pnorm);
                addcolor(r->rcol, ctmp);
                if (!hitfront)
                        flipsurface(r);
        }
        if (bright(nd.tdiff) > FTINY) {         /* ambient from other side */
                FVECT  bnorm;
                if (hitfront)
                        flipsurface(r);
                bnorm[0] = -nd.pnorm[0];
                bnorm[1] = -nd.pnorm[1];
                bnorm[2] = -nd.pnorm[2];
                copycolor(ctmp, nd.tdiff);
                if (nd.thick != 0) {            /* proxy with offset? */
                        VCOPY(vtmp, r->rop);
                        VSUM(r->rop, vtmp, r->ron, nd.thick);
                        multambient(ctmp, r, bnorm);
                        VCOPY(r->rop, vtmp);
                } else
                        multambient(ctmp, r, bnorm);
                addcolor(r->rcol, ctmp);
                if (hitfront)
                        flipsurface(r);
        }
                                                /* add direct component */
        if ((bright(nd.tdiff) <= FTINY) & (nd.sd->tf == NULL) &
                                        (nd.sd->tb == NULL)) {
                direct(r, dir_brdf, &nd);       /* reflection only */
        } else if (nd.thick == 0) {
                direct(r, dir_bsdf, &nd);       /* thin surface scattering */
        } else {
                direct(r, dir_brdf, &nd);       /* reflection first */
                VCOPY(vtmp, r->rop);            /* offset for transmitted */
                VSUM(r->rop, vtmp, r->ron, -nd.thick);
                direct(r, dir_btdf, &nd);       /* separate transmission */
                VCOPY(r->rop, vtmp);
        }
                                                /* clean up */
        SDfreeCache(nd.sd);
        return(1);
}
Revision:	2.33
Committed:	Sun Feb 19 17:22:18 2017 UTC (8 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.32:	+11 -11 lines
Log Message:	Renamed direct sampling routine for clarity
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.33	static const char RCSid[] = "$Id: m_bsdf.c,v 2.32 2017/02/18 19:12:49 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Shading for materials with BSDFs taken from XML data files
6			*/
7
8			#include "copyright.h"
9
10			#include "ray.h"
11			#include "ambient.h"
12			#include "source.h"
13			#include "func.h"
14			#include "bsdf.h"
15			#include "random.h"
16	greg	2.30	#include "pmapmat.h"
17	greg	2.1
18			/*
19			* Arguments to this material include optional diffuse colors.
20			* String arguments include the BSDF and function files.
21	greg	2.5	* A non-zero thickness causes the strange but useful behavior
22			* of translating transmitted rays this distance beneath the surface
23			* (opposite the surface normal) to bypass any intervening geometry.
24			* Translation only affects scattered, non-source-directed samples.
25			* A non-zero thickness has the further side-effect that an unscattered
26	greg	2.1	* (view) ray will pass right through our material if it has any
27	greg	2.5	* non-diffuse transmission, making the BSDF surface invisible. This
28			* shows the proxied geometry instead. Thickness has the further
29			* effect of turning off reflection on the hidden side so that rays
30			* heading in the opposite direction pass unimpeded through the BSDF
31			* surface. A paired surface may be placed on the opposide side of
32			* the detail geometry, less than this thickness away, if a two-way
33			* proxy is desired. Note that the sign of the thickness is important.
34			* A positive thickness hides geometry behind the BSDF surface and uses
35			* front reflectance and transmission properties. A negative thickness
36			* hides geometry in front of the surface when rays hit from behind,
37			* and applies only the transmission and backside reflectance properties.
38			* Reflection is ignored on the hidden side, as those rays pass through.
39	greg	2.1	* The "up" vector for the BSDF is given by three variables, defined
40			* (along with the thickness) by the named function file, or '.' if none.
41			* Together with the surface normal, this defines the local coordinate
42			* system for the BSDF.
43			* We do not reorient the surface, so if the BSDF has no back-side
44	greg	2.5	* reflectance and none is given in the real arguments, a BSDF surface
45			* with zero thickness will appear black when viewed from behind
46			* unless backface visibility is off.
47			* The diffuse arguments are added to components in the BSDF file,
48	greg	2.1	* not multiplied. However, patterns affect this material as a multiplier
49			* on everything except non-diffuse reflection.
50			*
51			* Arguments for MAT_BSDF are:
52			* 6+ thick BSDFfile ux uy uz funcfile transform
53			* 0
54	greg	2.8	* 0\|3\|6\|9 rdf gdf bdf
55	greg	2.1	* rdb gdb bdb
56			* rdt gdt bdt
57			*/
58
59	greg	2.4	/*
60			* Note that our reverse ray-tracing process means that the positions
61			* of incoming and outgoing vectors may be reversed in our calls
62			* to the BSDF library. This is fine, since the bidirectional nature
63			* of the BSDF (that's what the 'B' stands for) means it all works out.
64			*/
65
66	greg	2.1	typedef struct {
67			OBJREC mp; / material pointer */
68			RAY pr; / intersected ray */
69			FVECT pnorm; /* perturbed surface normal */
70	greg	2.4	FVECT vray; /* local outgoing (return) vector */
71	greg	2.9	double sr_vpsa[2]; /* sqrt of BSDF projected solid angle extrema */
72	greg	2.1	RREAL toloc[3][3]; /* world to local BSDF coords */
73			RREAL fromloc[3][3]; /* local BSDF coords to world */
74			double thick; /* surface thickness */
75			SDData sd; / loaded BSDF data */
76	greg	2.31	COLOR rdiff; /* diffuse reflection */
77			COLOR tdiff; /* diffuse transmission */
78	greg	2.1	} BSDFDAT; /* BSDF material data */
79
80			#define cvt_sdcolor(cv, svp) ccy2rgb(&(svp)->spec, (svp)->cieY, cv)
81
82	greg	2.4	/* Jitter ray sample according to projected solid angle and specjitter */
83			static void
84	greg	2.15	bsdf_jitter(FVECT vres, BSDFDAT *ndp, double sr_psa)
85	greg	2.4	{
86			VCOPY(vres, ndp->vray);
87			if (specjitter < 1.)
88			sr_psa *= specjitter;
89			if (sr_psa <= FTINY)
90			return;
91			vres[0] += sr_psa*(.5 - frandom());
92			vres[1] += sr_psa*(.5 - frandom());
93			normalize(vres);
94			}
95
96	greg	2.33	/* Get BSDF specular for direct component, returning true if OK to proceed */
97	greg	2.7	static int
98	greg	2.33	direct_specular_OK(COLOR cval, FVECT ldir, double omega, BSDFDAT *ndp)
99	greg	2.7	{
100	greg	2.15	int nsamp, ok = 0;
101	greg	2.13	FVECT vsrc, vsmp, vjit;
102			double tomega;
103	greg	2.15	double sf, tsr, sd[2];
104	greg	2.32	COLOR csmp, cdiff;
105			double diffY;
106	greg	2.7	SDValue sv;
107			SDError ec;
108	greg	2.13	int i;
109	greg	2.7	/* transform source direction */
110			if (SDmapDir(vsrc, ndp->toloc, ldir) != SDEnone)
111			return(0);
112	greg	2.32	/* will discount diffuse portion */
113			switch ((vsrc[2] > 0)<<1 \| (ndp->vray[2] > 0)) {
114			case 3:
115			if (ndp->sd->rf == NULL)
116			return(0); /* all diffuse */
117			sv = ndp->sd->rLambFront;
118			break;
119			case 0:
120			if (ndp->sd->rb == NULL)
121			return(0); /* all diffuse */
122			sv = ndp->sd->rLambBack;
123			break;
124			default:
125			if ((ndp->sd->tf == NULL) & (ndp->sd->tb == NULL))
126			return(0); /* all diffuse */
127			sv = ndp->sd->tLamb;
128			break;
129			}
130	greg	2.33	if (sv.cieY > FTINY) {
131			diffY = sv.cieY *= 1./PI;
132	greg	2.32	cvt_sdcolor(cdiff, &sv);
133			} else {
134			diffY = .0;
135			setcolor(cdiff, .0, .0, .0);
136			}
137	greg	2.16	/* assign number of samples */
138			ec = SDsizeBSDF(&tomega, ndp->vray, vsrc, SDqueryMin, ndp->sd);
139			if (ec)
140			goto baderror;
141	greg	2.13	/* check indirect over-counting */
142			if (ndp->thick != 0 && ndp->pr->crtype & (SPECULAR\|AMBIENT)
143	greg	2.32	&& (vsrc[2] > 0) ^ (ndp->vray[2] > 0)) {
144	greg	2.13	double dx = vsrc[0] + ndp->vray[0];
145			double dy = vsrc[1] + ndp->vray[1];
146	greg	2.16	if (dxdx + dydy <= omega+tomega)
147	greg	2.7	return(0);
148			}
149	greg	2.15	sf = specjitter * ndp->pr->rweight;
150	greg	2.24	if (tomega <= .0)
151			nsamp = 1;
152			else if (25.*tomega <= omega)
153	greg	2.15	nsamp = 100.*sf + .5;
154			else
155			nsamp = 4.sfomega/tomega + .5;
156			nsamp += !nsamp;
157			setcolor(cval, .0, .0, .0); /* sample our source area */
158	greg	2.13	sf = sqrt(omega);
159	greg	2.15	tsr = sqrt(tomega);
160	greg	2.13	for (i = nsamp; i--; ) {
161			VCOPY(vsmp, vsrc); /* jitter query directions */
162			if (nsamp > 1) {
163			multisamp(sd, 2, (i + frandom())/(double)nsamp);
164			vsmp[0] += (sd[0] - .5)*sf;
165			vsmp[1] += (sd[1] - .5)*sf;
166			if (normalize(vsmp) == 0) {
167			--nsamp;
168			continue;
169			}
170			}
171	greg	2.15	bsdf_jitter(vjit, ndp, tsr);
172	greg	2.13	/* compute BSDF */
173			ec = SDevalBSDF(&sv, vjit, vsmp, ndp->sd);
174			if (ec)
175			goto baderror;
176	greg	2.32	if (sv.cieY - diffY <= FTINY) {
177			addcolor(cval, cdiff);
178			continue; /* no specular part */
179			}
180	greg	2.13	cvt_sdcolor(csmp, &sv);
181	greg	2.32	addcolor(cval, csmp); /* else average it in */
182	greg	2.13	++ok;
183			}
184	greg	2.32	if (!ok) {
185			setcolor(cval, .0, .0, .0);
186			return(0); /* no valid specular samples */
187			}
188	greg	2.13	sf = 1./(double)nsamp;
189			scalecolor(cval, sf);
190	greg	2.32	/* subtract diffuse contribution */
191			for (i = 3*(diffY > FTINY); i--; )
192			if ((colval(cval,i) -= colval(cdiff,i)) < .0)
193			colval(cval,i) = .0;
194			return(1);
195	greg	2.13	baderror:
196			objerror(ndp->mp, USER, transSDError(ec));
197	greg	2.17	return(0); /* gratis return */
198	greg	2.7	}
199
200	greg	2.5	/* Compute source contribution for BSDF (reflected & transmitted) */
201	greg	2.1	static void
202	greg	2.5	dir_bsdf(
203	greg	2.1	COLOR cval, /* returned coefficient */
204			void nnp, / material data */
205			FVECT ldir, /* light source direction */
206			double omega /* light source size */
207			)
208			{
209	greg	2.3	BSDFDAT np = (BSDFDAT )nnp;
210	greg	2.1	double ldot;
211			double dtmp;
212			COLOR ctmp;
213
214			setcolor(cval, .0, .0, .0);
215
216			ldot = DOT(np->pnorm, ldir);
217			if ((-FTINY <= ldot) & (ldot <= FTINY))
218			return;
219
220	greg	2.9	if (ldot > 0 && bright(np->rdiff) > FTINY) {
221	greg	2.1	/*
222			* Compute added diffuse reflected component.
223			*/
224			copycolor(ctmp, np->rdiff);
225			dtmp = ldot * omega * (1./PI);
226			scalecolor(ctmp, dtmp);
227			addcolor(cval, ctmp);
228			}
229	greg	2.9	if (ldot < 0 && bright(np->tdiff) > FTINY) {
230	greg	2.1	/*
231			* Compute added diffuse transmission.
232			*/
233			copycolor(ctmp, np->tdiff);
234			dtmp = -ldot * omega * (1.0/PI);
235			scalecolor(ctmp, dtmp);
236			addcolor(cval, ctmp);
237			}
238	greg	2.30	if (ambRayInPmap(np->pr))
239			return; /* specular already in photon map */
240	greg	2.1	/*
241	greg	2.33	* Compute specular scattering coefficient using BSDF.
242	greg	2.1	*/
243	greg	2.33	if (!direct_specular_OK(ctmp, ldir, omega, np))
244	greg	2.1	return;
245	greg	2.31	if (ldot < 0) { /* pattern for specular transmission */
246	greg	2.1	multcolor(ctmp, np->pr->pcol);
247			dtmp = -ldot * omega;
248	greg	2.31	} else
249			dtmp = ldot * omega;
250	greg	2.1	scalecolor(ctmp, dtmp);
251			addcolor(cval, ctmp);
252			}
253
254	greg	2.5	/* Compute source contribution for BSDF (reflected only) */
255			static void
256			dir_brdf(
257			COLOR cval, /* returned coefficient */
258			void nnp, / material data */
259			FVECT ldir, /* light source direction */
260			double omega /* light source size */
261			)
262			{
263			BSDFDAT np = (BSDFDAT )nnp;
264			double ldot;
265			double dtmp;
266			COLOR ctmp, ctmp1, ctmp2;
267
268			setcolor(cval, .0, .0, .0);
269
270			ldot = DOT(np->pnorm, ldir);
271
272			if (ldot <= FTINY)
273			return;
274
275			if (bright(np->rdiff) > FTINY) {
276			/*
277			* Compute added diffuse reflected component.
278			*/
279			copycolor(ctmp, np->rdiff);
280			dtmp = ldot * omega * (1./PI);
281			scalecolor(ctmp, dtmp);
282			addcolor(cval, ctmp);
283			}
284	greg	2.30	if (ambRayInPmap(np->pr))
285			return; /* specular already in photon map */
286	greg	2.5	/*
287	greg	2.33	* Compute specular reflection coefficient using BSDF.
288	greg	2.5	*/
289	greg	2.33	if (!direct_specular_OK(ctmp, ldir, omega, np))
290	greg	2.5	return;
291			dtmp = ldot * omega;
292			scalecolor(ctmp, dtmp);
293			addcolor(cval, ctmp);
294			}
295
296			/* Compute source contribution for BSDF (transmitted only) */
297			static void
298			dir_btdf(
299			COLOR cval, /* returned coefficient */
300			void nnp, / material data */
301			FVECT ldir, /* light source direction */
302			double omega /* light source size */
303			)
304			{
305			BSDFDAT np = (BSDFDAT )nnp;
306			double ldot;
307			double dtmp;
308			COLOR ctmp;
309
310			setcolor(cval, .0, .0, .0);
311
312			ldot = DOT(np->pnorm, ldir);
313
314			if (ldot >= -FTINY)
315			return;
316
317			if (bright(np->tdiff) > FTINY) {
318			/*
319			* Compute added diffuse transmission.
320			*/
321			copycolor(ctmp, np->tdiff);
322			dtmp = -ldot * omega * (1.0/PI);
323			scalecolor(ctmp, dtmp);
324			addcolor(cval, ctmp);
325			}
326	greg	2.30	if (ambRayInPmap(np->pr))
327			return; /* specular already in photon map */
328	greg	2.5	/*
329	greg	2.33	* Compute specular scattering coefficient using BSDF.
330	greg	2.5	*/
331	greg	2.33	if (!direct_specular_OK(ctmp, ldir, omega, np))
332	greg	2.5	return;
333			/* full pattern on transmission */
334			multcolor(ctmp, np->pr->pcol);
335			dtmp = -ldot * omega;
336			scalecolor(ctmp, dtmp);
337			addcolor(cval, ctmp);
338			}
339
340	greg	2.1	/* Sample separate BSDF component */
341			static int
342			sample_sdcomp(BSDFDAT ndp, SDComponent dcp, int usepat)
343			{
344			int nstarget = 1;
345	greg	2.11	int nsent;
346	greg	2.1	SDError ec;
347			SDValue bsv;
348	greg	2.11	double xrand;
349	greg	2.10	FVECT vsmp;
350	greg	2.1	RAY sr;
351			/* multiple samples? */
352			if (specjitter > 1.5) {
353			nstarget = specjitter*ndp->pr->rweight + .5;
354	greg	2.14	nstarget += !nstarget;
355	greg	2.1	}
356	greg	2.11	/* run through our samples */
357			for (nsent = 0; nsent < nstarget; nsent++) {
358	greg	2.15	if (nstarget == 1) { /* stratify random variable */
359	greg	2.11	xrand = urand(ilhash(dimlist,ndims)+samplendx);
360	greg	2.15	if (specjitter < 1.)
361			xrand = .5 + specjitter*(xrand-.5);
362			} else {
363	greg	2.11	xrand = (nsent + frandom())/(double)nstarget;
364	greg	2.15	}
365	greg	2.11	SDerrorDetail[0] = '\0'; /* sample direction & coef. */
366	greg	2.15	bsdf_jitter(vsmp, ndp, ndp->sr_vpsa[0]);
367	greg	2.11	ec = SDsampComponent(&bsv, vsmp, xrand, dcp);
368	greg	2.1	if (ec)
369	greg	2.2	objerror(ndp->mp, USER, transSDError(ec));
370	greg	2.11	if (bsv.cieY <= FTINY) /* zero component? */
371	greg	2.1	break;
372			/* map vector to world */
373	greg	2.4	if (SDmapDir(sr.rdir, ndp->fromloc, vsmp) != SDEnone)
374	greg	2.1	break;
375			/* spawn a specular ray */
376			if (nstarget > 1)
377			bsv.cieY /= (double)nstarget;
378	greg	2.11	cvt_sdcolor(sr.rcoef, &bsv); /* use sample color */
379			if (usepat) /* apply pattern? */
380	greg	2.1	multcolor(sr.rcoef, ndp->pr->pcol);
381			if (rayorigin(&sr, SPECULAR, ndp->pr, sr.rcoef) < 0) {
382	greg	2.11	if (maxdepth > 0)
383	greg	2.1	break;
384	greg	2.11	continue; /* Russian roulette victim */
385	greg	2.1	}
386	greg	2.5	/* need to offset origin? */
387	greg	2.32	if (ndp->thick != 0 && (ndp->pr->rod > 0) ^ (vsmp[2] > 0))
388	greg	2.5	VSUM(sr.rorg, sr.rorg, ndp->pr->ron, -ndp->thick);
389	greg	2.1	rayvalue(&sr); /* send & evaluate sample */
390			multcolor(sr.rcol, sr.rcoef);
391			addcolor(ndp->pr->rcol, sr.rcol);
392			}
393			return(nsent);
394			}
395
396			/* Sample non-diffuse components of BSDF */
397			static int
398			sample_sdf(BSDFDAT *ndp, int sflags)
399			{
400			int n, ntotal = 0;
401			SDSpectralDF *dfp;
402			COLORV *unsc;
403
404			if (sflags == SDsampSpT) {
405	greg	2.31	unsc = ndp->tdiff;
406	greg	2.22	if (ndp->pr->rod > 0)
407			dfp = (ndp->sd->tf != NULL) ? ndp->sd->tf : ndp->sd->tb;
408			else
409			dfp = (ndp->sd->tb != NULL) ? ndp->sd->tb : ndp->sd->tf;
410	greg	2.1	} else /* sflags == SDsampSpR */ {
411	greg	2.31	unsc = ndp->rdiff;
412			if (ndp->pr->rod > 0)
413	greg	2.1	dfp = ndp->sd->rf;
414	greg	2.31	else
415	greg	2.1	dfp = ndp->sd->rb;
416			}
417			if (dfp == NULL) /* no specular component? */
418			return(0);
419			/* below sampling threshold? */
420			if (dfp->maxHemi <= specthresh+FTINY) {
421	greg	2.3	if (dfp->maxHemi > FTINY) { /* XXX no color from BSDF */
422	greg	2.4	FVECT vjit;
423			double d;
424	greg	2.1	COLOR ctmp;
425	greg	2.15	bsdf_jitter(vjit, ndp, ndp->sr_vpsa[1]);
426	greg	2.4	d = SDdirectHemi(vjit, sflags, ndp->sd);
427	greg	2.1	if (sflags == SDsampSpT) {
428			copycolor(ctmp, ndp->pr->pcol);
429			scalecolor(ctmp, d);
430			} else /* no pattern on reflection */
431			setcolor(ctmp, d, d, d);
432			addcolor(unsc, ctmp);
433			}
434			return(0);
435			}
436			/* else need to sample */
437			dimlist[ndims++] = (int)(size_t)ndp->mp;
438			ndims++;
439			for (n = dfp->ncomp; n--; ) { /* loop over components */
440			dimlist[ndims-1] = n + 9438;
441			ntotal += sample_sdcomp(ndp, &dfp->comp[n], sflags==SDsampSpT);
442			}
443			ndims -= 2;
444			return(ntotal);
445			}
446
447			/* Color a ray that hit a BSDF material */
448			int
449			m_bsdf(OBJREC m, RAY r)
450			{
451	greg	2.6	int hitfront;
452	greg	2.1	COLOR ctmp;
453			SDError ec;
454	greg	2.5	FVECT upvec, vtmp;
455	greg	2.1	MFUNC *mf;
456			BSDFDAT nd;
457			/* check arguments */
458			if ((m->oargs.nsargs < 6) \| (m->oargs.nfargs > 9) \|
459			(m->oargs.nfargs % 3))
460			objerror(m, USER, "bad # arguments");
461	greg	2.6	/* record surface struck */
462	greg	2.9	hitfront = (r->rod > 0);
463	greg	2.1	/* load cal file */
464			mf = getfunc(m, 5, 0x1d, 1);
465	greg	2.25	setfunc(m, r);
466	greg	2.1	/* get thickness */
467			nd.thick = evalue(mf->ep[0]);
468	greg	2.5	if ((-FTINY <= nd.thick) & (nd.thick <= FTINY))
469	greg	2.1	nd.thick = .0;
470			/* check shadow */
471			if (r->crtype & SHADOW) {
472	greg	2.9	if (nd.thick != 0)
473	greg	2.3	raytrans(r); /* pass-through */
474	greg	2.5	return(1); /* or shadow */
475	greg	2.1	}
476	greg	2.26	/* check backface visibility */
477			if (!hitfront & !backvis) {
478			raytrans(r);
479			return(1);
480			}
481	greg	2.5	/* check other rays to pass */
482	greg	2.9	if (nd.thick != 0 && (!(r->crtype & (SPECULAR\|AMBIENT)) \|\|
483	greg	2.29	(nd.thick > 0) ^ hitfront)) {
484	greg	2.5	raytrans(r); /* hide our proxy */
485	greg	2.1	return(1);
486			}
487	greg	2.31	nd.mp = m;
488			nd.pr = r;
489	greg	2.5	/* get BSDF data */
490			nd.sd = loadBSDF(m->oargs.sarg[1]);
491	greg	2.1	/* diffuse reflectance */
492	greg	2.6	if (hitfront) {
493	greg	2.31	cvt_sdcolor(nd.rdiff, &nd.sd->rLambFront);
494			if (m->oargs.nfargs >= 3) {
495			setcolor(ctmp, m->oargs.farg[0],
496	greg	2.1	m->oargs.farg[1],
497			m->oargs.farg[2]);
498	greg	2.31	addcolor(nd.rdiff, ctmp);
499			}
500	greg	2.1	} else {
501	greg	2.31	cvt_sdcolor(nd.rdiff, &nd.sd->rLambBack);
502			if (m->oargs.nfargs >= 6) {
503			setcolor(ctmp, m->oargs.farg[3],
504	greg	2.1	m->oargs.farg[4],
505			m->oargs.farg[5]);
506	greg	2.31	addcolor(nd.rdiff, ctmp);
507			}
508	greg	2.1	}
509			/* diffuse transmittance */
510	greg	2.31	cvt_sdcolor(nd.tdiff, &nd.sd->tLamb);
511			if (m->oargs.nfargs >= 9) {
512			setcolor(ctmp, m->oargs.farg[6],
513	greg	2.1	m->oargs.farg[7],
514			m->oargs.farg[8]);
515	greg	2.31	addcolor(nd.tdiff, ctmp);
516			}
517	greg	2.1	/* get modifiers */
518			raytexture(r, m->omod);
519			/* modify diffuse values */
520			multcolor(nd.rdiff, r->pcol);
521			multcolor(nd.tdiff, r->pcol);
522			/* get up vector */
523			upvec[0] = evalue(mf->ep[1]);
524			upvec[1] = evalue(mf->ep[2]);
525			upvec[2] = evalue(mf->ep[3]);
526			/* return to world coords */
527	greg	2.21	if (mf->fxp != &unitxf) {
528			multv3(upvec, upvec, mf->fxp->xfm);
529			nd.thick *= mf->fxp->sca;
530	greg	2.1	}
531	greg	2.23	if (r->rox != NULL) {
532			multv3(upvec, upvec, r->rox->f.xfm);
533			nd.thick *= r->rox->f.sca;
534			}
535	greg	2.1	raynormal(nd.pnorm, r);
536			/* compute local BSDF xform */
537			ec = SDcompXform(nd.toloc, nd.pnorm, upvec);
538			if (!ec) {
539	greg	2.4	nd.vray[0] = -r->rdir[0];
540			nd.vray[1] = -r->rdir[1];
541			nd.vray[2] = -r->rdir[2];
542			ec = SDmapDir(nd.vray, nd.toloc, nd.vray);
543	greg	2.20	}
544			if (!ec)
545			ec = SDinvXform(nd.fromloc, nd.toloc);
546	greg	2.19	if (ec) {
547			objerror(m, WARNING, "Illegal orientation vector");
548			return(1);
549	greg	2.1	}
550	greg	2.4	/* determine BSDF resolution */
551	greg	2.20	ec = SDsizeBSDF(nd.sr_vpsa, nd.vray, NULL, SDqueryMin+SDqueryMax, nd.sd);
552			if (ec)
553			objerror(m, USER, transSDError(ec));
554
555	greg	2.9	nd.sr_vpsa[0] = sqrt(nd.sr_vpsa[0]);
556			nd.sr_vpsa[1] = sqrt(nd.sr_vpsa[1]);
557	greg	2.6	if (!hitfront) { /* perturb normal towards hit */
558	greg	2.1	nd.pnorm[0] = -nd.pnorm[0];
559			nd.pnorm[1] = -nd.pnorm[1];
560			nd.pnorm[2] = -nd.pnorm[2];
561			}
562			/* sample reflection */
563			sample_sdf(&nd, SDsampSpR);
564			/* sample transmission */
565			sample_sdf(&nd, SDsampSpT);
566			/* compute indirect diffuse */
567	greg	2.31	if (bright(nd.rdiff) > FTINY) { /* ambient from reflection */
568	greg	2.6	if (!hitfront)
569	greg	2.1	flipsurface(r);
570	greg	2.31	copycolor(ctmp, nd.rdiff);
571	greg	2.1	multambient(ctmp, r, nd.pnorm);
572			addcolor(r->rcol, ctmp);
573	greg	2.6	if (!hitfront)
574	greg	2.1	flipsurface(r);
575			}
576	greg	2.31	if (bright(nd.tdiff) > FTINY) { /* ambient from other side */
577	greg	2.1	FVECT bnorm;
578	greg	2.6	if (hitfront)
579	greg	2.1	flipsurface(r);
580			bnorm[0] = -nd.pnorm[0];
581			bnorm[1] = -nd.pnorm[1];
582			bnorm[2] = -nd.pnorm[2];
583	greg	2.31	copycolor(ctmp, nd.tdiff);
584	greg	2.9	if (nd.thick != 0) { /* proxy with offset? */
585	greg	2.5	VCOPY(vtmp, r->rop);
586	greg	2.18	VSUM(r->rop, vtmp, r->ron, nd.thick);
587	greg	2.5	multambient(ctmp, r, bnorm);
588			VCOPY(r->rop, vtmp);
589			} else
590			multambient(ctmp, r, bnorm);
591	greg	2.1	addcolor(r->rcol, ctmp);
592	greg	2.6	if (hitfront)
593	greg	2.1	flipsurface(r);
594			}
595			/* add direct component */
596	greg	2.22	if ((bright(nd.tdiff) <= FTINY) & (nd.sd->tf == NULL) &
597			(nd.sd->tb == NULL)) {
598	greg	2.5	direct(r, dir_brdf, &nd); /* reflection only */
599	greg	2.9	} else if (nd.thick == 0) {
600	greg	2.5	direct(r, dir_bsdf, &nd); /* thin surface scattering */
601			} else {
602			direct(r, dir_brdf, &nd); /* reflection first */
603			VCOPY(vtmp, r->rop); /* offset for transmitted */
604			VSUM(r->rop, vtmp, r->ron, -nd.thick);
605	greg	2.6	direct(r, dir_btdf, &nd); /* separate transmission */
606	greg	2.5	VCOPY(r->rop, vtmp);
607			}
608	greg	2.1	/* clean up */
609			SDfreeCache(nd.sd);
610			return(1);
611			}