hedgewars/uLandGenTemplateBased.pas
changeset 10225 0278759252b6
parent 10209 76316652ef26
child 10226 cb63617a0c2f
equal deleted inserted replaced
10223:b6b98dfa3807 10225:0278759252b6
   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));