Ohhh, Sorry. Nein, das meinte ich nicht. Mein Code oben war falsch kopiert.
So müsste er korrekt aussehen.
1. Version
Delphi-Quellcode:
ablx := ( ( x - dx ) * cos(alpha) ) - ( ( y - dy ) * sin(alpha) );
ably := ( ( x - dx ) * sin(alpha) ) + ( ( y - dy ) * cos(alpha) );
x := ablx + dx;
y := ably + dy;
2. Version
Delphi-Quellcode:
x := ( ( ( x - dx ) * cos(alpha) ) - ( ( y - dy ) * sin(alpha) ) ) + dx;
y := ( ( ( x - dx ) * sin(alpha) ) + ( ( y - dy ) * cos(alpha) ) ) + dy;
natürlich hatte ich das dx und das dy am Ende angehängt, ich hatte das nur beim ins-Forum-stellen vergessen, da ja die erste Version, die Version ist, die funktioniert und die ich in meinem Programm benutze.
Aber netterweise habt ihr mir ja trotzdem die richtige Lösung gepostet.
Ich verändere in der ersten Zeile (bei der zweiten Version) das x und verwende dann in der zweiten Zeile das bereits veränderte x, obwohl ich das unveränderte hätte benutzen müssen...
...uhh, wie peinlich. *hinter der nächsten ecke versteck*
Vielen Dank.
overmoon