PROCEDURE lampe1;



VAR
	pX1, pY1, pX2, pY2: Real;
	RealDia: Real;
	IntDia, k: Integer;
	px, py: Real;
	myHandle: Handle;
	d: Real;
	px3, py3: Real;
	p1x, p2x, p1y, p2y, p3x, p3y, p4x, p4y, p5x, p5y: Real;
	Random: Real;


BEGIN
	
	pX1 := -10;
	pY1 := -10;
	pX2 := 10;
	pY2 := 10;
	Oval(px1, py1, px2, py2);
	
	P3x:=8.66;
	p3y:=5;
	p4x:=-8.66;
	p4y:=5;
	p5x:=0;
	p5y:=-10;
	poly(p3x, p3y, p4x, p4y, p5x, p5y);

	IntDia := IntDialog('Wieviele Dreiecke sollen gezeichnet werden?', '10');
	message(IntDia);

	For k:=1 TO IntDia Do Begin

		poly(px, py, px+1.5, py, px+0.8, py+0.8);
		myHandle := LNewObj;
		HMove(myHandle,-5 + Random*10, Random);
		HRotate(myHandle,0,0,k*80);
		
	
	END;

	IntDia := IntDialog('Wieviele Dreiecke sollen noch gezeichnet werden?', '8');
	message(IntDia);

	For k:=1 TO IntDia Do Begin


		poly(px, py, px, py+1.5, px+0.5, py+0.5);
		myHandle := LNewObj;
		HMove(myHandle,-7 + Random*14, Random*10);
		HRotate(myHandle,0,0,k*100);
		
	
	END;

	IntDia := IntDialog('Wieviele Dreiecke sollen noch gezeichnet werden?', '15');
	message(IntDia);

	For k:=1 TO IntDia Do Begin


		poly(px, py, px, py+1, px+0.5, py+0.5);
		myHandle := LNewObj;
		HMove(myHandle,-3 + Random*6, Random);
		HRotate(myHandle,0,0,k*300);
		
	
	END;

	IntDia := IntDialog('Wieviele Dreiecke sollen gezeichnet werden?', '3');
	message(IntDia);

	For k:=1 TO IntDia Do Begin

		poly(px, py, px+1, py, px+0.5, py+0.5);
		myHandle := LNewObj;
		HMove(myHandle,-1.5 + Random*3, Random*2);
		HRotate(myHandle,0,0,k*200);
		
	
	END;




End;

Run(lampe1);