kamipoly1.vssTEXTR*ch~99mBINfProcedure firstPoly; CONST numberOfVertexes = 5; VAR i : INTEGER; BEGIN ClosePoly; FillBack(Random * 35000, Random * 15000 *i, Random * 55000 ); FOR i:= 1 TO 20 DO BEGIN FillBack(Random * 35000, Random * 15000 *i, Random * 55000 ); BeginPoly; AddPoint(Random * 100 * i, Random * 100 * i); AddPoint(Random * 100 * i, Random * 100 * i); AddPoint(Random * 100 * i, Random * 100 * i); EndPoly; END; END; Run(firstPoly); LL2H Monaco/.S/.S9LL22MPSR qX