hedgewars/uLand.pas
changeset 431 79ac59673df3
parent 430 57d05fb13ea7
child 495 62c1c2b4414c
equal deleted inserted replaced
430:57d05fb13ea7 431:79ac59673df3
   437         Land[y, x]:= COLOR_LAND;
   437         Land[y, x]:= COLOR_LAND;
   438 
   438 
   439 SetPoints(Template, pa);
   439 SetPoints(Template, pa);
   440 for i:= 1 to Template.BezierizeCount do
   440 for i:= 1 to Template.BezierizeCount do
   441     begin
   441     begin
   442     BezierizeEdge(pa, _1div3);
   442     BezierizeEdge(pa, _0_5);
   443     RandomizePoints(pa)
   443     RandomizePoints(pa)
   444     end;
   444     end;
   445 for i:= 1 to Template.RandPassesCount do RandomizePoints(pa);
   445 for i:= 1 to Template.RandPassesCount do RandomizePoints(pa);
   446 BezierizeEdge(pa, _0_1);
   446 BezierizeEdge(pa, _0_1);
   447 
   447