Эффект Мозаика (пикселизация)

Delphi , Графика и Игры , Bitmap

Автор: Fenik
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Эффект 'Мозаика' (пикселизация)

Зависимости: Windows, Classes, Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Собственное написание (Николай федоровских)
Дата:        1 июня 2002 г.
***************************************************** }

procedure PixelsEffect(Bitmap: TBitmap; Hor, Ver: Word);
{функция разбивает изображение на прямоугольники (ширина - Hor; высота - Ver)
И закрашивает эти прямоугольники средним цветом,
используя среднеарифметическое составляющих}

  function Min(A, B: Integer): Integer;
  begin
    if A < B then
      Result := A
    else
      Result := B;
  end;

type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  i, j, x, y, xd, yd,
    rr, gg, bb, h, hx, hy: Integer;
  Dest: pRGB;
begin
  Bitmap.PixelFormat := pf24Bit;
  if (Hor = 1) and (Ver = 1) then
    Exit;
  xd := (Bitmap.Width - 1) div Hor;
  yd := (Bitmap.Height - 1) div Ver;
  for i := 0 to xd do
    for j := 0 to yd do
    begin
      h := 0;
      rr := 0;
      gg := 0;
      bb := 0;
      hx := Min(Hor * (i + 1), Bitmap.Width - 1);
      hy := Min(Ver * (j + 1), Bitmap.Height - 1);
      for y := j * Ver to hy do
      begin
        Dest := Bitmap.ScanLine[y];
        Inc(Dest, i * Hor);
        for x := i * Hor to hx do
        begin
          Inc(rr, Dest^.R);
          Inc(gg, Dest^.G);
          Inc(bb, Dest^.B);
          Inc(h);
          Inc(Dest);
        end;
      end;
      Bitmap.Canvas.Brush.Color := RGB(rr div h, gg div h, bb div h);
      Bitmap.Canvas.FillRect(Rect(i * Hor, j * Ver, hx + 1, hy + 1));
    end;
end;

Пример использования:

PixelsEffect(FBitmap, 8, 8); 

Программный код на Delphi, реализующий эффект "Мозаика" (пикселизация), который разбивает изображение на прямоугольные блоки (определенные параметрами Hor и Ver) и заполняет каждый блок цветом, полученным из среднего значения оригинальных пиксельных цветов.

Вот подробное описание кода:

1. Процедура PixelsEffect принимает три параметра: Bitmap, входящее изображение; Hor, горизонтальный размер блока; и Ver, вертикальный размер блока.
2. Procedure first checks if the block sizes are 1x1, in which case it returns immediately since there's no need to process the image.
3. Then calculates the number of blocks in each direction (xd and yd) based on the image dimensions and the block sizes.
4. The code loops through each block, iterating over the pixels within the block using nested loops.
5. For each pixel, it accumulates the red, green, and blue color components (rr, gg, and bb) and increments a counter (h).
6. After processing all pixels in the block, it calculates the average color by dividing the accumulated values by the counter (h). This gives the average color of the block.
7. The code then fills each block with the calculated average color using the FillRect method.

Пример использования в конце кода вызывает процедуру PixelsEffect с битмапом и размерами блоков 8x8, применяя эффект мозаики к изображению.

Некоторые предложения по улучшению:

• Вместо использования магических чисел (например, 1, 24) в коде, рассмотрите возможность определения констант или перечислений для улучшения читаемости и обслуживания.
• Рассмотрите добавление обработки ошибок или проверки параметров входных данных (например, значения Hor или Ver, которые слишком велики).
• Вы можете также добавить необязательный параметр для указания порога для расчета среднего цвета, позволяя пользователям контролировать уровень пикселизации.

В целом, код хорошо структурирован и легко понятен. С некоторыми минорными изменениями и улучшениями он может стать еще более robust и эффективным!

В статье описывается функция 'Мозаика' (пикселизация) на языке Delphi, которая разбивает изображение на прямоугольники и закрашивает их средним цветом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Bitmap ::