4 |
|
|
5 |
|
Roland Schregle (roland.schregle@{hslu.ch, gmail.com}) |
6 |
|
(c) Fraunhofer Institute for Solar Energy Systems, |
7 |
< |
Lucerne University of Applied Sciences & Arts |
7 |
> |
(c) Lucerne University of Applied Sciences and Arts, |
8 |
> |
supported by the Swiss National Science Foundation (SNSF, #147053) |
9 |
|
================================================================== |
10 |
|
|
11 |
|
$Id$ |
592 |
|
unsigned i, t, p; |
593 |
|
double phi, cosTheta, sinTheta, du, dv, dOmega, thetaScale; |
594 |
|
EmissionSample* sample; |
595 |
< |
const OBJREC* mod = objptr(emap -> src -> so -> omod); |
595 |
> |
const OBJREC* mod = findmaterial(emap -> src -> so); |
596 |
|
static RAY r; |
597 |
|
#if 0 |
598 |
|
static double lastCosNorm = FHUGE; |
599 |
|
static SRCREC *lastSrc = NULL, *lastPort = NULL; |
600 |
|
#endif |
601 |
|
|
602 |
+ |
setcolor(emap -> partFlux, 0, 0, 0); |
603 |
+ |
|
604 |
|
photonOrigin [emap -> src -> so -> otype] (emap); |
605 |
|
cosTheta = DOT(emap -> ws, emap -> wh); |
606 |
|
|
623 |
|
#endif |
624 |
|
|
625 |
|
/* Need to recompute flux & PDF */ |
623 |
– |
setcolor(emap -> partFlux, 0, 0, 0); |
626 |
|
emap -> cdf = 0; |
627 |
|
emap -> numSamples = 0; |
628 |
|
|
741 |
|
unsigned long i, lo, hi; |
742 |
|
const EmissionSample* sample = emap -> samples; |
743 |
|
RREAL du, dv, cosTheta, cosThetaSqr, sinTheta, phi; |
744 |
< |
const OBJREC* mod = objptr(emap -> src -> so -> omod); |
744 |
> |
const OBJREC* mod = findmaterial(emap -> src -> so); |
745 |
|
|
746 |
|
/* Choose a new origin within current partition for every |
747 |
|
emitted photon to break up clustering artifacts */ |