Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Berechnung von Punkten bei einer Drehung

  Alt 24. Apr 2008, 07:30
Moin Frank,

du kannst sowas mit den Matrix-Operationen von Windows (XFORM) erledigen - oder so:

Delphi-Quellcode:
type
  TMatrix4x4 = array [0..3, 0..3] of Boolean;

procedure RotateRight(var m4: TMatrix4x4);
var
  m: TMatrix4x4;
  col, row: Integer;
begin
  m := m4;
  for row := 0 to 3 do
    for col := 0 to 3 do
      m4[col, 3-row] := m[row, col];
end;
Das ist eine Rotation um -90 Grad.

Grüße vom marabu
  Mit Zitat antworten Zitat