如何用ScanLine来实现图像的反转 |
尚未結案
|
小丫123
初階會員 發表:85 回覆:62 積分:29 註冊:2004-08-31 發送簡訊給我 |
我用ScanLine 实现了图像二值化,如果我现在想把图像进行反转,虽然我知道应该是将象素p[i,j]值与反转后对应的点进行交换,但是不知道程序如何实现,恳请高手指点。
以下是scanLine实现图像二值化的程序:
bmp.assign(image1.Picture .Bitmap); bmp.PixelFormat :=pf24bit; randomize; for y:=0 to bmp.height-1 do begin p:=bmp.ScanLine [y]; for x:= 0 to bmp.width-1 do begin gray:=round(p[x*3]*0.3 p[x*3 1]*0.59 p[x*3 2]*0.11); if gray>z then begin p[x*3]:=0; p[x*3 1]:=0; p[x*3 2]:=0; end else begin p[x*3]:=255; p[x*3 1]:=255; p[x*3 2]:=255; end; end; end; image2.picture.Bitmap.Assign(bmp); bmp.Free; end;研二的女生 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |