equal
deleted
inserted
replaced
1195 haveDivided := true; |
1195 haveDivided := true; |
1196 break |
1196 break |
1197 end; |
1197 end; |
1198 nx := nx - tx; |
1198 nx := nx - tx; |
1199 ny := ny - ty; |
1199 ny := ny - ty; |
1200 len := len - _0_3 // should be the same as increase step |
1200 // len := len - _0_3 // should be the same as increase step |
|
1201 len.QWordValue := len.QWordValue - _0_3.QWordValue; |
1201 end; |
1202 end; |
1202 |
1203 |
1203 if not haveDivided then |
1204 if not haveDivided then |
1204 if RopePoints.Count > 0 then // check whether the last dividing point could be removed |
1205 if RopePoints.Count > 0 then // check whether the last dividing point could be removed |
1205 begin |
1206 begin |