hedgewars: comparison hedgewars/uLand.pas

equal deleted inserted replaced

-:e50b266ed85a
+:4617e8ec0507
 until yd < 0;
 end;
 SDL_FreeSurface(tmpsurf);
 end;
-procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr);
+procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray);
 var i: LongInt;
 begin
 with Template do
 begin
 pa.Count:= BasePointsCount;
 begin
 for i:= 0 to pred(BasePointsCount) do
 if pa.ar[i].x <> NTPX then
 pa.ar[i].x:= LAND_WIDTH - 1 - pa.ar[i].x;
 for i:= 0 to pred(FillPointsCount) do
-FillPoints^[i].x:= LAND_WIDTH - 1 - FillPoints^[i].x;
+fps^[i].x:= LAND_WIDTH - 1 - fps^[i].x;
 end;
 (*  Experiment in making this option more useful
 if ((not isNegative) and (cTemplateFilter = 4)) or
 (canFlip and (getrandom(2) = 0)) then
 if pa.ar[i].y < 0 then
 pa.ar[i].y:= 0;
 end;
 for i:= 0 to pred(FillPointsCount) do
 begin
-dec(FillPoints^[i].y, 100);
+dec(fps^[i].y, 100);
-if FillPoints^[i].y < 0 then
+if fps^[i].y < 0 then
-FillPoints^[i].y:= 0;
+fps^[i].y:= 0;
 end;
 end;
 if (canFlip and (getrandom(2) = 0)) then
 begin
 for i:= 0 to pred(BasePointsCount) do
 pa.ar[i].y:= LAND_HEIGHT - 1 - pa.ar[i].y;
 for i:= 0 to pred(FillPointsCount) do
-FillPoints^[i].y:= LAND_HEIGHT - 1 - FillPoints^[i].y;
+fps^[i].y:= LAND_HEIGHT - 1 - fps^[i].y;
 end;
 end
 end;
 procedure GenBlank(var Template: TEdgeTemplate);
 var pa: TPixAr;
 i: Longword;
 y, x: Longword;
-begin
+	fps: TPointArray;
+begin
+	fps:=Template.FillPoints^;
 ResizeLand(Template.TemplateWidth, Template.TemplateHeight);
 for y:= 0 to LAND_HEIGHT - 1 do
 for x:= 0 to LAND_WIDTH - 1 do
 Land[y, x]:= lfBasic;
 {$HINTS OFF}
-SetPoints(Template, pa);
+SetPoints(Template, pa, @fps);
 {$HINTS ON}
 for i:= 1 to Template.BezierizeCount do
 begin
 BezierizeEdge(pa, _0_5);
 RandomizePoints(pa);
 DrawEdge(pa, 0);
 with Template do
 for i:= 0 to pred(FillPointsCount) do
-with FillPoints^[i] do
+with fps[i] do
 FillLand(x, y);
 DrawEdge(pa, lfBasic);
 MaxHedgehogs:= Template.MaxHedgehogs;

changeset 7556	4617e8ec0507
parent 7483	d479b98d38f7
child 7561	5f0b1829b16f