PROCEDURE lumimarkt2000;   

VAR   

hoehe, laenge,anzahl,distBetweenLaschen,deltaX,breitelaschentot, a, i : INTEGER;   
x1, x2, x3, x4, x5, x6, x7, x8, x9,x11,x12,x13,x14,x15,x16,x17,x18,x19, 
y1, y2, y3, y4, y5,y6,y7, y8, y9,y11,y12,y13,y14,y15,y16,y17,y18,y19,
p1x,p1y,p2x, p2y,
a1, a2, a3, a4, a5, b1, b2, b3, b4, b5: REAL;





BEGIN     



laenge := IntDialog('Wie lang soll der Lampenstreifen gezeichnet werden? -zwischen 1000-5000 pixel','1000');
hoehe := IntDialog('Wie hoch soll der Lampenstreifen gezeichnet werden? -zwischen 200-500 pixel','250');
anzahl := IntDialog('Wieviele Laschen sollen gezeichnet werden? -zwischen 5-20 stueck','10');
distBetweenLaschen:= IntDialog('Wie gross ist der Abstand zwischen den laschen? -zwischen 20-100 pixel','30');

breitelaschentot:= anzahl*(50+distBetweenLaschen);

IF (laenge<breitelaschentot) THEN
message('dobu! chasch eigentlechn ned rŠchne. hesch všu z všu lasche fšr dŠ chorzi streife!');
IF (laenge<breitelaschentot) THEN

p1x :=0;
p1y:=hoehe;

p2x:=laenge;
p2y:=0;



rect(p1x, p1y, p2x, p2y);


FOR i:= 1 TO anzahl DO BEGIN
	
	deltaX := 50 + distBetweenLaschen;
	

	
x1:=0 +i*deltaX;
y1:=30;
x2:=10 +i*deltaX;
y2:=25;
x3:=20 +i*deltaX;
y3:=30;
x4:=10 +i*deltaX;
y4:=50;
x5:=25 +i*deltaX;
y5:=70;
x6:=40 +i*deltaX;
y6:=50;
x7:=30 +i*deltaX;
y7:=30;
x8:=40 +i*deltaX;
y8:=25;
x9:=50 +i*deltaX;
y9:=30;

x11:=50 +i*deltaX;
y11:=30;

x12:=40 +i*deltaX;
y12:=25;

x13:=30 +i*deltaX;
y13:=30;

x14:=40 +i*deltaX;
y14:=50;

x15:=25 +i*deltaX;
y15:=70;

x16:=10 +i*deltaX;
y16:=50;

x17:=20 +i*deltaX;
y17:=30;

x18:=10 +i*deltaX;
y18:=25;

x19:=0 +i*deltaX;
y19:=30;





BeginPoly;
CurveTo(x1, y1);
CurveTo(x2, y2);
CurveTo(x3, y3);
CurveTo(x4, y4);
CurveTo(x5, y5);
CurveTo(x6, y6);
CurveTo(x7, y7);
CurveTo(x8, y8);
CurveTo(x9, y9);
CurveTo(x11, y11);
CurveTo(x12, y12);
CurveTo(x13, y13);
CurveTo(x14, y14);
CurveTo(x15, y15);
CurveTo(x16, y16);
CurveTo(x17, y17);
CurveTo(x18, y18);
CurveTo(x19, y19);
EndPoly;

a1:=8 +i*deltaX;
b1:=12;
a2:=25 +i*deltaX;
b2:=10;
a3:=42 +i*deltaX;
b3:=12;
a4:=25 +i*deltaX;
b4:=14;




BeginPoly;
CurveTo(a1, b1);
CurveTo(a2, b2);
CurveTo(a3, b3);
CurveTo(a4, b4);

EndPoly;

END;	
END;





RUN(lumimarkt2000);