home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / cal / g.cal < prev    next >
Encoding:
Text File  |  1986-05-02  |  154 b   |  8 lines
  1. A(x)=g(x)/cos(n-l)/cos(n-x)/PI;
  2. g(x)=min(1,2*cos(n-h(x))/cos(x-h(x))*min(cos(n-x),cos(n-l)));
  3. h(x)=(x+l)/2;
  4. min(a,b)=if(a-b,b,a);
  5.  
  6. n=PI/2;
  7. l=PI/4;
  8.