Kürzester rotationsweg bei einem Kreis?

[Aphton]

Delphi-Quellcode:

function getShortestRotation(const AngleA, AngleB: Integer): Integer;
var
  Small, Big: PInteger;
begin // Parameter in [0..360]
  if AngleA < AngleB then
  begin
    Small := @AngleA;
    Big := @AngleB;
  end else
  if AngleA > AngleB then
  begin
    Small := @AngleB;
    Big := @AngleA;
  end else
    Exit(0); // = (Result = 0; Exit)
  Result := (360-Big^) + Small^;
  if Result > Big^ - Small^ then
    Result := (Big^ - Small^);
  if (AngleA + Result) mod 360 <> AngleB then
    Result := -Result;
end;

Edit1: Ungetestet, bin ingame, aber so ca. sollte das klappen
Edit2: Getestet, scheint zu klappen! Ist es das, was du brauchst?

[Memnarch]

schaut interressant aus. 2 fragen aber bleiben noch:
1: konnte man nicht anstatt pointer direct integer verwenden?
2: Welcher rückgabetyp(schätze mal auf Integer)?^^

edit zu 2: ah warst schneller

[Aphton]

Klar kannste integer auch verwenden.
Im Grunde macht es in diesem Fall keinen Unterschied, da beide Datentypen (Pointer & Integer) gleichgroß sind.
Meine Variante ist aber bei größeren Datenstrukturen eleganter, da nicht Daten kopiert werden muss (und somit auch schneller)!

[Memnarch]

Aufjedenfall funktioniert es!^^

Musste allerdings beim kalkulieren der rotation noch ne condition eibauen, damit der wraparound von 0 nach 259 funktioniert.

Delphi-Quellcode:

    if getShortestRotation(FRotation, FRotationGoal) < 0 then 
    begin
      if FRotation > 0 then
      begin
        FRotation := Abs((FRotation - 1) mod 360);
      end
      else
      begin
        FRotation := 359;
      end;
    end
    else
    begin
      FRotation := Abs((FRotation + 1) mod 360);
    end;

edit: in diesem fall sit dein weg sogar etwas langsamer, da die pointer erst dereferenziert werden müssen.

[Aphton]

Hmm stimmt, hab das nicht bedacht.. Dann schreibs um bitte

[Memnarch]

schon geschehen^^.

Aufjedenfall VIELEN DANK^^

[Aphton]

Keine Ursache ^^