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 (22 years, 1 month ago) by greg
Branch:	MAIN
Log Message:	Added the rest of the missing files to ray/lib/
#	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;