select -all;
delete;

// 1. Create a NURBS plane
nurbsPlane -n "nurbsPlane2" -p 0 0 0 -ax 0 0 1 -w 10 -lr 1 -d 3 -u 40 -v 40 -ch 1; objectMoveCommand;


// 2. streifen - create a series of stripes in random positions

int $x1,$x2,$y1,$z1,$swap;

int $maxX=40;
int $maxY=40;

int $i;

for ($i=0; $i<30; $i++)
{
	$y1=rand(2,$maxY+1);
	$x1=rand(2,$maxX+1);
	$x2=rand(2,$maxX+1);

	if($x1>$x2)
  	{
		$swap=$x1;
		$x1=$x2;
		$x2=$swap;
	}

	select -r nurbsPlane2.cv[$x1:$x2][$y1];
	move -r 0 0 0.2 ;
};
select -cl;

// script3 

float $dist1,$dist2;
float $cp1[];
float $cp2[];
for ($x1=2; $x1<=$maxX; $x1++)
{
	for ($y1=2; $y1<=$maxY; $y1++)
	{
		float $cp1[]=getAttr ( "nurbsPlane2.cp[" + ($x1) + "][" +($y1-1)+ "]" );
		float $cp2[]=getAttr ( "nurbsPlane2.cp[" + ($x1) + "][" +($y1+1)+ "]" );
		$dist1=$cp1[1]-$cp2[1];
		float $cp1[]=getAttr ( "nurbsPlane2.cp[" + ($x1-1) + "][" +($y1)+ "]" );
		float $cp2[]=getAttr ( "nurbsPlane2.cp[" + ($x1+1) + "][" +($y1)+ "]" );
		$dist2=$cp1[1]-$cp2[1];

		select -r nurbsPlane2.cv[$x1][$y1];
		move -r ($dist2/10.0) 0 ($dist1/10.0) ;
	} 
}
;

// script4: spiegeln 

int $maxX=52,$maxY=32;
float $dist1,$dist2;
float $cp1[],$cp2[];
for ($x1=0; $x1<=($maxX/2); $x1++)
{
	for ($y1=0; $y1<=$maxY; $y1++)
	{
		float $cp1[]=getAttr ( "nurbsPlane2.cp[" + ($maxX-$x1) + "][" +($maxY-$y1)+ "]" );
		float $cp2[]=getAttr ( "nurbsPlane2.cp[" + ($x1) + "][" +($y1)+ "]" );

		select -r nurbsPlane2.cv[$x1][$y1];
		move -r  0 (-1.0*$cp1[1]) 0 ;

		select -r nurbsPlane2.cv[$maxX-$x1][$maxY-$y1];
		move -r  0 (-1.0*$cp2[1]) 0 ;

	} 
}
;

int $maxX=52;
int $maxY=30;
int $i;

for($i=0; $i<7; $i++)
{
	select -r nurbsPlane1.cv[10+$i:25-$i][10+$i:25-$i];
	move -y -r 1.0;
};