--- a/.hgtags Thu Jan 13 03:07:55 2011 +0100
+++ b/.hgtags Thu Jan 13 04:17:51 2011 +0100
@@ -25,4 +25,3 @@
ede569bb76f389bd5dfbb7ebf68af3087e3e881c Hedgewars-iOS-1.2
a5735e877aae61cd705265e2f8c0c7ad08d45f0e Hedgewars-iOS-1.2.1
29ab0d49c3e6e72a7633d0bd316ae533db15c65d 0.9.15
-0000000000000000000000000000000000000000 0.9.15
--- a/hedgewars/uLandPainted.pas Thu Jan 13 03:07:55 2011 +0100
+++ b/hedgewars/uLandPainted.pas Thu Jan 13 04:17:51 2011 +0100
@@ -149,12 +149,12 @@
begin
if (pe^.point.flags and $80 <> 0) then
begin
- AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
+ {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic)
end
else
begin
- AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
+ {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
DrawLineOnLand(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y);
end;