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.1
Committed:	Wed Mar 12 17:45:47 2003 UTC (21 years, 3 months ago) by greg
Branch:	MAIN
Log Message:	Added the rest of the missing files to ray/lib/
#	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;