| changeset 2070 | 28891bb36ba5 |
| parent 2067 | 7524a783bd8c |
| child 2074 | b89ffff0528d |
| 2069:f7fad4ad4455 | 2070:28891bb36ba5 |
|---|---|
1220 i, sX, sY, x, y, d: LongInt; |
1220 i, sX, sY, x, y, d: LongInt; |
1221 b: boolean; |
1221 b: boolean; |
1222 begin |
1222 begin |
1223 if (X1 = X2) and (Y1 = Y2) then |
1223 if (X1 = X2) and (Y1 = Y2) then |
1224 begin |
1224 begin |
1225 OutError('WARNING: zero length rope line!', false); |
1225 //OutError('WARNING: zero length rope line!', false); |
1226 exit |
1226 exit |
1227 end; |
1227 end; |
1228 eX:= 0; |
1228 eX:= 0; |
1229 eY:= 0; |
1229 eY:= 0; |
1230 dX:= X2 - X1; |
1230 dX:= X2 - X1; |