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 (21 years, 2 months 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
#	Content
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) ;