| 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(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)) { |