# HG changeset patch
# User unc0rr
# Date 1293130879 -10800
# Node ID 82bf0a0fa8b0427db732935f9224277c22c9f61a
# Parent  d8e1b43482d2fe8b63c729423c46424e479d24c7
Add logging of map drawing process

diff -r d8e1b43482d2 -r 82bf0a0fa8b0 hedgewars/uLandPainted.pas
--- a/hedgewars/uLandPainted.pas	Thu Dec 23 21:54:57 2010 +0300
+++ b/hedgewars/uLandPainted.pas	Thu Dec 23 22:01:19 2010 +0300
@@ -148,9 +148,15 @@
     while(pe <> nil) do
         begin
         if (pe^.point.flags and $80 <> 0) then
+            begin
+            AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
             FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic)
+            end
             else
+            begin
+            AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
             DrawLineOnLand(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y);
+            end;
 
         prevPoint:= pe^.point;
         pe:= pe^.next;