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