equal
deleted
inserted
replaced
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 DEBUGBFILE}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; |