Реферат: Программа фильтрации шумов

pf8bit:Bits := 1;

pf15bit:Bits := 2;

pf16bit:Bits := 2;

pf24bit:Bits := 3;

pf32bit:Bits := 4;

end;

for J :=0 to Image1.Picture.Bitmap.Width * Bits - 1 do

Line^[J] := 255 - Line^[J];

end;

Image1.Visible := False;

Image1.Visible := True;

N4.Enabled := True;

end;

Рис. № 10. Исходное изображение для инверсии.

Рис. № 11. Результат инверсии изображения.