Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Янв

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

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;