81 |
|
|
82 |
|
/* Include files */ |
83 |
|
#define _USE_MATH_DEFINES |
84 |
– |
#include <stdio.h> |
84 |
|
#include <stdlib.h> |
86 |
– |
#include <string.h> |
85 |
|
#include <ctype.h> |
86 |
|
#include "platform.h" |
87 |
|
#include "rtmath.h" |
667 |
|
diff_illum = diff_irrad * WHTEFFICACY; |
668 |
|
dir_illum = dir_irrad * WHTEFFICACY; |
669 |
|
} |
672 |
– |
|
673 |
– |
if (bright(skycolor) <= 1e-4) { /* 0 sky component? */ |
674 |
– |
memset(parr, 0, sizeof(float)*3*nskypatch); |
675 |
– |
return; |
676 |
– |
} |
670 |
|
/* Compute ground radiance (include solar contribution if any) */ |
671 |
|
parr[0] = diff_illum; |
672 |
|
if (altitude > 0) |
674 |
|
parr[2] = parr[1] = parr[0] *= (1./PI/WHTEFFICACY); |
675 |
|
multcolor(parr, grefl); |
676 |
|
|
677 |
+ |
if (bright(skycolor) <= 1e-4) { /* 0 sky component? */ |
678 |
+ |
memset(parr+3, 0, sizeof(float)*3*(nskypatch-1)); |
679 |
+ |
return; |
680 |
+ |
} |
681 |
|
/* Calculate Perez sky model parameters */ |
682 |
|
CalcPerezParam(sun_zenith, sky_clearness, sky_brightness, index); |
683 |
|
|