Procedure curvedPoly;

CONST
	numberOfVertexes = 100;

VAR
	
	i : INTEGER;
	numberOfPoly: INTEGER;
	
BEGIN
	
	ClosePoly; 
	FillBack(random * 66400, random * 69000, random * 61330);
	Smooth(4);
	BeginPoly;
		
		AddPoint(Random * 100, Random * 100);
		CurveThrough(Random * 100, Random * 100);
		AddPoint(Random * 100, Random * 100);
		CurveTo(Random * 100, Random * 100);
		AddPoint(Random * 100, Random * 100);
		CurveThrough(Random * 100, Random * 100);
		AddPoint(Random * 100, Random * 100);
		CurveTo(Random * 100, Random * 100);
		AddPoint(Random * 100, Random * 100);
		
	EndPoly;
	
	numberOfPoly:= 30;

	FOR i:=0 TO numberOfPoly DO BEGIN 
	Rotate(45d15'23");
	FillBack(Random * 65535, Random * 65535, Random * 65535);
	{HRotate(objHd,3,5,60d);}
	Move3D(3",1",2");
	Poly(
			Random * 34, Random * 78,
			Random * 1, Random * 7,
			Random * 75, Random * 4,
			Random * 34, Random * 89,
			Random * 70, Random * 100,
			Random * 20, Random * 100,
			Random * 4, Random * 100,
			Random * 10, Random * 43,
			Random * 2, Random * 34,
			Random * 94, Random * 0
			);
	END;

END;
Run(curvedPoly);