Rotiertes Rechteck skalieren (vergrößern)?

[Namenloser]

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

[Perlsau]

Zitat:

Zitat von Namenloser (Beitrag 1245121)

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)

Delphi-Quellcode:

TVector3D

XE3 XE4 XE5

Delphi-Quellcode:

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);