Смешивание цветов рисунка с другим цветом

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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Зависимости: Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Автор Федоровских Николай
Дата:        5 июня 2002 г.
***************************************************** }

procedure Mixer(Bitmap: TBitmap; Value: Byte; Color: TColor);
  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else if B > 255 then
      Result := 255
    else
      Result := B;
  end;
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  x, y: Word;
  Dest: pRGB;
  DR, DG, DB, D: Double;
begin
  D := Value / 200;
  DR := Lo(Color) * (1.275 - D);
  DG := Lo(Color shr 8) * (1.275 - D);
  DB := Lo((Color shr 8) shr 8) * (1.275 - D);
  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
        B := BLimit(Round(B * D + DB));
        G := BLimit(Round(G * D + DG));
        R := BLimit(Round(R * D + DR));
      end;
      Inc(Dest);
    end;
  end;

  { Неоптимизированный вариант.

    Value - процент цвета рисунка от конечного цвета,
    (255-Value) - процент цвета Color от конечного цвета,
    где 255 - это 100%;
    Новый цвет получается путём нахождения
    среднеарифметического значения каждого компонента
    цвета в точке (x, y) и цвета Color
    после процентного преобразования.

    DR := Lo(Color);//извлечение красного
    DG := Lo(Color shr 8);//извлечение зелёного
    DB := Lo((Color shr 8) shr 8);//извлечение синего
    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(Round((R/100 * Value + DR/100 * (255-Value)) / 2));
          G := BLimit(Round((G/100 * Value + DG/100 * (255-Value)) / 2));
          B := BLimit(Round((B/100 * Value + DB/100 * (255-Value)) / 2));
        end;
        Inc(Dest);
      end;
    end; }
end;

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

Mixer(FBitmap, 120, clRed); 

Вот перевод кода на русский язык:

Это фрагмент кода на Delphi, демонстрирующий, как смешать цвета изображения с другим цветом. Процедура Mixer принимает три параметра:

• Bitmap: изображение, которое нужно смешать
• Value: байтовое значение, представляющее процент оригинального цвета, который нужно сохранить (0-200)
• Color: новый цвет, с которым нужно смешать оригинальный цвет

Код использует следующие переменные и функции:

• TRGB: тип записи, представляющий RGB-цвет, состоящий из трех байтовых полей для красного, зеленого и синего компонентов.
• pRGB: указатель на TRGB.
• x и y: целочисленные переменные, используемые как счетчики цикла.
• Dest: указатель на текущую строку в изображении bitmap.
• DR, DG, DB и D: вещественные переменные, используемые для расчета цветов.

Код сначала рассчитывает новые компоненты цвета, умножая компоненты оригинального цвета на фактор (1.275 - D), где D вычисляется как Value / 200. Это делается для постепенного уменьшения оригинального цвета.

Затем код проходит по каждому пикселю в изображении bitmap и обновляет его RGB-компоненты с помощью следующей формулы:

• R: новый красный компонент = BLimit(Round(B * D + DB))
• G: новый зеленый компонент = BLimit(Round(G * D + DG))
• B: новый синий компонент = BLimit(Round(B * D + DB))

Функция BLimit используется для обеспечения, что расчетные цветовые компоненты находятся в диапазоне 0-255.

Наконец, код предоставляет пример использования процедуры Mixer:

Mixer(FBitmap, 120, clRed);

Это смешает цвета изображения FBitmap с красным, сохраняя 20% оригинального цвета и добавляя 80% красного цвета.

Обратите внимание, что это код не оптимизирован для производительности и может быть медлен для больших изображений.

Скрипт на языке Delphi, помогающий смешивать цвета рисунка с другим цветом, созданный автором Федоровских Николаем.

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

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

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