ray/lib/wrinkle.cal

{
        A texture function for wrinkled materials.

        11/23/93        Greg Ward

        A1      - average rise of wrinkles
        A2      - average run of wrinkles
        A3      - average spacing of wrinkles
}

diri = noise3(Px/A2/3,Py/A2/3,Pz/A2/3);

mx = Sqrt(-diri);
my = Sqrt(1-abs(diri));
mz = Sqrt(diri);

xwrink = Rdot*A1/A3*mx*fnoise3(Px/A3,Py/A2,Pz/A2);
ywrink = Rdot*A1/A3*my*fnoise3(Px/A2,Py/A3,Pz/A2);
zwrink = Rdot*A1/A3*mz*fnoise3(Py/A2,Py/A2,Pz/A3);
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
#	Content
1	{
2	A texture function for wrinkled materials.
3
4	11/23/93 Greg Ward
5
6	A1 - average rise of wrinkles
7	A2 - average run of wrinkles
8	A3 - average spacing of wrinkles
9	}
10
11	diri = noise3(Px/A2/3,Py/A2/3,Pz/A2/3);
12
13	mx = Sqrt(-diri);
14	my = Sqrt(1-abs(diri));
15	mz = Sqrt(diri);
16
17	xwrink = RdotA1/A3mx*fnoise3(Px/A3,Py/A2,Pz/A2);
18	ywrink = RdotA1/A3my*fnoise3(Px/A2,Py/A3,Pz/A2);
19	zwrink = RdotA1/A3mz*fnoise3(Py/A2,Py/A2,Pz/A3);