ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/cal/denom.cal
Revision: 1.2
Committed: Thu Oct 26 21:58:40 2006 UTC (17 years, 5 months ago) by greg
Branch: MAIN
CVS Tags: rad5R2, rad4R2P2, rad5R0, rad5R1, rad4R2, rad4R1, rad4R0, rad3R9, rad4R2P1
Changes since 1.1: +1 -1 lines
Log Message:
Minor simplification

File Contents

# Content
1 frac(x,e) : x - floor(x+e);
2 sq(x) : x * x;
3
4 denom(x,e) : if( e-frac(x,e), 1, if( e-frac(1/x,e), floor(1/x+e),
5 denom(frac(1/frac(1/x,e),e),e/sq(x*frac(1/x,e))) +
6 floor(1/x+e)*denom(frac(1/x,e),e/sq(x)) ) );