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 (21 years, 3 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
#	User	Rev	Content
1	greg	1.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)));