//Procedures for flower 

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

select -all;
delete;


for($number=$min; $number<$max; $number++)
	
{
	

		$zahlX = (rand(6));
		$zahlY = (rand(12));
		$zahlZ = -(rand(3));

		for($counter=$min; $counter<$max; $counter++)
	
					{
	
						nurbsPlane -ax 0 0 1 -w 10 -d 2;
						// plane is moved xy:
						move -r ($counter*$zahlX)($counter*$zahlY) ($counter*$zahlY) ;
};

$zahl1 = (rand(3));
$zahl2 = (rand(9));
$zahl3 = (rand(5));

for($counter=$min; $counter<$max; $counter++)
	
{
	
		nurbsPlane -ax 0 0 1 -w 10 -d 2;
			// plane is moved xy:
	move -r ($counter*$zahl1)($counter*$zahl2) ($counter*$zahl3) ;
};

$zahl4 = -(rand(3));
$zahl5 = -(rand(9));
$zahl6 = -(rand(5));


for($counter=$min; $counter<$max; $counter++)
	
{
	
		nurbsPlane -ax 0 0 1 -w 10 -d 2;
			// plane is moved xy:
	move -r ($counter*$zahl4)($counter*$zahl5) ($counter*$zahl6) ;
};

$zahl7 = -(rand(1));
$zahl8 = -(rand(7));
$zahl9 = (rand(5));

for($counter=$min; $counter<$max; $counter++)
	
{
	
		nurbsPlane -ax 0 0 1 -w 10 -d 2;
			// plane is moved xy:
	move -r ($counter*$zahl7)($counter*$zahl8) ($counter*$zahl9) ;
};

$zahl10 = -(rand(10));
$zahl11 = (rand(2));
$zahl12 = -(rand(5));

for($counter=$min; $counter<$max; $counter++)
	
{
	
		nurbsPlane -ax 0 0 1 -w 10 -d 2;
			// plane is moved xy:
	move -r ($counter*$zahl10)($counter*$zahl11) ($counter*$zahl12) ;
};

};
};