hedgewars/uLandPainted.pas
changeset 10243 9a3ba4e76e38
parent 10131 4b4a043111f4
child 10244 f7b5b4b88171
equal deleted inserted replaced
10242:0ab0d7fa1c62 10243:9a3ba4e76e38
   109             end
   109             end
   110             else
   110             else
   111             begin
   111             begin
   112             AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+'), radius = '+inttostr(radius));
   112             AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+'), radius = '+inttostr(radius));
   113             DrawThickLine(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y, radius, color);
   113             DrawThickLine(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y, radius, color);
   114             FillRoundInLand(pe^.point.X, pe^.point.Y, radius, color)
       
   115             end;
   114             end;
   116 
   115 
   117         prevPoint:= pe^.point;
   116         prevPoint:= pe^.point;
   118         pe:= pe^.next;
   117         pe:= pe^.next;
   119         end;
   118         end;