Einzelnen Beitrag anzeigen

hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#11

Re: Vierecke mit Bildern füllen

  Alt 9. Feb 2004, 16:44
du musst für x-richtung nur linear interpolieren und zeilenweise die pixel kopieren

for y :=0 to quelle.height-1 do
begin
for x :=0 to soll_width-1 do
begin
Ziel.canvas.pixels[x,y] := quelle.Canvas.Pixels[round(quelle.width* x/soll_width),y];
end;
end;

die scanline-methode lass ich doch ma weg...

ODER

ziel.canvas.copyrect(rect(0,0,soll_width,soll_heig ht),quelle.canvas,rect(0,0,quelle.width,quelle.hei ght));

dann ist es schon gestreckt. dazu geht das auch noch verdammt schnell.
Power is nothing without TControl
  Mit Zitat antworten Zitat