Алгоритм с уровнем шума

Posted by micher under Delphi

Подскажите алгоритм с уровнем шума(как в photoshop).

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

procedure AddNoise(Bitmap: TBitmap; Amount: Integer; Mono: Boolean);

  function BLimit(B: Integer): Byte;

  begin

    if B  255 then

      Result := 255

    else

      Result := B;

  end;
type

  TRGB = record

  B, G, R: Byte;

  end;

  pRGB = ^TRGB;

var

  x, y, i, a: Integer;

  Dest: pRGB;

begin

  Bitmap.PixelFormat := pf24Bit;

  Randomize;

  i := Amount shr 1;

  if Mono then

    for y := 0 to Bitmap.Height - 1 do

    begin

      Dest := Bitmap.ScanLine[y];

      for x := 0 to Bitmap.Width - 1 do

      begin

        a := Random(Amount) - i;

        with Dest^ do

        begin

          r := BLimit(r + a);

          g := BLimit(g + a);

          b := BLimit(b + a);

        end;

        Inc(Dest);

      end;

    end

  else

    for y := 0 to Bitmap.Height - 1 do

    begin

      Dest := Bitmap.ScanLine[y];

      for x := 0 to Bitmap.Width - 1 do

      begin

        with Dest^ do

        begin

          r := BLimit(r + Random(Amount) - i);

          g := BLimit(g + Random(Amount) - i);

          b := BLimit(b + Random(Amount) - i);

        end;

        Inc(Dest);

      end;

    end;

end;

spamer

второй параметр функции и есть уровень шума

AddNoise(bitmap, 10000, true);

тема на форуме

Похожие статьи

• Код программы алгоритм Форда-Фалкерсона
• Алгоритм шифрования TEA
• Оптимальный алгоритм — получить список из N наиболее часто встречающихся элементов
• Алгоритм программы которая двигает курсор в обратном направлении
• Сортировка массива методом пузырька. Пример.