home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / lib / tim1.cal < prev    next >
Encoding:
Text File  |  1991-11-29  |  606 b   |  28 lines
  1. {
  2.     Calculate BRTDF of Transparent Insulation Materials
  3.     made up of many small tubes packed tightly together.
  4.  
  5.     29 Nov 1991    Greg Ward and Raphael Compagnon
  6.  
  7.     Apply with following BRTDfunc:
  8.  
  9.     mod BRTDfunc tim1
  10.     10    0    0    0
  11.         stran    stran    stran
  12.         brtdf    brtdf    brtdf
  13.         tim1.cal
  14.     0
  15.     7 0 0 0 R T 1 K
  16.  
  17.     where:
  18.         R = diffuse reflectance when Ktan_t is zero
  19.         T = total transmittance divided by (1-R)
  20.         K = ratio of tube length to diameter
  21. }
  22.  
  23. Ktan_t = A7 * Sqrt(1-Rdot*Rdot)/Rdot;
  24.  
  25. stran = if(1-Ktan_t, 2/PI*Acos(Ktan_t) - Ktan_t/PI*Sqrt(1-Ktan_t*Ktan_t), 0);
  26.  
  27. brtdf(lx,ly,lz) = (1-stran)/PI;
  28.