Как сравнить пиксели в цикле с значением первого пикселя в Pascal?

Delphi , Графика и Игры , Цвета и Палитра

Сравнение пикселей в цикле на Object Pascal (Delphi)

Приветствую, разработчики! В данной статье мы рассмотрим, как сравнить каждый пиксель изображения в цикле с значением первого пикселя, используя язык программирования Object Pascal, который часто применяется в среде разработки Delphi.

Контекст задачи

Пользователь с ником BubikolRamios столкнулся с задачей сравнения каждого пикселя изображения с первым пикселем, который предположительно белого цвета. Необходимо написать код, который не будет изменять белые пиксели и модифицировать остальные, уменьшая значение каждого из цветовых каналов.

Решение задачи

Для начала, определим тип переменной p, о котором спрашивал marcov. В контексте работы с битмапами в Delphi, p обычно является указателем на тип PBGRAPixel, который представляет собой структуру с полями для красного, зеленого, синего и альфа-каналов.

p: PBGRAPixel;

Теперь, когда тип определен, мы можем использовать предложенный TRon код для сравнения каждого пикселя с первым пикселем. Однако, стоит отметить, что сравнение указателей p^ <> o^ некорректно, так как оно сравнивает не значения пикселей, а их позиции в памяти. Вместо этого, следует сравнивать значения цветов каждого пикселя.

Вот пример кода, который решает поставленную задачу:

var
  image: TBGRABitmap;
  o, p: PBGRAPixel;
  firstPixel: TColor;
begin
  image := TBGRABitmap.Create;
  // Получаем значение первого пикселя
  firstPixel := image.Canvas.Pixels[0, 0];
  for y := 0 to image.Height-1 do
  begin
    p := image.Scanline[y];
    for x := 0 to image.Width-1 do
    begin
      // Сравниваем цвет текущего пикселя с цветом первого пикселя
      if not (p^.red = firstPixel.r and
              p^.green = firstPixel.g and
              p^.blue = firstPixel.blue) then
      begin
        p^.red := p^.red -1;
        p^.green := p^.green -1;
        p^.blue := p^.blue -1;
        p^.alpha := 255;
      end;
      inc(p);
    end;
  end;
  image.InvalidateBitmap;
end;

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

Альтернативное решение

Если задача требует более тонкой настройки, можно использовать следующий подход, который позволяет задать пороги изменения цвета:

const
  Delta: Integer = 10; // Порог изменения цвета
var
  image: TBGRABitmap;
  o, p: PBGRAPixel;
  firstPixel: TColor;
begin
  image := TBGRABitmap.Create;
  firstPixel := image.Canvas.Pixels[0, 0];
  for y := 0 to image.Height-1 do
  begin
    p := image.Scanline[y];
    for x := 0 to image.Width-1 do
    begin
      if not (Abs(p^.red - firstPixel.r) <= Delta and
              Abs(p^.green - firstPixel.green) <= Delta and
              Abs(p^.blue - firstPixel.blue) <= Delta) then
      begin
        p^.red := MaxValue(p^.red - Delta, 0);
        p^.green := MaxValue(p^.green - Delta, 0);
        p^.blue := MaxValue(p^.blue - Delta, 0);
        p^.alpha := 255;
      end;
      inc(p);
    end;
  end;
  image.InvalidateBitmap;
end;

function MaxValue(value, minValue: Integer): Integer;
begin
  Result := value;
  if Result < minValue then
    Result := minValue;
end;

В этом коде мы вводим константу Delta, которая определяет порог изменения цвета. Если разница между цветом текущего пикселя и первым пикселем превышает заданный порог, то цвет текущего пикселя уменьшается.

Заключение

Мы рассмотрели два способа сравнения пикселей с первым пикселем изображения в Object Pascal. Первый способ представляет собой базовый алгоритм, в то время как второй способ позволяет гибко настраивать процесс изменения цвета. Выбор метода зависит от конкретных требований вашего проекта.

Создано по материалам из источника по ссылке.

Контекст задачи — сравнение каждого пикселя изображения с первым пикселем на языке Object Pascal, с целью уменьшения цветовых каналов у пикселей, не совпадающих с первым.

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

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

:: Главная :: Цвета и Палитра ::