Abstandsberechung in einem offenen Netz

[jfheins]

Hmmm ...

ich würd es wohl so machen, dass ich das manuell prüfe. Ich bezweifele dass es da eine Möglichkeit gibt die wesentlich schneller ist ...

Delphi-Quellcode:

function Distance(A, B: TPoint) : Single;
var
  dx, dy: Cardinal;
const
  Meshsize = 8;
begin
  dx = Abs(A.X - B.X);
  dy = Abs(A.Y - B.Y);

  dx = ifthen(dx > (Meshsize / 2), Meshsize - dx, dx);
  dy = ifthen(dy > (Meshsize / 2), Meshsize - dy, dy);

  Result := Phythagoras(dx, dy);
end;

So in etwa