Polygon drehen

[shmia]

@Bjoerk ich würde die Prozedure nicht "Transformiere" sondern "Rotiere" nennen.
Aber ich möchte doch nochmal auf meinen vorherigen Beitrag verweisen.
Eleganter kann man es eigentlich nicht programmieren.
Das es sich bei Rotate2D und Translate2D um Funktionen handelt, kann man sie problemlos verketten:

Delphi-Quellcode:

// verschieben, drehen um 45 Grad und zurückverschieben
NeuPunkt := Translate2D(Rotate2D(Translate2D(orgPunkt, P2), DegToRad(45.0)), invP2);

Durch die Verwendung des Records TPoint wird der Code leichter lesbar.
Bleibt man bei x und y, braucht man doppelt so viele Variablen.

Man kann aus den Verschiebungen und Drehungen auch eine Transformationsmatrix berechnen.
Dann kann man diese Transformationsmatrix auf alle Punkte anwenden und spart so Rechenzeit. Dafür ist dann die nötige Mathematik etwas aufwändiger.

[christopher85]

Guten Abend!

Also im Anhang habe ich mal einen Screenshot angehängt. In ihm sieht man halt unten in dieser Berichtigungszeile, dass inkompatible Typen auftreten.

Und zwar in den Zeilen vom Code:

Delphi-Quellcode:

w:=spinedit1.value;
for i:=1 to n do
  begin
    u:=yp[n]*sin(w)+xp[n]+cos(w);
    v:=yp[n]+cos(w)-xp[n]+sin(w);

Ich habe dann natürlich erstmal gegoogelt was das bedeutet. Weiss da aber irgendwie nicht weiter.

Das ist aber nur mein Teilproblem. Außerdem weiss ich nicht wie ich die Kooridanten u und v wieder in das array bekommen soll (für alle anderen punkte) und deses dann wieder zeichnen soll. Aber das ist erstmal ein anderer Schuh.

EDIT: also ich muss sagen, dass ich ecuh n bissl bewundere. ich schu mir gerade so die angebotenen quelltexte an und finde es ziemlich kompliziert sich in andere quelltexte reinzufuchsen. auch wegen der unterschiedlich definierten variablen.