rechteck um sich selber drehen

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

hy, ich bin auch mal wieder hier ;D

ich würde gern ein rechteck um sich selber drehen (seinen mittelpunkt), dazu hab ich folgendes gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

cosq := cos (Winkel*Pi/180);  // Sinuswert
  sinq := sin (Winkel*Pi/180);  // Kosinuswert
  for i := 1 to 4 do
  begin
    xx := Vertex[i].X;
    yy := Vertex[i].Y;
    Vertex[i].X := Round (xx * cosq - yy * sinq);
    Vertex[i].Y := Round (xx * sinq + yy * cosq);
  end;

Vertex.X/ Vertex.Y sollte der ausgangspunkt jedes Eckpunktes sein, nur woher weiß der code (falls er überhauot funktioniert) wo der mtitelpunkt ist um den gedreht wird, bzw wie muss der code abgeändert werden?

Yogu · Verfasst: Mo 20.10.08 19:45

Interessant zu erfahren, wie viele Entwickler in diesem Forum doch die Bücher von Hans Georg Schumann gelesen haben. :lol:

Der Mittelpunkt ist in der Mitte des Rechtecks - also (0|0). Indem du die Koordinaten aller Vertices änderst, verschiebst du auch den Mittelpunkt de Rotation.

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

Yogu hat folgendes geschrieben :

Interessant zu erfahren, wie viele Entwickler in diesem Forum doch die Bücher von Hans Georg Schumann gelesen haben. :lol:

das buch ist auch gut ;D

danke für den tipp ich werds gleich mal ausprobieren

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme