Procedure lampe;

{TeamZyklop Adriana D'Inca, Claus Reuschenbach}
{veränderbare Parameter sind Radius und Abstände (Abhängig von Lochgrösse in der Mitte)}

VAR

x, Anzahl :INTEGER;
d,r: REAL;

BEGIN

r:=15;
d:=0.25;

Anzahl:=Abs(r/(2*d)-d);

ArcByCenter(d,0,r+d,0,360);

ArcByCenter(0,0,r,0,45);

	for x:=0 to Anzahl do begin;

		ArcByCenter(d, 0, r-d-2*d*x, 180, 180);
		ArcByCenter(0,0,r-2*d-2*d*x,0,180);	
	end;

ArcByCenter(d, 0, d, 180, 180);
ArcByCenter(d,0,d,0,180);

END;

RUN(lampe);