//flexplane steigend gewoben

global proc flexplane (int $max, float $size, int $up)
{
	//Flexplane #of U & V spans, step count in the loops, distance for Z displacement

	select -all;
	delete;


	// 1. Create a NURBS plane - fixes size of 154x114x23 positioned for milling
	nurbsPlane -n "flexPlane" -p 77 57 0 -ax 0 0 1 -w 154 -lr 0.7402597403 -d 3 -u $max -v $max -ch 1; 

	// 2. generate compressions in the X direction as a line
		for($xCounter=2; $xCounter<=($max); $xCounter+=$size)
		{
			select -r flexPlane.cv[$xCounter][0:($max+2)] ;		
			// moves the controlvertex in Z direction:
			move -r 0 0 ($xCounter/2);
		};
		
	// 2. generate compressions in the Y direction as a line
	for($yCounter=2; $yCounter<=($max); $yCounter+=$size)
		{
			select -r flexPlane.cv[0:($max+2)][$yCounter];		
			// moves the controlvertex in Z direction:
			move -r 0 0 $up;
		};

	// 2. generate compressions in on every 3x3 CV point.

	for($xCounter=2; $xCounter<=($max); $xCounter+=3)
		{
			for($yCounter=2; $yCounter<=($max); $yCounter+=3)
			{
				// selects a vertex:
				select -r flexPlane.cv[$xCounter][$yCounter] ;		
				// moves the controlvertex in Z direction:
				move -r 0 0 $up;
			};
		};
	
};

//flexplane 20 2 5;