24 |
|
#ifndef MINADIV |
25 |
|
#define MINADIV 7 /* minimum # divisions in each dimension */ |
26 |
|
#endif |
27 |
+ |
#ifndef MINSDIST |
28 |
+ |
#define MINSDIST 0.25 /* def. min. spacing = 1/4th division */ |
29 |
+ |
#endif |
30 |
|
|
31 |
|
typedef struct { |
32 |
|
FVECT p; /* intersection point */ |
65 |
|
{ |
66 |
|
double cos_thresh; |
67 |
|
int ii, jj; |
68 |
< |
/* min. spacing = 1/4th division */ |
69 |
< |
cos_thresh = (PI/4.)/(double)hp->ns; |
68 |
> |
|
69 |
> |
cos_thresh = (PI*MINSDIST)/(double)hp->ns; |
70 |
|
cos_thresh = 1. - .5*cos_thresh*cos_thresh; |
71 |
|
/* check existing neighbors */ |
72 |
|
for (ii = i-1; ii <= i+1; ii++) { |
92 |
|
} |
93 |
|
|
94 |
|
|
95 |
+ |
#define XLOTSIZ 251 /* size of used car lot */ |
96 |
+ |
#define CFIRST 0 /* first corner */ |
97 |
+ |
#define COTHER (CFIRST+4) /* non-corner sample */ |
98 |
+ |
#define CMAXTARGET (int)(XLOTSIZ*MINSDIST/(1-MINSDIST)) |
99 |
+ |
#define CXCOPY(d,s) (excharr[d][0]=excharr[s][0], excharr[d][1]=excharr[s][1]) |
100 |
+ |
|
101 |
|
static int |
102 |
+ |
psample_class(double ss[2]) /* classify patch sample */ |
103 |
+ |
{ |
104 |
+ |
if (ss[0] < MINSDIST) { |
105 |
+ |
if (ss[1] < MINSDIST) |
106 |
+ |
return(CFIRST); |
107 |
+ |
if (ss[1] > 1.-MINSDIST) |
108 |
+ |
return(CFIRST+2); |
109 |
+ |
} else if (ss[0] > 1.-MINSDIST) { |
110 |
+ |
if (ss[1] < MINSDIST) |
111 |
+ |
return(CFIRST+1); |
112 |
+ |
if (ss[1] > 1.-MINSDIST) |
113 |
+ |
return(CFIRST+3); |
114 |
+ |
} |
115 |
+ |
return(COTHER); /* not in a corner */ |
116 |
+ |
} |
117 |
+ |
|
118 |
+ |
static void |
119 |
+ |
trade_patchsamp(double ss[2]) /* trade in problem patch position */ |
120 |
+ |
{ |
121 |
+ |
static float excharr[XLOTSIZ][2]; |
122 |
+ |
static short gterm[COTHER+1]; |
123 |
+ |
double srep[2]; |
124 |
+ |
int sclass, rclass; |
125 |
+ |
int x; |
126 |
+ |
/* reset on corner overload */ |
127 |
+ |
if (gterm[COTHER-1] >= (CMAXTARGET+XLOTSIZ)/2) |
128 |
+ |
memset(gterm, 0, sizeof(gterm)); |
129 |
+ |
/* (re-)initialize? */ |
130 |
+ |
while (gterm[COTHER] < XLOTSIZ) { |
131 |
+ |
excharr[gterm[COTHER]][0] = frandom(); |
132 |
+ |
excharr[gterm[COTHER]][1] = frandom(); |
133 |
+ |
++gterm[COTHER]; |
134 |
+ |
} /* get trade-in candidate... */ |
135 |
+ |
sclass = psample_class(ss); /* submitted corner or not? */ |
136 |
+ |
switch (sclass) { |
137 |
+ |
case COTHER: /* trade mid-edge with corner/any */ |
138 |
+ |
x = irandom( gterm[COTHER-1] > CMAXTARGET |
139 |
+ |
? gterm[COTHER-1] : XLOTSIZ ); |
140 |
+ |
break; |
141 |
+ |
case CFIRST: /* kick out of first corner */ |
142 |
+ |
x = gterm[CFIRST] + irandom(XLOTSIZ - gterm[CFIRST]); |
143 |
+ |
break; |
144 |
+ |
default: /* kick out of 2nd-4th corner */ |
145 |
+ |
x = irandom(XLOTSIZ - (gterm[sclass] - gterm[sclass-1])); |
146 |
+ |
x += (x >= gterm[sclass-1])*(gterm[sclass] - gterm[sclass-1]); |
147 |
+ |
break; |
148 |
+ |
} |
149 |
+ |
srep[0] = excharr[x][0]; /* save selected trade output */ |
150 |
+ |
srep[1] = excharr[x][1]; |
151 |
+ |
/* adjust our lot groups */ |
152 |
+ |
for (rclass = CFIRST; rclass < COTHER; rclass++) |
153 |
+ |
if (x < gterm[rclass]) |
154 |
+ |
break; |
155 |
+ |
if (sclass < rclass) { /* submitted group before replacement? */ |
156 |
+ |
CXCOPY(x, gterm[rclass-1]); |
157 |
+ |
while (--rclass > sclass) { |
158 |
+ |
CXCOPY(gterm[rclass], gterm[rclass-1]); |
159 |
+ |
++gterm[rclass]; |
160 |
+ |
} |
161 |
+ |
x = gterm[sclass]++; |
162 |
+ |
} else if (sclass > rclass) { /* submitted group after replacement? */ |
163 |
+ |
--gterm[rclass]; |
164 |
+ |
CXCOPY(x, gterm[rclass]); |
165 |
+ |
while (++rclass < sclass) { |
166 |
+ |
--gterm[rclass]; |
167 |
+ |
CXCOPY(gterm[rclass-1], gterm[rclass]); |
168 |
+ |
} |
169 |
+ |
x = gterm[sclass-1]; |
170 |
+ |
} |
171 |
+ |
excharr[x][0] = ss[0]; /* complete the transaction */ |
172 |
+ |
excharr[x][1] = ss[1]; |
173 |
+ |
ss[0] = srep[0]; |
174 |
+ |
ss[1] = srep[1]; |
175 |
+ |
} |
176 |
+ |
|
177 |
+ |
#undef CXCOPY |
178 |
+ |
#undef XLOTSIZ |
179 |
+ |
#undef COTHER |
180 |
+ |
#undef CFIRST |
181 |
+ |
|
182 |
+ |
|
183 |
+ |
static int |
184 |
|
ambsample( /* initial ambient division sample */ |
185 |
|
AMBHEMI *hp, |
186 |
|
int i, |
191 |
|
AMBSAMP *ap = &ambsam(hp,i,j); |
192 |
|
RAY ar; |
193 |
|
int hlist[3], ii; |
194 |
+ |
double ss[2]; |
195 |
|
RREAL spt[2]; |
196 |
|
double zd; |
197 |
|
/* generate hemispherical sample */ |
207 |
|
scalescolor(ar.rcoef, 1./AVGREFL); |
208 |
|
} |
209 |
|
hlist[0] = hp->rp->rno; |
210 |
< |
hlist[1] = j; |
211 |
< |
hlist[2] = i; |
212 |
< |
multisamp(spt, 2, urand(ilhash(hlist,3)+n)); |
213 |
< |
resample: |
214 |
< |
square2disk(spt, (j+spt[1])/hp->ns, (i+spt[0])/hp->ns); |
210 |
> |
hlist[1] = AI(hp,i,j); |
211 |
> |
hlist[2] = samplendx; |
212 |
> |
multisamp(ss, 2, urand(ilhash(hlist,3)+n)); |
213 |
> |
patch_redo: |
214 |
> |
square2disk(spt, (j+ss[1])/hp->ns, (i+ss[0])/hp->ns); |
215 |
|
zd = sqrt(1. - spt[0]*spt[0] - spt[1]*spt[1]); |
216 |
|
for (ii = 3; ii--; ) |
217 |
|
ar.rdir[ii] = spt[0]*hp->ux[ii] + |
219 |
|
zd*hp->onrm[ii]; |
220 |
|
checknorm(ar.rdir); |
221 |
|
/* avoid coincident samples */ |
222 |
< |
if (!n && ambcollision(hp, i, j, ar.rdir)) { |
223 |
< |
spt[0] = frandom(); spt[1] = frandom(); |
224 |
< |
goto resample; /* reject this sample */ |
222 |
> |
if (!n & (hp->ns >= 4) && ambcollision(hp, i, j, ar.rdir)) { |
223 |
> |
trade_patchsamp(ss); |
224 |
> |
goto patch_redo; |
225 |
|
} |
226 |
|
dimlist[ndims++] = AI(hp,i,j) + 90171; |
227 |
|
rayvalue(&ar); /* evaluate ray */ |
254 |
|
static float * |
255 |
|
getambdiffs(AMBHEMI *hp) |
256 |
|
{ |
257 |
< |
const double normf = 1./bright(hp->acoef); |
258 |
< |
float *earr = (float *)calloc(hp->ns*hp->ns, sizeof(float)); |
257 |
> |
const double normf = 1./(pbright(hp->acoef) + FTINY); |
258 |
> |
float *earr = (float *)calloc(2*hp->ns*hp->ns, sizeof(float)); |
259 |
|
float *ep; |
260 |
|
AMBSAMP *ap; |
261 |
|
double b, b1, d2; |
264 |
|
if (earr == NULL) /* out of memory? */ |
265 |
|
return(NULL); |
266 |
|
/* sum squared neighbor diffs */ |
267 |
< |
for (ap = hp->sa, ep = earr, i = 0; i < hp->ns; i++) |
267 |
> |
ap = hp->sa; |
268 |
> |
ep = earr + hp->ns*hp->ns; /* original estimates to scratch */ |
269 |
> |
for (i = 0; i < hp->ns; i++) |
270 |
|
for (j = 0; j < hp->ns; j++, ap++, ep++) { |
271 |
|
b = pbright(ap[0].v); |
272 |
|
if (i) { /* from above */ |
292 |
|
ep[-hp->ns-1] += d2; |
293 |
|
} |
294 |
|
/* correct for number of neighbors */ |
295 |
< |
earr[0] *= 8./3.; |
296 |
< |
earr[hp->ns-1] *= 8./3.; |
297 |
< |
earr[(hp->ns-1)*hp->ns] *= 8./3.; |
298 |
< |
earr[(hp->ns-1)*hp->ns + hp->ns-1] *= 8./3.; |
295 |
> |
ep = earr + hp->ns*hp->ns; |
296 |
> |
ep[0] *= 6./3.; |
297 |
> |
ep[hp->ns-1] *= 6./3.; |
298 |
> |
ep[(hp->ns-1)*hp->ns] *= 6./3.; |
299 |
> |
ep[(hp->ns-1)*hp->ns + hp->ns-1] *= 6./3.; |
300 |
|
for (i = 1; i < hp->ns-1; i++) { |
301 |
< |
earr[i*hp->ns] *= 8./5.; |
302 |
< |
earr[i*hp->ns + hp->ns-1] *= 8./5.; |
301 |
> |
ep[i*hp->ns] *= 6./5.; |
302 |
> |
ep[i*hp->ns + hp->ns-1] *= 6./5.; |
303 |
|
} |
304 |
|
for (j = 1; j < hp->ns-1; j++) { |
305 |
< |
earr[j] *= 8./5.; |
306 |
< |
earr[(hp->ns-1)*hp->ns + j] *= 8./5.; |
305 |
> |
ep[j] *= 6./5.; |
306 |
> |
ep[(hp->ns-1)*hp->ns + j] *= 6./5.; |
307 |
|
} |
308 |
+ |
/* blur final map to reduce bias */ |
309 |
+ |
for (i = 0; i < hp->ns-1; i++) { |
310 |
+ |
float *ep2; |
311 |
+ |
ep = earr + i*hp->ns; |
312 |
+ |
ep2 = ep + hp->ns*hp->ns; |
313 |
+ |
for (j = 0; j < hp->ns-1; j++, ep++, ep2++) { |
314 |
+ |
ep[0] += .5*ep2[0] + .125*(ep2[1] + ep2[hp->ns]); |
315 |
+ |
ep[1] += .125*ep2[0]; |
316 |
+ |
ep[hp->ns] += .125*ep2[0]; |
317 |
+ |
} |
318 |
+ |
} |
319 |
|
return(earr); |
320 |
|
} |
321 |
|
|
367 |
|
/* set number of divisions */ |
368 |
|
if (backside) wt = -wt; |
369 |
|
if (ambacc <= FTINY && |
370 |
< |
wt > (d *= 0.8*r->rweight/(ambdiv*minweight))) |
370 |
> |
wt > (d *= 0.8*r->rweight/(ambdiv*minweight + 1e-20))) |
371 |
|
wt = d; /* avoid ray termination */ |
372 |
|
n = sqrt(ambdiv * wt) + 0.5; |
373 |
|
i = 1 + (MINADIV-1)*(ambacc > FTINY); |
416 |
|
if (hp->sampOK <= MINADIV*MINADIV) |
417 |
|
return(hp); /* don't bother super-sampling */ |
418 |
|
n = ambssamp*wt + 0.5; |
419 |
< |
if (n > 8) { /* perform super-sampling? */ |
419 |
> |
if (n >= 4*hp->ns) { /* perform super-sampling? */ |
420 |
|
ambsupersamp(hp, n); |
421 |
|
copyscolor(rcol, hp->acol); |
422 |
|
} |