ray/lib/woodpat.cal

{
        Wood grain pattern:

        A1 - magnitude (0 to 1)
}

xgrain = woodgrain(Ring(Py,Pz));        { along x axis }
ygrain = woodgrain(Ring(Px,Pz));        { along y axis }
zgrain = woodgrain(Ring(Px,Py));        { along z axis }

woodgrain(r) = hermite(.6-A1/2,.6+A1/2,2,.5,2*tri(r,.5));

Ring(a,b) = sqrt( 25 + sq(mod(a,50)-25) + sq(mod(b,50)-25)) +
                  7 * fnoise3(Px/40,Py/40,Pz/40) ;
Revision:	1.2
Committed:	Tue Mar 18 17:30:18 2003 UTC (22 years, 1 month ago) by greg
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	Decided to move ray/lib directory into non-CVS distribution
#	User	Rev	Content
1	greg	1.1	{
2			Wood grain pattern:
3
4			A1 - magnitude (0 to 1)
5			}
6
7			xgrain = woodgrain(Ring(Py,Pz)); { along x axis }
8			ygrain = woodgrain(Ring(Px,Pz)); { along y axis }
9			zgrain = woodgrain(Ring(Px,Py)); { along z axis }
10
11			woodgrain(r) = hermite(.6-A1/2,.6+A1/2,2,.5,2*tri(r,.5));
12
13			Ring(a,b) = sqrt( 25 + sq(mod(a,50)-25) + sq(mod(b,50)-25)) +
14			7 * fnoise3(Px/40,Py/40,Pz/40) ;