home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / LIB / SKYBRIGH.CAL < prev    next >
Text File  |  1993-10-07  |  786b  |  31 lines
  1. { SCCSid "@(#)skybright.cal 2.3 6/17/92 LBL" }
  2.  
  3. {
  4.      Sky brightness function for sunny and cloudy skies.
  5.  
  6.     6/6/86
  7.  
  8.      Additional arguments required for calculation of skybright:
  9.  
  10.     A1            - boolean, positive for cloudy sky
  11.                   (A1>=2 for cloudy uniform sky)
  12.     A2            - zenith brightness
  13.     A3            - ground plane brightness
  14.     A4            - normalization factor based on sun direction
  15.     A5,A6,A7        - sun direction
  16. }
  17.  
  18. skybright = wmean((Dz+1.01)^10, if(A1, cloudysky, sunnysky),
  19.         (Dz+1.01)^-10, A3);
  20.  
  21. wmean(a, x, b, y) = (a*x + b*y) / (a + b);
  22.  
  23. cloudysky = A2 * if(A1-1.5, 1, (1 + 2*Dz)/3);
  24.  
  25. sunnysky = A2 * (.91 + 10*exp(-3*gamma) + .45*cosgamma*cosgamma)
  26.           *  if( Dz - .01, 1.0 - exp(-.32/Dz), 1.0) / A4;
  27.  
  28. gamma = Acos(cosgamma);
  29.  
  30. cosgamma = Dx*A5 + Dy*A6 + Dz*A7;
  31.