| 7 |
|
* External symbols declared in source.h |
| 8 |
|
*/ |
| 9 |
|
|
| 10 |
– |
#include "copyright.h" |
| 11 |
– |
|
| 10 |
|
#include "ray.h" |
| 11 |
|
|
| 12 |
|
#include "otypes.h" |
| 42 |
|
static int maxcntr = 0; /* size of contribution arrays */ |
| 43 |
|
|
| 44 |
|
|
| 45 |
+ |
OBJREC * /* find an object's actual material */ |
| 46 |
+ |
findmaterial(register OBJREC *o) |
| 47 |
+ |
{ |
| 48 |
+ |
while (!ismaterial(o->otype)) { |
| 49 |
+ |
if (ismixture(o->otype)) |
| 50 |
+ |
return(NULL); /* reject mixed materials */ |
| 51 |
+ |
if (o->otype == MOD_ALIAS && o->oargs.nsargs) { |
| 52 |
+ |
OBJECT aobj; |
| 53 |
+ |
OBJREC *ao; |
| 54 |
+ |
aobj = lastmod(objndx(o), o->oargs.sarg[0]); |
| 55 |
+ |
if (aobj < 0) |
| 56 |
+ |
objerror(o, USER, "bad reference"); |
| 57 |
+ |
ao = objptr(aobj); |
| 58 |
+ |
if (ismaterial(ao->otype)) |
| 59 |
+ |
return(ao); |
| 60 |
+ |
} |
| 61 |
+ |
if (o->omod == OVOID) |
| 62 |
+ |
return(NULL); |
| 63 |
+ |
o = objptr(o->omod); |
| 64 |
+ |
} |
| 65 |
+ |
return(o); |
| 66 |
+ |
} |
| 67 |
+ |
|
| 68 |
+ |
|
| 69 |
|
void |
| 70 |
|
marksources() /* find and mark source objects */ |
| 71 |
|
{ |
| 83 |
|
if (!issurface(o->otype) || o->omod == OVOID) |
| 84 |
|
continue; |
| 85 |
|
/* find material */ |
| 86 |
< |
m = objptr(o->omod); |
| 65 |
< |
while (!ismaterial(m->otype)) |
| 66 |
< |
if (ismixture(m->otype) || m->omod == OVOID) { |
| 67 |
< |
m = NULL; |
| 68 |
< |
break; |
| 69 |
< |
} else |
| 70 |
< |
m = objptr(m->omod); |
| 86 |
> |
m = findmaterial(o); |
| 87 |
|
if (m == NULL || !islight(m->otype)) |
| 88 |
|
continue; /* not source modifier */ |
| 89 |
|
|
| 124 |
|
source[ns].sflags |= SSKIP; |
| 125 |
|
} |
| 126 |
|
} |
| 127 |
+ |
#if SHADCACHE |
| 128 |
+ |
source[ns].obscache = NULL; |
| 129 |
+ |
#endif |
| 130 |
|
if (!(source[ns].sflags & SSKIP)) |
| 131 |
|
foundsource++; |
| 132 |
|
} |
| 151 |
|
freesources() /* free all source structures */ |
| 152 |
|
{ |
| 153 |
|
if (nsources > 0) { |
| 154 |
+ |
#if SHADCACHE |
| 155 |
+ |
while (nsources--) |
| 156 |
+ |
freeobscache(&source[nsources]); |
| 157 |
+ |
#endif |
| 158 |
|
free((void *)source); |
| 159 |
|
source = NULL; |
| 160 |
|
nsources = 0; |
| 170 |
|
|
| 171 |
|
|
| 172 |
|
int |
| 173 |
< |
srcray(sr, r, si) /* send a ray to a source, return domega */ |
| 174 |
< |
register RAY *sr; /* returned source ray */ |
| 175 |
< |
RAY *r; /* ray which hit object */ |
| 176 |
< |
SRCINDEX *si; /* source sample index */ |
| 173 |
> |
srcray( /* send a ray to a source, return domega */ |
| 174 |
> |
register RAY *sr, /* returned source ray */ |
| 175 |
> |
RAY *r, /* ray which hit object */ |
| 176 |
> |
SRCINDEX *si /* source sample index */ |
| 177 |
> |
) |
| 178 |
|
{ |
| 179 |
|
double d; /* distance to source */ |
| 180 |
|
register SRCREC *srcp; |
| 209 |
|
|
| 210 |
|
|
| 211 |
|
void |
| 212 |
< |
srcvalue(r) /* punch ray to source and compute value */ |
| 213 |
< |
register RAY *r; |
| 212 |
> |
srcvalue( /* punch ray to source and compute value */ |
| 213 |
> |
register RAY *r |
| 214 |
> |
) |
| 215 |
|
{ |
| 216 |
|
register SRCREC *sp; |
| 217 |
|
|
| 251 |
|
|
| 252 |
|
|
| 253 |
|
int |
| 254 |
< |
sourcehit(r) /* check to see if ray hit distant source */ |
| 255 |
< |
register RAY *r; |
| 254 |
> |
sourcehit( /* check to see if ray hit distant source */ |
| 255 |
> |
register RAY *r |
| 256 |
> |
) |
| 257 |
|
{ |
| 258 |
|
int first, last; |
| 259 |
|
register int i; |
| 291 |
|
|
| 292 |
|
|
| 293 |
|
static int |
| 294 |
< |
cntcmp(sc1, sc2) /* contribution compare (descending) */ |
| 295 |
< |
register CNTPTR *sc1, *sc2; |
| 294 |
> |
cntcmp( /* contribution compare (descending) */ |
| 295 |
> |
const void *p1, |
| 296 |
> |
const void *p2 |
| 297 |
> |
) |
| 298 |
|
{ |
| 299 |
+ |
register const CNTPTR *sc1 = (const CNTPTR *)p1; |
| 300 |
+ |
register const CNTPTR *sc2 = (const CNTPTR *)p2; |
| 301 |
+ |
|
| 302 |
|
if (sc1->brt > sc2->brt) |
| 303 |
|
return(-1); |
| 304 |
|
if (sc1->brt < sc2->brt) |
| 308 |
|
|
| 309 |
|
|
| 310 |
|
void |
| 311 |
< |
direct(r, f, p) /* add direct component */ |
| 312 |
< |
RAY *r; /* ray that hit surface */ |
| 313 |
< |
void (*f)(); /* direct component coefficient function */ |
| 314 |
< |
char *p; /* data for f */ |
| 311 |
> |
direct( /* add direct component */ |
| 312 |
> |
RAY *r, /* ray that hit surface */ |
| 313 |
> |
void (*f)(), /* direct component coefficient function */ |
| 314 |
> |
char *p /* data for f */ |
| 315 |
> |
) |
| 316 |
|
{ |
| 317 |
|
extern void (*trace)(); |
| 318 |
|
register int sn; |
| 345 |
|
cntord[sn].brt = bright(scp->coef); |
| 346 |
|
if (cntord[sn].brt <= 0.0) |
| 347 |
|
continue; |
| 348 |
+ |
#if SHADCACHE |
| 349 |
+ |
/* check shadow cache */ |
| 350 |
+ |
if (si.np == 1 && srcblocked(&sr)) { |
| 351 |
+ |
cntord[sn].brt = 0.0; |
| 352 |
+ |
continue; |
| 353 |
+ |
} |
| 354 |
+ |
#endif |
| 355 |
|
VCOPY(scp->dir, sr.rdir); |
| 356 |
|
/* compute potential */ |
| 357 |
|
sr.revf = srcvalue; |
| 412 |
|
rayparticipate(&sr); |
| 413 |
|
if (trace != NULL) |
| 414 |
|
(*trace)(&sr); /* trace execution */ |
| 415 |
< |
if (bright(sr.rcol) <= FTINY) |
| 415 |
> |
if (bright(sr.rcol) <= FTINY) { |
| 416 |
> |
#if SHADCACHE |
| 417 |
> |
if ((scp <= srccnt || scp[-1].sno != scp->sno) |
| 418 |
> |
&& (scp >= srccnt+ncnts-1 || |
| 419 |
> |
scp[1].sno != scp->sno)) |
| 420 |
> |
srcblocker(&sr); |
| 421 |
> |
#endif |
| 422 |
|
continue; /* missed! */ |
| 423 |
+ |
} |
| 424 |
|
copycolor(scp->val, sr.rcol); |
| 425 |
|
multcolor(scp->val, scp->coef); |
| 426 |
|
} |
| 453 |
|
|
| 454 |
|
|
| 455 |
|
void |
| 456 |
< |
srcscatter(r) /* compute source scattering into ray */ |
| 457 |
< |
register RAY *r; |
| 456 |
> |
srcscatter( /* compute source scattering into ray */ |
| 457 |
> |
register RAY *r |
| 458 |
> |
) |
| 459 |
|
{ |
| 460 |
|
int oldsampndx; |
| 461 |
|
int nsamps; |
| 612 |
|
|
| 613 |
|
|
| 614 |
|
int |
| 615 |
< |
m_light(m, r) /* ray hit a light source */ |
| 616 |
< |
register OBJREC *m; |
| 617 |
< |
register RAY *r; |
| 615 |
> |
m_light( /* ray hit a light source */ |
| 616 |
> |
register OBJREC *m, |
| 617 |
> |
register RAY *r |
| 618 |
> |
) |
| 619 |
|
{ |
| 620 |
|
/* check for over-counting */ |
| 621 |
|
if (badcomponent(m, r)) |