src/rt/srcsamp.c

/* Copyright (c) 1991 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 * Source sampling routines
 */

#include  "ray.h"

#include  "source.h"

#include  "random.h"


double
nextssamp(r, si)                /* compute sample for source, rtn. distance */
register RAY  *r;               /* origin is read, direction is set */
register SRCINDEX  *si;         /* source index (modified to current) */
{
        int  cent[3], size[3], parr[2];
        FVECT  vpos;
        double  d;
        register int  i;

        while (++si->sp >= si->np) {    /* get next sample */
                if (++si->sn >= nsources)
                        return(0.0);    /* no more */
                if (srcsizerat <= FTINY)
                        nopart(si, r);
                else {
                        for (i = si->sn; source[i].sflags & SVIRTUAL;
                                        i = source[i].sa.sv.sn)
                                ;               /* partition source */
                        (*sfun[source[i].so->otype].of->partit)(si, r);
                }
                si->sp = -1;
        }
                                        /* get partition */
        cent[0] = cent[1] = cent[2] = 0;
        size[0] = size[1] = size[2] = MAXSPART;
        parr[0] = 0; parr[1] = si->sp;
        if (!skipparts(cent, size, parr, si->spt))
                error(CONSISTENCY, "bad source partition in nextssamp");
                                        /* compute sample */
        if (dstrsrc > FTINY) {                  /* jitter sample */
                dimlist[ndims] = si->sn + 8831;
                dimlist[ndims+1] = si->sp + 3109;
                d = urand(ilhash(dimlist,ndims+2)+samplendx);
                if (source[si->sn].sflags & SFLAT) {
                        multisamp(vpos, 2, d);
                        vpos[2] = 0.5;
                } else
                        multisamp(vpos, 3, d);
                for (i = 0; i < 3; i++)
                        vpos[i] = dstrsrc * (1. - 2.*vpos[i]) *
                                        (double)size[i]/MAXSPART;
        } else
                vpos[0] = vpos[1] = vpos[2] = 0.0;

        for (i = 0; i < 3; i++)
                vpos[i] += (double)cent[i]/MAXSPART;
                                        /* compute direction */
        for (i = 0; i < 3; i++)
                r->rdir[i] = source[si->sn].sloc[i] +
                                vpos[SU]*source[si->sn].ss[SU][i] +
                                vpos[SV]*source[si->sn].ss[SV][i] +
                                vpos[SW]*source[si->sn].ss[SW][i];

        if (!(source[si->sn].sflags & SDISTANT))
                for (i = 0; i < 3; i++)
                        r->rdir[i] -= r->rorg[i];
                                        /* compute distance */
        if ((d = normalize(r->rdir)) == 0.0)
                return(nextssamp(r, si));       /* at source! */

                                        /* compute sample size */
        si->dom  = source[si->sn].ss2;
        if (source[si->sn].sflags & SFLAT) {
                si->dom *= sflatform(si->sn, r->rdir);
                si->dom *= (double)(size[SU]*size[SV])/(MAXSPART*MAXSPART);
        } else if (source[si->sn].sflags & SCYL) {
                si->dom *= scylform(si->sn, r->rdir);
                si->dom *= (double)size[SU]/MAXSPART;
        } else {
                si->dom *= (double)(size[SU]*size[SV]*size[SW]) /
                                (MAXSPART*MAXSPART*MAXSPART) ;
        }
        if (source[si->sn].sflags & SDISTANT)
                return(FHUGE);
        si->dom /= d*d;
        return(d);              /* sample OK, return distance */
}


skipparts(ct, sz, pp, pt)               /* skip to requested partition */
int  ct[3], sz[3];              /* center and size of partition (returned) */
register int  pp[2];            /* current index, number to skip (modified) */
unsigned char  *pt;             /* partition array */
{
        register int  p;
                                        /* check this partition */
        p = spart(pt, pp[0]);
        pp[0]++;
        if (p == S0)                    /* leaf partition */
                if (pp[1]) {
                        pp[1]--;
                        return(0);      /* not there yet */
                } else
                        return(1);      /* we've arrived */
                                /* else check lower */
        sz[p] >>= 1;
        ct[p] -= sz[p];
        if (skipparts(ct, sz, pp, pt))
                return(1);      /* return hit */
                                /* else check upper */
        ct[p] += sz[p] << 1;
        if (skipparts(ct, sz, pp, pt))
                return(1);      /* return hit */
                                /* else return to starting position */
        ct[p] -= sz[p];
        sz[p] <<= 1;
        return(0);              /* return miss */
}


nopart(si, r)                   /* single source partition */
register SRCINDEX  *si;
RAY  *r;
{
        clrpart(si->spt);
        setpart(si->spt, 0, S0);
        si->np = 1;
}


cylpart(si, r)                  /* partition a cylinder */
SRCINDEX  *si;
register RAY  *r;
{
        double  dist2, safedist2, dist2cent, rad2;
        FVECT  v;
        register SRCREC  *sp;
        int  pi;
                                        /* first check point location */
        clrpart(si->spt);
        sp = source + si->sn;
        rad2 = 1.365 * DOT(sp->ss[SV],sp->ss[SV]);
        v[0] = r->rorg[0] - sp->sloc[0];
        v[1] = r->rorg[1] - sp->sloc[1];
        v[2] = r->rorg[2] - sp->sloc[2];
        dist2 = DOT(v,sp->ss[SU]);
        safedist2 = DOT(sp->ss[SU],sp->ss[SU]);
        dist2 *= dist2 / safedist2;
        dist2cent = DOT(v,v);
        dist2 = dist2cent - dist2;
        if (dist2 <= rad2) {            /* point inside extended cylinder */
                si->np = 0;
                return;
        }
        safedist2 *= 4.*r->rweight*r->rweight/(srcsizerat*srcsizerat);
        if (dist2 <= 4.*rad2 ||         /* point too close to subdivide */
                        dist2cent >= safedist2) {       /* or too far */
                setpart(si->spt, 0, S0);
                si->np = 1;
                return;
        }
        pi = 0;
        si->np = cyl_partit(r->rorg, si->spt, &pi, MAXSPART,
                        sp->sloc, sp->ss[SU], safedist2);
}


static int
cyl_partit(ro, pt, pi, mp, cent, axis, d2)      /* slice a cylinder */
FVECT  ro;
unsigned char  *pt;
register int  *pi;
int  mp;
FVECT  cent, axis;
double  d2;
{
        FVECT  newct, newax;
        int  npl, npu;

        if (mp < 2 || dist2(ro, cent) >= d2) {  /* hit limit? */
                setpart(pt, *pi, S0);
                (*pi)++;
                return(1);
        }
                                        /* subdivide */
        setpart(pt, *pi, SU);
        (*pi)++;
        newax[0] = .5*axis[0];
        newax[1] = .5*axis[1];
        newax[2] = .5*axis[2];
        d2 *= 0.25;
                                        /* lower half */
        newct[0] = cent[0] - newax[0];
        newct[1] = cent[1] - newax[1];
        newct[2] = cent[2] - newax[2];
        npl = cyl_partit(ro, pt, pi, mp/2, newct, newax, d2);
                                        /* upper half */
        newct[0] = cent[0] + newax[0];
        newct[1] = cent[1] + newax[1];
        newct[2] = cent[2] + newax[2];
        npu = cyl_partit(ro, pt, pi, mp/2, newct, newax, d2);
                                        /* return total */
        return(npl + npu);
}


flatpart(si, r)                         /* partition a flat source */
register SRCINDEX  *si;
register RAY  *r;
{
        register double  *vp;
        FVECT  v;
        double  du2, dv2;
        int  pi;

        clrpart(si->spt);
        vp = source[si->sn].sloc;
        v[0] = r->rorg[0] - vp[0];
        v[1] = r->rorg[1] - vp[1];
        v[2] = r->rorg[2] - vp[2];
        vp = source[si->sn].snorm;
        if (DOT(v,vp) <= FTINY) {       /* behind source */
                si->np = 0;
                return;
        }
        dv2 = 2.*r->rweight/srcsizerat;
        dv2 *= dv2;
        vp = source[si->sn].ss[SU];
        du2 = dv2 * DOT(vp,vp);
        vp = source[si->sn].ss[SV];
        dv2 *= DOT(vp,vp);
        pi = 0;
        si->np = flt_partit(r->rorg, si->spt, &pi, MAXSPART,
                source[si->sn].sloc,
                source[si->sn].ss[SU], source[si->sn].ss[SV], du2, dv2);
}


static int
flt_partit(ro, pt, pi, mp, cent, u, v, du2, dv2)        /* partition flatty */
FVECT  ro;
unsigned char  *pt;
register int  *pi;
int  mp;
FVECT  cent, u, v;
double  du2, dv2;
{
        double  d2;
        FVECT  newct, newax;
        int  npl, npu;

        if (mp < 2 || ((d2 = dist2(ro, cent)) >= du2
                        && d2 >= dv2)) {        /* hit limit? */
                setpart(pt, *pi, S0);
                (*pi)++;
                return(1);
        }
        if (du2 > dv2) {                        /* subdivide in U */
                setpart(pt, *pi, SU);
                (*pi)++;
                newax[0] = .5*u[0];
                newax[1] = .5*u[1];
                newax[2] = .5*u[2];
                u = newax;
                du2 *= 0.25;
        } else {                                /* subdivide in V */
                setpart(pt, *pi, SV);
                (*pi)++;
                newax[0] = .5*v[0];
                newax[1] = .5*v[1];
                newax[2] = .5*v[2];
                v = newax;
                dv2 *= 0.25;
        }
                                        /* lower half */
        newct[0] = cent[0] - newax[0];
        newct[1] = cent[1] - newax[1];
        newct[2] = cent[2] - newax[2];
        npl = flt_partit(ro, pt, pi, mp/2, newct, u, v, du2, dv2);
                                        /* upper half */
        newct[0] = cent[0] + newax[0];
        newct[1] = cent[1] + newax[1];
        newct[2] = cent[2] + newax[2];
        npu = flt_partit(ro, pt, pi, mp/2, newct, u, v, du2, dv2);
                                /* return total */
        return(npl + npu);
}


double
scylform(sn, dir)               /* compute cosine for cylinder's projection */
int  sn;
register FVECT  dir;            /* assume normalized */
{
        register double  *dv;
        double  d;

        dv = source[sn].ss[SU];
        d = DOT(dir, dv);
        d *= d / DOT(dv,dv);
        return(sqrt(1. - d));
}
Revision:	1.5
Committed:	Wed Oct 23 08:50:06 1991 UTC (34 years ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 1.4:	+16 -10 lines
Log Message:	added test for behind surface to flatpart()
#	User	Rev	Content
1	greg	1.1	/* Copyright (c) 1991 Regents of the University of California */
2
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* Source sampling routines
9			*/
10
11	greg	1.4	#include "ray.h"
12	greg	1.1
13			#include "source.h"
14
15			#include "random.h"
16
17
18			double
19	greg	1.4	nextssamp(r, si) /* compute sample for source, rtn. distance */
20			register RAY r; / origin is read, direction is set */
21	greg	1.1	register SRCINDEX si; / source index (modified to current) */
22			{
23			int cent[3], size[3], parr[2];
24			FVECT vpos;
25			double d;
26			register int i;
27	greg	1.5
28	greg	1.1	while (++si->sp >= si->np) { /* get next sample */
29			if (++si->sn >= nsources)
30			return(0.0); /* no more */
31			if (srcsizerat <= FTINY)
32	greg	1.4	nopart(si, r);
33	greg	1.1	else {
34			for (i = si->sn; source[i].sflags & SVIRTUAL;
35			i = source[i].sa.sv.sn)
36			; /* partition source */
37	greg	1.4	(*sfun[source[i].so->otype].of->partit)(si, r);
38	greg	1.1	}
39			si->sp = -1;
40			}
41			/* get partition */
42			cent[0] = cent[1] = cent[2] = 0;
43			size[0] = size[1] = size[2] = MAXSPART;
44			parr[0] = 0; parr[1] = si->sp;
45			if (!skipparts(cent, size, parr, si->spt))
46			error(CONSISTENCY, "bad source partition in nextssamp");
47			/* compute sample */
48			if (dstrsrc > FTINY) { /* jitter sample */
49			dimlist[ndims] = si->sn + 8831;
50			dimlist[ndims+1] = si->sp + 3109;
51			d = urand(ilhash(dimlist,ndims+2)+samplendx);
52			if (source[si->sn].sflags & SFLAT) {
53			multisamp(vpos, 2, d);
54			vpos[2] = 0.5;
55			} else
56			multisamp(vpos, 3, d);
57			for (i = 0; i < 3; i++)
58			vpos[i] = dstrsrc * (1. - 2.vpos[i])
59			(double)size[i]/MAXSPART;
60			} else
61			vpos[0] = vpos[1] = vpos[2] = 0.0;
62
63			for (i = 0; i < 3; i++)
64			vpos[i] += (double)cent[i]/MAXSPART;
65			/* compute direction */
66			for (i = 0; i < 3; i++)
67	greg	1.4	r->rdir[i] = source[si->sn].sloc[i] +
68	greg	1.1	vpos[SU]*source[si->sn].ss[SU][i] +
69			vpos[SV]*source[si->sn].ss[SV][i] +
70			vpos[SW]*source[si->sn].ss[SW][i];
71
72			if (!(source[si->sn].sflags & SDISTANT))
73			for (i = 0; i < 3; i++)
74	greg	1.4	r->rdir[i] -= r->rorg[i];
75	greg	1.1	/* compute distance */
76	greg	1.4	if ((d = normalize(r->rdir)) == 0.0)
77	greg	1.5	return(nextssamp(r, si)); /* at source! */
78	greg	1.1
79			/* compute sample size */
80			si->dom = source[si->sn].ss2;
81			if (source[si->sn].sflags & SFLAT) {
82	greg	1.4	si->dom *= sflatform(si->sn, r->rdir);
83	greg	1.1	si->dom = (double)(size[SU]size[SV])/(MAXSPART*MAXSPART);
84			} else if (source[si->sn].sflags & SCYL) {
85	greg	1.4	si->dom *= scylform(si->sn, r->rdir);
86	greg	1.1	si->dom *= (double)size[SU]/MAXSPART;
87			} else {
88			si->dom = (double)(size[SU]size[SV]*size[SW]) /
89			(MAXSPARTMAXSPARTMAXSPART) ;
90			}
91			if (source[si->sn].sflags & SDISTANT)
92			return(FHUGE);
93			si->dom /= d*d;
94			return(d); /* sample OK, return distance */
95			}
96
97
98			skipparts(ct, sz, pp, pt) /* skip to requested partition */
99			int ct[3], sz[3]; /* center and size of partition (returned) */
100			register int pp[2]; /* current index, number to skip (modified) */
101			unsigned char pt; / partition array */
102			{
103			register int p;
104			/* check this partition */
105			p = spart(pt, pp[0]);
106			pp[0]++;
107			if (p == S0) /* leaf partition */
108			if (pp[1]) {
109			pp[1]--;
110			return(0); /* not there yet */
111			} else
112			return(1); /* we've arrived */
113			/* else check lower */
114			sz[p] >>= 1;
115			ct[p] -= sz[p];
116			if (skipparts(ct, sz, pp, pt))
117			return(1); /* return hit */
118			/* else check upper */
119			ct[p] += sz[p] << 1;
120			if (skipparts(ct, sz, pp, pt))
121			return(1); /* return hit */
122			/* else return to starting position */
123			ct[p] -= sz[p];
124			sz[p] <<= 1;
125			return(0); /* return miss */
126			}
127
128
129	greg	1.4	nopart(si, r) /* single source partition */
130	greg	1.1	register SRCINDEX *si;
131	greg	1.4	RAY *r;
132	greg	1.1	{
133			clrpart(si->spt);
134			setpart(si->spt, 0, S0);
135			si->np = 1;
136			}
137
138
139	greg	1.4	cylpart(si, r) /* partition a cylinder */
140	greg	1.1	SRCINDEX *si;
141	greg	1.4	register RAY *r;
142	greg	1.1	{
143			double dist2, safedist2, dist2cent, rad2;
144			FVECT v;
145			register SRCREC *sp;
146			int pi;
147			/* first check point location */
148			clrpart(si->spt);
149	greg	1.4	sp = source + si->sn;
150	greg	1.3	rad2 = 1.365 * DOT(sp->ss[SV],sp->ss[SV]);
151	greg	1.4	v[0] = r->rorg[0] - sp->sloc[0];
152			v[1] = r->rorg[1] - sp->sloc[1];
153			v[2] = r->rorg[2] - sp->sloc[2];
154	greg	1.1	dist2 = DOT(v,sp->ss[SU]);
155			safedist2 = DOT(sp->ss[SU],sp->ss[SU]);
156			dist2 *= dist2 / safedist2;
157			dist2cent = DOT(v,v);
158			dist2 = dist2cent - dist2;
159			if (dist2 <= rad2) { /* point inside extended cylinder */
160			si->np = 0;
161			return;
162			}
163	greg	1.4	safedist2 = 4.r->rweightr->rweight/(srcsizeratsrcsizerat);
164	greg	1.5	if (dist2 <= 4.rad2 \|\| / point too close to subdivide */
165			dist2cent >= safedist2) { /* or too far */
166	greg	1.1	setpart(si->spt, 0, S0);
167			si->np = 1;
168			return;
169			}
170			pi = 0;
171	greg	1.4	si->np = cyl_partit(r->rorg, si->spt, &pi, MAXSPART,
172	greg	1.1	sp->sloc, sp->ss[SU], safedist2);
173			}
174
175
176			static int
177			cyl_partit(ro, pt, pi, mp, cent, axis, d2) /* slice a cylinder */
178			FVECT ro;
179			unsigned char *pt;
180			register int *pi;
181			int mp;
182			FVECT cent, axis;
183			double d2;
184			{
185			FVECT newct, newax;
186			int npl, npu;
187
188			if (mp < 2 \|\| dist2(ro, cent) >= d2) { /* hit limit? */
189			setpart(pt, *pi, S0);
190			(*pi)++;
191			return(1);
192			}
193			/* subdivide */
194			setpart(pt, *pi, SU);
195			(*pi)++;
196			newax[0] = .5*axis[0];
197			newax[1] = .5*axis[1];
198			newax[2] = .5*axis[2];
199			d2 *= 0.25;
200			/* lower half */
201			newct[0] = cent[0] - newax[0];
202			newct[1] = cent[1] - newax[1];
203			newct[2] = cent[2] - newax[2];
204	greg	1.2	npl = cyl_partit(ro, pt, pi, mp/2, newct, newax, d2);
205	greg	1.1	/* upper half */
206			newct[0] = cent[0] + newax[0];
207			newct[1] = cent[1] + newax[1];
208			newct[2] = cent[2] + newax[2];
209	greg	1.2	npu = cyl_partit(ro, pt, pi, mp/2, newct, newax, d2);
210	greg	1.1	/* return total */
211			return(npl + npu);
212			}
213
214
215	greg	1.4	flatpart(si, r) /* partition a flat source */
216	greg	1.1	register SRCINDEX *si;
217	greg	1.5	register RAY *r;
218	greg	1.1	{
219			register double *vp;
220	greg	1.5	FVECT v;
221	greg	1.1	double du2, dv2;
222			int pi;
223
224	greg	1.5	clrpart(si->spt);
225			vp = source[si->sn].sloc;
226			v[0] = r->rorg[0] - vp[0];
227			v[1] = r->rorg[1] - vp[1];
228			v[2] = r->rorg[2] - vp[2];
229			vp = source[si->sn].snorm;
230			if (DOT(v,vp) <= FTINY) { /* behind source */
231			si->np = 0;
232			return;
233			}
234	greg	1.4	dv2 = 2.*r->rweight/srcsizerat;
235			dv2 *= dv2;
236	greg	1.1	vp = source[si->sn].ss[SU];
237	greg	1.4	du2 = dv2 * DOT(vp,vp);
238	greg	1.1	vp = source[si->sn].ss[SV];
239	greg	1.4	dv2 *= DOT(vp,vp);
240	greg	1.1	pi = 0;
241	greg	1.4	si->np = flt_partit(r->rorg, si->spt, &pi, MAXSPART,
242			source[si->sn].sloc,
243	greg	1.1	source[si->sn].ss[SU], source[si->sn].ss[SV], du2, dv2);
244			}
245
246
247			static int
248			flt_partit(ro, pt, pi, mp, cent, u, v, du2, dv2) /* partition flatty */
249			FVECT ro;
250			unsigned char *pt;
251			register int *pi;
252			int mp;
253			FVECT cent, u, v;
254			double du2, dv2;
255			{
256			double d2;
257			FVECT newct, newax;
258			int npl, npu;
259
260			if (mp < 2 \|\| ((d2 = dist2(ro, cent)) >= du2
261			&& d2 >= dv2)) { /* hit limit? */
262			setpart(pt, *pi, S0);
263			(*pi)++;
264			return(1);
265			}
266			if (du2 > dv2) { /* subdivide in U */
267			setpart(pt, *pi, SU);
268			(*pi)++;
269			newax[0] = .5*u[0];
270			newax[1] = .5*u[1];
271			newax[2] = .5*u[2];
272			u = newax;
273			du2 *= 0.25;
274			} else { /* subdivide in V */
275			setpart(pt, *pi, SV);
276			(*pi)++;
277			newax[0] = .5*v[0];
278			newax[1] = .5*v[1];
279			newax[2] = .5*v[2];
280			v = newax;
281			dv2 *= 0.25;
282			}
283			/* lower half */
284			newct[0] = cent[0] - newax[0];
285			newct[1] = cent[1] - newax[1];
286			newct[2] = cent[2] - newax[2];
287	greg	1.2	npl = flt_partit(ro, pt, pi, mp/2, newct, u, v, du2, dv2);
288	greg	1.1	/* upper half */
289			newct[0] = cent[0] + newax[0];
290			newct[1] = cent[1] + newax[1];
291			newct[2] = cent[2] + newax[2];
292	greg	1.2	npu = flt_partit(ro, pt, pi, mp/2, newct, u, v, du2, dv2);
293	greg	1.1	/* return total */
294			return(npl + npu);
295			}
296
297
298			double
299			scylform(sn, dir) /* compute cosine for cylinder's projection */
300			int sn;
301			register FVECT dir; /* assume normalized */
302			{
303			register double *dv;
304			double d;
305
306			dv = source[sn].ss[SU];
307			d = DOT(dir, dv);
308			d *= d / DOT(dv,dv);
309			return(sqrt(1. - d));
310			}