Polygon drehen

[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.