PROCEDURE lampe;

VAR
	RealDial : REAL;
	IntDial : INTEGER;
	i,m,n : INTEGER;
	px, py : REAL;
	meinlayerhandle, myhandle : HANDLE;
	
BEGIN

RealDial := RealDialog ('Aus wievielen Segmenten soll die Lampe bestehen?', '6');
IntDial := Round(RealDial);

	FOR i := 1 TO IntDial DO BEGIN
		BeginPoly;
		{Move(i*20,0);}
		AddPoint(0,0);
		AddPoint(0,7);
		AddPoint(3,9);
		AddPoint(3,15);
		AddPoint(0,17);
		AddPoint(0,20);
		AddPoint(5,20);
		AddPoint(13,19);
		AddPoint(12,16);
		AddPoint(7,15);
		AddPoint(11,5);
		AddPoint(3,5);
		AddPoint(0,0);
		EndPoly;
	END;

meinlayerhandle := ActLayer;

	For m:=0 TO IntDial DO BEGIN
	myHandle := FObject;
	For n:=0 TO NumObj(meinlayerhandle) DO BEGIN
		HMove(myhandle, n*2, 0);
		myhandle := NextObj(myhandle);
		redraw;
		wait(0.3);
	END;
END;

Oval (12,-14,0,-2);
Oval (7,-9,5,-7);
	
END;

Run(lampe);