iage nesnesini istediğim açı kadar döndürme

[sonsuz052]

iyi günler ben image nesnesini istediğim açı kadar döndürmek istiyorum ben bir tane kod yazdım fakat bilgisayar hen çok kasılıyor hende istediğim görüntü verimini alamadım yardımcı olursanız seviniri örnek kod aşağıda:


procedure TForm1.Timer1Timer(Sender: TObject);
var
gx,gy:Real;
x,y,x1,y1:integer;
yaricap:Real;
gaci:Real;
begin
aci:=aci+10;
for x:=0 to Image1.Width do
for y:=0 to Image1.Height do
begin
renk:=Image2.Canvas.Pixels[x,y];
x1:=orjinx-x;
y1:=orjiny-y;
gx:=154+(x1*Cos(aci*pi/180)-y1*Sin(aci*pi/180));
gy:=154+(x1*Sin(aci*pi/180)+y1*Cos(aci*pi/180));
Image1.Canvas.Pixels[Floor(gx),Floor(gy)]:=renk;
end;

end;

[muskut]

kodlarını incelemeye vaktim olmadı, kullandığın formun create olayında;

DoubleBuffered := True;

olarak bi satır ekle. Birde öyle dene istersen.

[bluekid]

http://www.efg2.com/Lab/ImageProcessing ... anline.htm
örneğe bir bak scanline kullan