| 41 | 
  | 
        RAY  *r, | 
| 42 | 
  | 
        int  rt, | 
| 43 | 
  | 
        const RAY  *ro, | 
| 44 | 
< | 
        const COLOR rc | 
| 44 | 
> | 
        const SCOLOR rc | 
| 45 | 
  | 
) | 
| 46 | 
  | 
{ | 
| 47 | 
  | 
        double  rw, re; | 
| 48 | 
  | 
                                                /* assign coefficient/weight */ | 
| 49 | 
  | 
        if (rc == NULL) { | 
| 50 | 
  | 
                rw = 1.0; | 
| 51 | 
< | 
                setcolor(r->rcoef, 1., 1., 1.); | 
| 51 | 
> | 
                setscolor(r->rcoef, 1., 1., 1.); | 
| 52 | 
  | 
        } else { | 
| 53 | 
< | 
                rw = intens(rc); | 
| 53 | 
> | 
                rw = sintens((COLORV *)rc); | 
| 54 | 
  | 
                if (rw > 1.0) | 
| 55 | 
  | 
                        rw = 1.0;               /* avoid calculation growth */ | 
| 56 | 
  | 
                if (rc != r->rcoef) | 
| 57 | 
< | 
                        copycolor(r->rcoef, rc); | 
| 57 | 
> | 
                        copyscolor(r->rcoef, rc); | 
| 58 | 
  | 
        } | 
| 59 | 
  | 
        if ((r->parent = ro) == NULL) {         /* primary ray */ | 
| 60 | 
  | 
                r->rlvl = 0; | 
| 126 | 
  | 
                if (frandom() > r->rweight/minweight) | 
| 127 | 
  | 
                        return(-1); | 
| 128 | 
  | 
                rw = minweight/r->rweight;      /* promote survivor */ | 
| 129 | 
< | 
                scalecolor(r->rcoef, rw); | 
| 129 | 
> | 
                scalescolor(r->rcoef, rw); | 
| 130 | 
  | 
                r->rweight = minweight; | 
| 131 | 
  | 
                return(0); | 
| 132 | 
  | 
        } | 
| 152 | 
  | 
        r->pert[0] = r->pert[1] = r->pert[2] = 0.0; | 
| 153 | 
  | 
        r->rflips = 0; | 
| 154 | 
  | 
        r->uv[0] = r->uv[1] = 0.0; | 
| 155 | 
< | 
        setcolor(r->pcol, 1.0, 1.0, 1.0); | 
| 156 | 
< | 
        setcolor(r->mcol, 0.0, 0.0, 0.0); | 
| 157 | 
< | 
        setcolor(r->rcol, 0.0, 0.0, 0.0); | 
| 155 | 
> | 
        setscolor(r->pcol, 1.0, 1.0, 1.0); | 
| 156 | 
> | 
        scolorblack(r->mcol); | 
| 157 | 
> | 
        scolorblack(r->rcol); | 
| 158 | 
  | 
} | 
| 159 | 
  | 
 | 
| 160 | 
  | 
 | 
| 199 | 
  | 
        rayorigin(&tr, TRANS, r, NULL);         /* always continue */ | 
| 200 | 
  | 
        VCOPY(tr.rdir, r->rdir); | 
| 201 | 
  | 
        rayvalue(&tr); | 
| 202 | 
< | 
        copycolor(r->mcol, tr.mcol); | 
| 203 | 
< | 
        copycolor(r->rcol, tr.rcol); | 
| 202 | 
> | 
        copyscolor(r->mcol, tr.mcol); | 
| 203 | 
> | 
        copyscolor(r->rcol, tr.rcol); | 
| 204 | 
  | 
        r->rmt = r->rot + tr.rmt; | 
| 205 | 
  | 
        r->rxt = r->rot + tr.rxt; | 
| 206 | 
  | 
} | 
| 218 | 
  | 
                        return(1); | 
| 219 | 
  | 
                } | 
| 220 | 
  | 
                if (!islight(m->otype)) { | 
| 221 | 
< | 
                        setcolor(r->pcol, 1.0, 1.0, 1.0); | 
| 221 | 
> | 
                        setscolor(r->pcol, 1.0, 1.0, 1.0); | 
| 222 | 
  | 
                        return((*ofun[Lamb.otype].funp)(&Lamb, r)); | 
| 223 | 
  | 
                } | 
| 224 | 
  | 
        } | 
| 260 | 
  | 
        RAY  *r | 
| 261 | 
  | 
) | 
| 262 | 
  | 
{ | 
| 263 | 
< | 
        COLOR   ce, ca; | 
| 263 | 
> | 
        SCOLOR  ce, ca; | 
| 264 | 
  | 
        double  re, ge, be; | 
| 265 | 
  | 
 | 
| 266 | 
  | 
        if (intens(r->cext) <= 1./FHUGE) | 
| 273 | 
  | 
                ge *= 1. - colval(r->albedo,GRN); | 
| 274 | 
  | 
                be *= 1. - colval(r->albedo,BLU); | 
| 275 | 
  | 
        } | 
| 276 | 
< | 
        setcolor(ce,    re<=FTINY ? 1. : re>92. ? 0. : exp(-re), | 
| 276 | 
> | 
        setscolor(ce,   re<=FTINY ? 1. : re>92. ? 0. : exp(-re), | 
| 277 | 
  | 
                        ge<=FTINY ? 1. : ge>92. ? 0. : exp(-ge), | 
| 278 | 
  | 
                        be<=FTINY ? 1. : be>92. ? 0. : exp(-be)); | 
| 279 | 
< | 
        multcolor(r->rcol, ce);                 /* path extinction */ | 
| 279 | 
> | 
        smultscolor(r->rcol, ce);               /* path extinction */ | 
| 280 | 
  | 
        if (r->crtype & SHADOW || intens(r->albedo) <= FTINY) | 
| 281 | 
  | 
                return;                         /* no scattering */ | 
| 282 | 
  | 
         | 
| 283 | 
  | 
        /* PMAP: indirect inscattering accounted for by volume photons? */ | 
| 284 | 
  | 
        if (!volumePhotonMapping) { | 
| 285 | 
< | 
                setcolor(ca, | 
| 285 | 
> | 
                setscolor(ca, | 
| 286 | 
  | 
                        colval(r->albedo,RED)*colval(ambval,RED)*(1.-colval(ce,RED)), | 
| 287 | 
  | 
                        colval(r->albedo,GRN)*colval(ambval,GRN)*(1.-colval(ce,GRN)), | 
| 288 | 
  | 
                        colval(r->albedo,BLU)*colval(ambval,BLU)*(1.-colval(ce,BLU))); | 
| 289 | 
< | 
                addcolor(r->rcol, ca);                  /* ambient in scattering */ | 
| 289 | 
> | 
                saddscolor(r->rcol, ca);                /* ambient in scattering */ | 
| 290 | 
  | 
        } | 
| 291 | 
  | 
         | 
| 292 | 
  | 
        srcscatter(r);                          /* source in scattering */ | 
| 341 | 
  | 
        fr = *r; | 
| 342 | 
  | 
        if (coef > FTINY) { | 
| 343 | 
  | 
                fr.rweight *= coef; | 
| 344 | 
< | 
                scalecolor(fr.rcoef, coef); | 
| 344 | 
> | 
                scalescolor(fr.rcoef, coef); | 
| 345 | 
  | 
                foremat = rayshade(&fr, fore); | 
| 346 | 
  | 
        } | 
| 347 | 
  | 
                                        /* background */ | 
| 348 | 
  | 
        br = *r; | 
| 349 | 
  | 
        if (coef < 1.0-FTINY) { | 
| 350 | 
  | 
                br.rweight *= 1.0-coef; | 
| 351 | 
< | 
                scalecolor(br.rcoef, 1.0-coef); | 
| 351 | 
> | 
                scalescolor(br.rcoef, 1.0-coef); | 
| 352 | 
  | 
                backmat = rayshade(&br, back); | 
| 353 | 
  | 
        } | 
| 354 | 
  | 
                                        /* check for transparency */ | 
| 362 | 
  | 
        for (i = 0; i < 3; i++) | 
| 363 | 
  | 
                r->pert[i] = coef*fr.pert[i] + (1.0-coef)*br.pert[i]; | 
| 364 | 
  | 
                                        /* mix pattern colors */ | 
| 365 | 
< | 
        scalecolor(fr.pcol, coef); | 
| 366 | 
< | 
        scalecolor(br.pcol, 1.0-coef); | 
| 367 | 
< | 
        copycolor(r->pcol, fr.pcol); | 
| 368 | 
< | 
        addcolor(r->pcol, br.pcol); | 
| 365 | 
> | 
        scalescolor(fr.pcol, coef); | 
| 366 | 
> | 
        scalescolor(br.pcol, 1.0-coef); | 
| 367 | 
> | 
        copyscolor(r->pcol, fr.pcol); | 
| 368 | 
> | 
        saddscolor(r->pcol, br.pcol); | 
| 369 | 
  | 
                                        /* return value tells if material */ | 
| 370 | 
  | 
        if (!foremat & !backmat) | 
| 371 | 
  | 
                return(0); | 
| 372 | 
  | 
                                        /* mix returned ray values */ | 
| 373 | 
< | 
        scalecolor(fr.rcol, coef); | 
| 374 | 
< | 
        scalecolor(br.rcol, 1.0-coef); | 
| 375 | 
< | 
        copycolor(r->rcol, fr.rcol); | 
| 376 | 
< | 
        addcolor(r->rcol, br.rcol); | 
| 377 | 
< | 
        scalecolor(fr.mcol, coef); | 
| 378 | 
< | 
        scalecolor(br.mcol, 1.0-coef); | 
| 379 | 
< | 
        copycolor(r->mcol, fr.mcol); | 
| 380 | 
< | 
        addcolor(r->mcol, br.mcol); | 
| 381 | 
< | 
        mfore = bright(fr.mcol); mback = bright(br.mcol); | 
| 373 | 
> | 
        scalescolor(fr.rcol, coef); | 
| 374 | 
> | 
        scalescolor(br.rcol, 1.0-coef); | 
| 375 | 
> | 
        copyscolor(r->rcol, fr.rcol); | 
| 376 | 
> | 
        saddscolor(r->rcol, br.rcol); | 
| 377 | 
> | 
        scalescolor(fr.mcol, coef); | 
| 378 | 
> | 
        scalescolor(br.mcol, 1.0-coef); | 
| 379 | 
> | 
        copyscolor(r->mcol, fr.mcol); | 
| 380 | 
> | 
        saddscolor(r->mcol, br.mcol); | 
| 381 | 
> | 
        mfore = pbright(fr.mcol); mback = pbright(br.mcol); | 
| 382 | 
  | 
        r->rmt = mfore > mback ? fr.rmt : br.rmt; | 
| 383 | 
< | 
        r->rxt = bright(fr.rcol)-mfore > bright(br.rcol)-mback ? | 
| 383 | 
> | 
        r->rxt = pbright(fr.rcol)-mfore > pbright(br.rcol)-mback ? | 
| 384 | 
  | 
                        fr.rxt : br.rxt; | 
| 385 | 
  | 
        return(1); | 
| 386 | 
  | 
} | 
| 404 | 
  | 
 | 
| 405 | 
  | 
void | 
| 406 | 
  | 
raycontrib(             /* compute (cumulative) ray contribution */ | 
| 407 | 
< | 
        RREAL  rc[3], | 
| 407 | 
> | 
        SCOLOR  rc, | 
| 408 | 
  | 
        const RAY  *r, | 
| 409 | 
  | 
        int  flags | 
| 410 | 
  | 
) | 
| 411 | 
  | 
{ | 
| 412 | 
  | 
        static int      warnedPM = 0; | 
| 413 | 
  | 
 | 
| 414 | 
< | 
        rc[0] = rc[1] = rc[2] = 1.; | 
| 414 | 
> | 
        setscolor(rc, 1., 1., 1.); | 
| 415 | 
  | 
 | 
| 416 | 
  | 
        while (r != NULL && r->crtype&flags) { | 
| 417 | 
< | 
                int     i = 3; | 
| 418 | 
< | 
                while (i--) | 
| 419 | 
< | 
                        rc[i] *= colval(r->rcoef,i); | 
| 417 | 
> | 
                smultscolor(rc, r->rcoef); | 
| 418 | 
  | 
                                        /* check for participating medium */ | 
| 419 | 
  | 
                if (!warnedPM && (bright(r->cext) > FTINY) | | 
| 420 | 
  | 
                                (bright(r->albedo) > FTINY)) { |