Шум Гаусса

[Євгеній Бєлік]

Кто может реализовать шум на картинке!
вот реализировал такую программу, но можна ли изменять ступень шума (как в фотошопе) или как-то по другому это все сделать?

[Rin]

А что такое "ступень шума" в твоем понимании?

[Євгеній Бєлік]

что бы можна было выбирать на столько много добавлять шум?

[Rin]

В таком случае используй не

for i:= 0 to bmp1.Width -1 do
For j:=0 to bmp1.Height - 1 do

А

stepen_shyma:=inttostr(Edit1.text);// защиту от дурака не забудь сделать
i:=0;
j:=0;
while i<=bmp1.Width -1 do
while j<=bmp1.Height -1 do
begin
//...................
//обработка изображения
//....................
i:=i+stepen_shyma;
j:=j+stepen_shyma;
end;

[Євгеній Бєлік]

спасибо конечно за помощь, но всё равно не работает, так как надо

[Rin]

Поясните, что именно не так?

[Євгеній Бєлік]

Ну вот скачай архивчик и посмотри...
если делфи нету, то хотя бы запусти ексе!

[Rin]

Вы объясните словами, что не так. Я и сам могу исправить первый ваш исходник.
Я не работаю в фотошопе, и поэтому не знаю как оно должно быть.

[Євгеній Бєлік]

Там при значении 1 что-то изменяется!
а если больше то ни каких измененных...
я еще закинул скриншоты из фотошопа, посмотрите...вот как-то так...