Procedure firstPoly;


CONST
	numberOfVertexes = 3;

VAR
	
	i : INTEGER;
	rotationAngle:REAL;
		
BEGIN
	
	ClosePoly;
	BeginPoly;

		AddPoint(19.9,11.5);
		AddPoint(40.1,11.5);
		AddPoint(30,29);
		
	EndPoly;
	Rotate(15);


	ClosePoly;
	BeginPoly;	
	
		AddPoint(0,0 );
		AddPoint(60,0);
		AddPoint(30,52);
		
	EndPoly;

	
	ClosePoly;
	BeginPoly;

		AddPoint(30,52);
		AddPoint(90,52);
		AddPoint(60,0);
		
	EndPoly;


	
	

END;
Run(firstPoly);


{Unser Ziel: 	-Die Grossen Dreiecke sollen bündig aneinander zu liegen kommen (Materialersparnis), Problem: Progammieren einer Schleife mit Dreiecken.
		-Die kleinen Dreiecke sollten immer im Zentrum der Grossen zu liegen kommen und dabei von mal zu mal um ihr Zentrum um 5°-20° rotieren.}