//Procedures for flower 

global proc make_flower (int $min, int $max)
{

select -all;
delete;


for($counter=$min; $counter<$max; $counter++)
	
{
	
//---------------------------------------------------------------------
//bob


	for($counter=$min; $counter<$max; $counter++)
	
					{
								$zahlX = (rand(5));
								$zahlY = (rand(5));
								$zahlZ = -(rand(5));

	
						nurbsPlane -ax 0 0 1 -w 10 -d 2 -n ("bob"+$counter);
						// plane is moved xy:
						move -r ($counter*$zahlX)($counter*$zahlY) ($counter*$zahlY) ;
						
						//rotate 
						rotate -r (rand(90)) (rand(90)) (rand (90));

						
						//move 
						select -r ("bob"+$counter+".cv[1][1]") ; 
						move -r -os -wd 0 0 (rand(40)) ;
};

//---------------------------------------------------------------------
//sergej



for($counter=$min; $counter<$max; $counter++)
	
{
			$zahl1 = (rand(3));
			$zahl2 = (rand(9));
			$zahl3 = (rand(5));
		nurbsPlane -ax 0 0 1 -w 10 -d 2 -n ("sergej"+$counter);
			// plane is moved xy:
	move -r ($counter*$zahl1)($counter*$zahl2) ($counter*$zahl3) ;
	
	//rotate 
						rotate -r (rand(90)) (rand(90)) (rand (90));
	
	//move 
						select -r ("sergej"+$counter+".cv[1][1]") ; 
						move -r -os -wd 0 0 (rand(40)) ;
	
};

//---------------------------------------------------------------------
//olaf




for($counter=$min; $counter<$max; $counter++)
	
{
	$zahl4 = -(rand(3));
  $zahl5 = -(rand(9));
  $zahl6 = -(rand(5));
		nurbsPlane -ax 0 0 1 -w 10 -d 2 -n ("olaf"+$counter);
			// plane is moved xy:
	move -r ($counter*$zahl4)($counter*$zahl5) ($counter*$zahl6) ;
	
	//rotate 
						rotate -r (rand(90)) (rand(90)) (rand (90));
	
		//move 
						select -r ("olaf"+$counter+".cv[1][1]") ; 
						move -r -os -wd 0 0 (rand(40)) ;
};

//---------------------------------------------------------------------
//berthold



for($counter=$min; $counter<$max; $counter++)
	
{
	$zahl7 = -(rand(1));
  $zahl8 = -(rand(7));
  $zahl9 = (rand(5));
  
		nurbsPlane -ax 0 0 1 -w 10 -d 2 -n ("berthold"+$counter);
			// plane is moved xy:
	move -r ($counter*$zahl7)($counter*$zahl8) ($counter*$zahl9) ;
	
	//rotate 
						rotate -r (rand(90)) (rand(90)) (rand (90));
	
		//move 
						select -r ("berthold"+$counter+".cv[1][1]") ; 
						move -r -os -wd 0 0 (rand(40)) ;
};

//---------------------------------------------------------------------
//fishhead



for($counter=$min; $counter<$max; $counter++)
	
{
	
	$zahl10 = -(rand(10));
	$zahl11 = (rand(2));
	$zahl12 = -(rand(5));
	
		nurbsPlane -ax 0 0 1 -w 10 -d 2 -n ("fishhead"+$counter);
			// plane is moved xy:
	move -r ($counter*$zahl10)($counter*$zahl11) ($counter*$zahl12) ;
	
	//rotate 
						rotate -r (rand(90)) (rand(90)) (rand (90));
	
		//move 
						select -r ("fishhead"+$counter+".cv[1][1]") ; 
						move -r -os -wd 0 0 (rand(40)) ;
};
};
};