equal
deleted
inserted
replaced
146 TryDo((pe = nil) or (pe^.point.flags and $80 <> 0), 'Corrupted draw data', true); |
146 TryDo((pe = nil) or (pe^.point.flags and $80 <> 0), 'Corrupted draw data', true); |
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 |
|
152 AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')'); |
151 FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic) |
153 FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic) |
|
154 end |
152 else |
155 else |
|
156 begin |
|
157 AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')'); |
153 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; |
154 |
160 |
155 prevPoint:= pe^.point; |
161 prevPoint:= pe^.point; |
156 pe:= pe^.next; |
162 pe:= pe^.next; |
157 end; |
163 end; |
158 end; |
164 end; |