equal
deleted
inserted
replaced
258 if distL > d then distL:= d; |
258 if distL > d then distL:= d; |
259 if distR > d then distR:= d; |
259 if distR > d then distR:= d; |
260 |
260 |
261 if distR + distL < minDistance * 2 + 10 then |
261 if distR + distL < minDistance * 2 + 10 then |
262 begin |
262 begin |
263 // limits are too narrow, leave point alone |
263 // limits are too narrow, just divide |
264 newPoint:= p1 |
264 newPoint.x:= mp.x; |
|
265 newPoint.y:= mp.y; |
265 end |
266 end |
266 else |
267 else |
267 begin |
268 begin |
268 // select distance within [-distL; distR] |
269 // select distance within [-distL; distR] |
269 d:= -distL + minDistance + LongInt(GetRandom(distR + distL - minDistance * 2)); |
270 d:= -distL + minDistance + LongInt(GetRandom(distR + distL - minDistance * 2)); |