ray/lib/weave.cal

{
        weave.cal - function for simple diagonal weave pattern
                        on horizontal surface.
        
        A1 is weave square size.
}

weave = f_weave(frac((Px+Pz)/1.4142/A1),frac((Px-Pz)/1.4142/A1));

f_weave(m1,m2) = if (m1-.5, if (m1-.55, f_weave(m2,1.05-m1), .1),
                 if (m2-.5, if (m2-.55, f_weave(1.05-m2,m1), .1),
        if (m1-.05, if (m2-.25, if (m2-.3, .5, .1), if (m2-.05, 1, .1)), .1)));
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	weave.cal - function for simple diagonal weave pattern
3	on horizontal surface.
4
5	A1 is weave square size.
6	}
7
8	weave = f_weave(frac((Px+Pz)/1.4142/A1),frac((Px-Pz)/1.4142/A1));
9
10	f_weave(m1,m2) = if (m1-.5, if (m1-.55, f_weave(m2,1.05-m1), .1),
11	if (m2-.5, if (m2-.55, f_weave(1.05-m2,m1), .1),
12	if (m1-.05, if (m2-.25, if (m2-.3, .5, .1), if (m2-.05, 1, .1)), .1)));