hedgewars/uLandPainted.pas
branch0.9.15
changeset 4728 3d808af10ea0
parent 4649 82bf0a0fa8b0
child 4730 bd74fd83929a
equal deleted inserted replaced
4723:29ab0d49c3e6 4728:3d808af10ea0
   147 
   147 
   148     while(pe <> nil) do
   148     while(pe <> nil) do
   149         begin
   149         begin
   150         if (pe^.point.flags and $80 <> 0) then
   150         if (pe^.point.flags and $80 <> 0) then
   151             begin
   151             begin
   152             AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
   152             {$IFDEF DEBUGBFILE}AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
   153             FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic)
   153             FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic)
   154             end
   154             end
   155             else
   155             else
   156             begin
   156             begin
   157             AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
   157             {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
   158             DrawLineOnLand(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y);
   158             DrawLineOnLand(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y);
   159             end;
   159             end;
   160 
   160 
   161         prevPoint:= pe^.point;
   161         prevPoint:= pe^.point;
   162         pe:= pe^.next;  
   162         pe:= pe^.next;