| 1 |
< |
/* Copyright (c) 1995 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1996 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 197 |
|
if ((dist = r->rot) >= FHUGE) |
| 198 |
|
dist = 2.*thescene.cusize; /* what to use for infinity? */ |
| 199 |
|
if (r->crtype & SHADOW) |
| 200 |
< |
dist *= 1. - salbedo; /* no scattering for sources */ |
| 200 |
> |
dist *= 1. - r->albedo; /* no scattering for sources */ |
| 201 |
|
if (dist <= FTINY) |
| 202 |
|
return; /* no effective ray travel */ |
| 203 |
|
re = dist*colval(r->cext,RED); |
| 209 |
|
multcolor(r->rcol, ce); /* path absorption */ |
| 210 |
|
if (r->albedo <= FTINY || r->crtype & SHADOW) |
| 211 |
|
return; /* no scattering */ |
| 212 |
< |
setcolor(ca, salbedo*colval(ambval,RED)*(1.-colval(ce,RED)), |
| 213 |
< |
salbedo*colval(ambval,GRN)*(1.-colval(ce,GRN)), |
| 214 |
< |
salbedo*colval(ambval,BLU)*(1.-colval(ce,BLU))); |
| 212 |
> |
setcolor(ca, r->albedo*colval(ambval,RED)*(1.-colval(ce,RED)), |
| 213 |
> |
r->albedo*colval(ambval,GRN)*(1.-colval(ce,GRN)), |
| 214 |
> |
r->albedo*colval(ambval,BLU)*(1.-colval(ce,BLU))); |
| 215 |
|
addcolor(r->rcol, ca); /* ambient in scattering */ |
| 216 |
|
srcscatter(r); /* source in scattering */ |
| 217 |
|
} |
