Bild schnell unter Linux drehen
12. Aug 2009, 15:52
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;
Man kann einen Barbier definieren als einen, der alle diejenigen rasiert, und nur diejenigen, die sich nicht selbst rasieren.
Rasiert sich der Barbier?
|
Zitat
Baum-Darstellung
