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
