Berechnung von Punkten bei einer Drehung

[_frank_]

hab es soweit hinbekommen...war schon ziemlich nahe dran

für interessierte die Dreh-Funktion und im Anhang mein bisheriger Fortschritt:

Delphi-Quellcode:

procedure TElement.rotate;
var i,newid,tmp,row,col:integer;
    cn:TConnection;
begin
  for i:=0 to fConnections.count-1 do
  begin
    cn:=TConnection(fConnections.Items[i]);
    row:=cn.fId div width;
    col:=cn.fId mod width;
    newid:=col*height+(height-1-row);
    cn.fId:=newid;
  end;
  tmp:=width;
  width:=height;
  height:=tmp;
  case fDirection of
    0..2:inc(fDirection);
    3:fDirection:=0;
  end;
  fPlatine.ReDraw;
end;

Gruß Frank