hedgewars/uLandPainted.pas
changeset 4731 edf7d04d3fa9
parent 4728 3d808af10ea0
child 4779 53f7e964a338
child 4900 8ad0e23e6d63
equal deleted inserted replaced
4722:038cd49777a7 4731:edf7d04d3fa9
   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 DEBUGFILE}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;