| 199 |
|
} |
| 200 |
|
wtl = ezxml_child(ezxml_child(fl, "Optical"), "Layer"); |
| 201 |
|
if (wtl == NULL) { |
| 202 |
< |
sprintf(SDerrorDetail, "BSDF \"%s\": no optical layers'", |
| 202 |
> |
sprintf(SDerrorDetail, "BSDF \"%s\": no optical layers", |
| 203 |
|
sd->name); |
| 204 |
|
ezxml_free(fl); |
| 205 |
|
return SDEformat; |
| 422 |
|
if (fname == NULL || !*fname) |
| 423 |
|
return NULL; |
| 424 |
|
SDerrorDetail[0] = '\0'; |
| 425 |
+ |
/* PLACE MUTEX LOCK HERE FOR THREAD-SAFE */ |
| 426 |
|
if ((sd = SDgetCache(fname)) == NULL) { |
| 427 |
|
SDreportError(SDEmemory, stderr); |
| 428 |
|
return NULL; |
| 430 |
|
if (!SDisLoaded(sd) && (ec = SDloadFile(sd, fname))) { |
| 431 |
|
SDreportError(ec, stderr); |
| 432 |
|
SDfreeCache(sd); |
| 433 |
< |
return NULL; |
| 433 |
> |
sd = NULL; |
| 434 |
|
} |
| 435 |
+ |
/* END MUTEX LOCK */ |
| 436 |
|
return sd; |
| 437 |
|
} |
| 438 |
|
|
| 490 |
|
return SDEargument; |
| 491 |
|
/* get cumulative distribution */ |
| 492 |
|
VCOPY(inVec, ioVec); |
| 493 |
+ |
sv->cieY = 0; |
| 494 |
|
cd = (*sdc->func->getCDist)(inVec, sdc); |
| 495 |
< |
if (cd == NULL) |
| 496 |
< |
return SDEmemory; |
| 497 |
< |
if (cd->cTotal <= 1e-6) { /* anything to sample? */ |
| 495 |
> |
if (cd != NULL) |
| 496 |
> |
sv->cieY = cd->cTotal; |
| 497 |
> |
if (sv->cieY <= 1e-6) { /* nothing to sample? */ |
| 498 |
|
sv->spec = c_dfcolor; |
| 499 |
< |
sv->cieY = .0; |
| 497 |
< |
memset(ioVec, 0, 3*sizeof(double)); |
| 499 |
> |
memset(ioVec, 0, sizeof(FVECT)); |
| 500 |
|
return SDEnone; |
| 501 |
|
} |
| 500 |
– |
sv->cieY = cd->cTotal; |
| 502 |
|
/* compute sample direction */ |
| 503 |
|
ec = (*sdc->func->sampCDist)(ioVec, randX, cd); |
| 504 |
|
if (ec) |
| 515 |
|
c_cmix(&sv->spec, d, &sv->spec, coef[n], &sdc->cspec[n]); |
| 516 |
|
d += coef[n]; |
| 517 |
|
} |
| 518 |
< |
/* make sure everything is set */ |
| 518 |
< |
c_ccvt(&sv->spec, C_CSXY+C_CSSPEC); |
| 518 |
> |
c_ccvt(&sv->spec, C_CSXY); /* make sure (x,y) is set */ |
| 519 |
|
return SDEnone; |
| 520 |
|
} |
| 521 |
|
|
| 559 |
|
SDmultiSamp(outVec, 2, randX); |
| 560 |
|
SDsquare2disk(outVec, outVec[0], outVec[1]); |
| 561 |
|
outVec[2] = 1. - outVec[0]*outVec[0] - outVec[1]*outVec[1]; |
| 562 |
< |
if (outVec[2] > 0) /* a bit of paranoia */ |
| 563 |
< |
outVec[2] = sqrt(outVec[2]); |
| 562 |
> |
outVec[2] = sqrt(outVec[2]*(outVec[2]>0)); |
| 563 |
|
if (!outFront) /* going out back? */ |
| 564 |
|
outVec[2] = -outVec[2]; |
| 565 |
|
} |
| 596 |
|
rdf = sd->rb; |
| 597 |
|
tdf = (sd->tb != NULL) ? sd->tb : sd->tf; |
| 598 |
|
} |
| 599 |
< |
if (v2 != NULL) /* bidirectional? */ |
| 599 |
> |
if (v2 != NULL) { /* bidirectional? */ |
| 600 |
|
if (v1[2] > 0 ^ v2[2] > 0) |
| 601 |
|
rdf = NULL; |
| 602 |
|
else |
| 603 |
|
tdf = NULL; |
| 604 |
+ |
} |
| 605 |
|
ec = SDEdata; /* run through components */ |
| 606 |
|
for (i = (rdf==NULL) ? 0 : rdf->ncomp; i--; ) { |
| 607 |
|
ec = (*rdf->comp[i].func->queryProjSA)(projSA, v1, v2, |
| 619 |
|
projSA[0] = M_PI; |
| 620 |
|
if (qflags == SDqueryMin+SDqueryMax) |
| 621 |
|
projSA[1] = M_PI; |
| 622 |
< |
} |
| 622 |
> |
} else if (qflags == SDqueryMin+SDqueryMax && projSA[0] > projSA[1]) |
| 623 |
> |
projSA[0] = projSA[1]; |
| 624 |
|
return SDEnone; |
| 625 |
|
} |
| 626 |
|
|
| 648 |
|
} else if (inFront) { |
| 649 |
|
*sv = sd->tLamb; |
| 650 |
|
sdf = (sd->tf != NULL) ? sd->tf : sd->tb; |
| 651 |
< |
} else /* inBack */ { |
| 651 |
> |
} else /* outFront & !inFront */ { |
| 652 |
|
*sv = sd->tLamb; |
| 653 |
|
sdf = (sd->tb != NULL) ? sd->tb : sd->tf; |
| 654 |
|
} |
| 664 |
|
sv->cieY += coef[nch]; |
| 665 |
|
} |
| 666 |
|
} |
| 667 |
< |
/* make sure everything is set */ |
| 667 |
< |
c_ccvt(&sv->spec, C_CSXY+C_CSSPEC); |
| 667 |
> |
c_ccvt(&sv->spec, C_CSXY); /* make sure (x,y) is set */ |
| 668 |
|
return SDEnone; |
| 669 |
|
} |
| 670 |
|
|
| 756 |
|
return SDEmemory; |
| 757 |
|
while (j-- > 0) { /* non-diffuse transmission */ |
| 758 |
|
cdarr[i+j] = (*tdf->comp[j].func->getCDist)(inVec, &tdf->comp[j]); |
| 759 |
< |
if (cdarr[i+j] == NULL) { |
| 760 |
< |
free(cdarr); |
| 761 |
< |
return SDEmemory; |
| 762 |
< |
} |
| 759 |
> |
if (cdarr[i+j] == NULL) |
| 760 |
> |
cdarr[i+j] = &SDemptyCD; |
| 761 |
|
sv->cieY += cdarr[i+j]->cTotal; |
| 762 |
|
} |
| 763 |
|
while (i-- > 0) { /* non-diffuse reflection */ |
| 764 |
|
cdarr[i] = (*rdf->comp[i].func->getCDist)(inVec, &rdf->comp[i]); |
| 765 |
< |
if (cdarr[i] == NULL) { |
| 766 |
< |
free(cdarr); |
| 769 |
< |
return SDEmemory; |
| 770 |
< |
} |
| 765 |
> |
if (cdarr[i] == NULL) |
| 766 |
> |
cdarr[i] = &SDemptyCD; |
| 767 |
|
sv->cieY += cdarr[i]->cTotal; |
| 768 |
|
} |
| 769 |
|
if (sv->cieY <= 1e-6) { /* anything to sample? */ |
| 770 |
|
sv->cieY = .0; |
| 771 |
< |
memset(ioVec, 0, 3*sizeof(double)); |
| 771 |
> |
memset(ioVec, 0, sizeof(FVECT)); |
| 772 |
|
return SDEnone; |
| 773 |
|
} |
| 774 |
|
/* scale random variable */ |
| 789 |
|
randX -= sd->tLamb.cieY; |
| 790 |
|
} |
| 791 |
|
/* else one of cumulative dist. */ |
| 792 |
< |
for (i = 0; i < n && randX < cdarr[i]->cTotal; i++) |
| 792 |
> |
for (i = 0; i < n && randX >= cdarr[i]->cTotal; i++) |
| 793 |
|
randX -= cdarr[i]->cTotal; |
| 794 |
|
if (i >= n) |
| 795 |
|
return SDEinternal; |
| 814 |
|
done: |
| 815 |
|
if (cdarr != NULL) |
| 816 |
|
free(cdarr); |
| 817 |
< |
/* make sure everything is set */ |
| 822 |
< |
c_ccvt(&sv->spec, C_CSXY+C_CSSPEC); |
| 817 |
> |
c_ccvt(&sv->spec, C_CSXY); /* make sure (x,y) is set */ |
| 818 |
|
return SDEnone; |
| 819 |
|
} |
| 820 |
|
|