| 953 |
|
/* Convert illuminance to irradiance */ |
| 954 |
|
index = GetCategoryIndex(); |
| 955 |
|
diff_irrad = diff_illum / CalcDiffuseIllumRatio(index); |
| 956 |
< |
dir_irrad = dir_illum / CalcDirectIllumRatio(index); |
| 956 |
> |
dir_irrad = CalcDirectIllumRatio(index); |
| 957 |
> |
if (dir_irrad > 0.1) |
| 958 |
> |
dir_irrad = dir_illum / dir_irrad; |
| 959 |
|
|
| 960 |
|
/* Calculate sky brightness and clearness */ |
| 961 |
|
sky_brightness = CalcSkyBrightness(); |
| 1130 |
|
double aas; /* Sun-sky point azimuthal angle */ |
| 1131 |
|
double sspa; /* Sun-sky point angle */ |
| 1132 |
|
double zsa; /* Zenithal sun angle */ |
| 1131 |
– |
|
| 1132 |
– |
perez_param[0], perez_param[1], perez_param[2], perez_param[3], perez_param[4]); |
| 1133 |
|
|
| 1134 |
|
for (i = 1; i < nskypatch; i++) |
| 1135 |
|
{ |
