ray/lib/corrug.cal

{
    Rippled roofing iron
    P.D.Bourke
    September 1991

    One parameter, A1 = number of cycles per unit distance
}
theta = 4 * PI * (frac(A1*2*PI*Px) - 0.5);
zcor = 1 + cos(theta);
xcor = zcor * sin(theta);
ycor = 0;
Revision:	1.2
Committed:	Tue Mar 18 17:30:17 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			Rippled roofing iron
3			P.D.Bourke
4			September 1991
5
6			One parameter, A1 = number of cycles per unit distance
7			}
8			theta = 4 * PI * (frac(A12PI*Px) - 0.5);
9			zcor = 1 + cos(theta);
10			xcor = zcor * sin(theta);
11			ycor = 0;