Procedure ArtLine;

CONST

	{rechtecklaenge}
	rectLength  = 5;
	

VAR
	numbOfRect : INTEGER;
	deltaX, p1x, p1y, p2x, p2y, rowEndPoint, distBetweenRects : REAL;
	{zaehlervariablen}
	i : INTEGER;
	rowEndPointX,rowEndPointY : REAL;

BEGIN

	numbOfRect := IntDialog('Wie viele Linien sollen gezeichnet werden (je mehr desto besser)?','100');

	REPEAT
		message('Bitte lege den Endpunkt der Linienreihe fest!');
	
	UNTIL MouseDown(rowEndPointX,rowEndPointY);
	message('rowEndPointX',rowEndPointX , 	'rowEndPointY' , rowEndPointY);

	distBetweenRects := (rowEndPointX - (numbOfRect* rectLength))/numbOfRect;

	FOR i:= 1 TO numbOfRect DO BEGIN
	
		deltaX := rectLength + distBetweenRects;
		p1x := random * i * deltaX;
		p1y := deltaX * 100;
		p2x := random * p1x * rectLength;
		p2y := p1y * rectLength;
	
	FillBack(random * 6000, random * 65535, random * 65535);
	rect(p1x, p1y, p2x, p2y);
	
END;

	{Kopiräit: Gruppe Chrisa}


END;
RUN(ArtLine);