Algorithmus gesucht: Abstand von zwei Hexagons

[omata]

Vielleicht so...

Delphi-Quellcode:

function Schritte(X1, Y1, X2, Y2:integer):integer;
var X, Y:integer;
begin
  if (X1 <= 0) or (X2 <= 0) or (Y1 <= 0) or (Y2 <= 0) then
    raise Exception.Create('Die Werte müssen alle größer Null sein.');
  X:=abs(X1 - X2);
  Y:=abs(Y1 - Y2);
  if X = 0 then
    Result:=Y
  else if Y = 0 then
    Result:=X
  else begin
    if (X > 1) and (Y > 1) then
      dec(X);
    Result:=X + Y;
  end;
end;