Rotiertes Rechteck skalieren (vergrößern)?

[Namenloser]

Transformations-Matrizen sind aber eigentlich schon die perfekte Lösung dafür.

[Perlsau]

Zitat von Namenloser:

Transformations-Matrizen sind aber eigentlich schon die perfekte Lösung dafür.

Wenn man sich damit auskennt ... wenn nicht, was dann (ohne gleich als schwachsinnig zu gelten)?

[Sir Rufo]

Es gibt ja in der System.Types schon fertige Typen.

Allerdings wurden die so nach und nach entwickelt und sind aktuell wohl auch benutzbar
(unter XE3 konnten die quasi gerade mal die Koordinaten speichern)
TVector3D XE3 XE4 XE5
TMatrix3D XE3 XE4 XE5

[Bjoerk]

Nach Euler kann man aus einer räumlichen Drehung auch 3 ebene Drehungen machen:

Delphi-Quellcode:

  Result := RotateX(Value, Alpha);
  Result := RotateY(Result, Beta);
  Result := RotateZ(Result, Gamma);

P.X bleibt erhalten, wenn man um die X-Achse dreht usw..

Wenn du um den Mittelpunkt drehen und zoomen willst kannst du die Koordinaten um die Differenz der CenterPoints shiften:

Delphi-Quellcode:

  P1 := Polyeder.CenterPoint;
  Polyeder.Stretch(ScaleX, ScaleY, ScaleZ);
  P2 := Polyeder.CenterPoint;
  Polyeder.Shift(P1.X - P2.X, P1.Y - P2.Y, P1.Z - P2.Z);
  Polyeder.Rotate(Alpha, Beta, Gamma);