Bild schnell unter Linux drehen

[Cyf]

Unter Windows gab es ja die wunderschöne Möglichkeit Bilder (es geht um TBitmap) sehr schnell mit Hilfe von Systemfunktionen zu drehen. gibt es da unte Linux etwas ähnliches? Auch ScanLine konnte ich bis jetzt nicht ausmachen, daher bleibt mir nur der langsame Ansatz. Allerdings hab ich eine RawImage-Property entdeckt, die aber irgendwie auch nicht so das macht, was sie soll. Das bild soll um 90° (rechtsherum) gedreht werden. Momentaner Ansatz:

Delphi-Quellcode:

function Dreh90(Src: TBitmap): TBitmap;
var
  x, y: Cardinal;
  //SrcData, DestData: PCardinal;
begin
  Result:= TBitmap.Create;
  Result.PixelFormat:= Src.PixelFormat;
  Result.SetSize(Src.Height, Src.Width);
  {//unschön, damit tatsächlich Bilddaten bereitgestellt werden, sonst ist .RawImage.Data nil
  Result.Canvas.Pixels[0,0]:= 0;
  SrcData:= PCardinal(Src.RawImage.Data);
  DestData:= PCardinal(Result.RawImage.Data);}
  Result.BeginUpdate;
  {for x:= 0 to Src.Height-1 do
  begin
    for y:= 0 to Src.Width-1 do
    begin
      ((DestData + x*Src.Width) + y)^:= ((SrcData + y*Src.Width) + (Src.Height-1-x))^;
    end;
  end;}
  for x:= 0 to Src.Height-1 do
  begin
    for y:= 0 to Src.Width-1 do
    begin
      Result.Canvas.Pixels[x,y]:= Src.Canvas.Pixels[y,Src.Height-1-x];
    end;
  end;
  Result.EndUpdate;
end;