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
#	Content
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;