Четыре варианта извлечения RGB компонент из цвета

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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Какой из них быстрее - не знаю;
если проверите, то напишите мне.

Зависимости: Windows, Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Из разных источников
Дата:        4 июня 2002 г.
***************************************************** }

procedure GetRGB(Color: TColor; var R, G, B: Byte; Variant: Byte = 1);
{Четыре варианта извлечения RGB компонент цвета;
 какой из них быстрее - не знаю;
 если проверите то напишите мне <chook_nu@uraltc.ru> }
begin
  case Variant of
    1:
      begin
        R := Lo(Color); {красный}
        G := Lo(Color shr 8); {зелёный}
        B := Lo((Color shr 8) shr 8); {синий}
      end;
    2:
      begin
        R := Color mod $100;
        G := Color div $100 mod $100;
        B := Color div $10000;
      end;
    3:
      begin
        R := Color and $FF;
        G := (Color and $FF00) shr 8;
        B := (Color and $FF0000) shr 16;
      end;
    4:
      begin
        R := GetRValue(ColorToRGB(Color));
        G := GetGValue(ColorToRGB(Color));
        B := GetBValue(ColorToRGB(Color));
      end;
  end;
end;

Прекрасный фрагмент кода на Delphi!

Это процедура под названием GetRGB, которая извлекает красный (Red), зеленый (Green) и синий (Blue) компоненты из переданного цвета. Цвет передается в виде типа TColor, который является энциклопедным типом в Delphi, представляющим различные цвета.

Процедура принимает четыре параметра:

1. Простой битовый извлекатель с помощью функции Lo.
2. Арифметический извлекатель с помощью деления на модуль и умножения.
3. Еще один битовый извлекатель с помощью сдвига и маскирования.
4. Более сложный извлекатель с помощью функции ColorToRGB, которая конвертирует цвет в значение RGB, а затем извлекает каждый компонент с помощью функций GetRValue, GetGValue и GetBValue.

Выбор варианта задается параметром Variant, который по умолчанию имеет значение 1. Процедура присваивает извлеченные значения RGB переменным R, G и B.

Вот краткое анализе каждого варианта:

Варианты 1 и 3: Два этих варианта используют битовые операции для извлечения компонентов RGB. Вариант 1 использует функцию Lo, которая возвращает низшую байт (т.е., красный компонент) из значения цвета. Вариант 3 использует сдвиг и маскирование для разделения компонентов RGB.

Вариант 2: Этот вариант использует арифметические операции для извлечения компонентов RGB. Он делит значение цвета на степени 256 (2^8) для получения каждого компонента.

Вариант 4: Этот вариант использует функцию ColorToRGB, которая конвертирует значение цвета в тройку RGB (т.е., запись с полями R, G и B). Затем он извлекает каждый компонент с помощью соответствующих функций доступа (GetRValue, GetGValue и GetBValue).

Что касается того, какой из них быстрее, я сказал бы, что Вариант 1 или 3 может быть самым быстрым, поскольку они используют битовые операции, которые обычно очень быстро выполняются. Однако без реальных данных о производительности, трудно сказать с уверенностью.

В целом, этот код предоставляет четыре различных подхода к извлечению компонентов RGB из значения цвета, каждый со своими trade-off в отношении скорости и сложности.

В статье представлены четыре варианта извлечения RGB-компонент из цвета в Delphi, каждый из которых использует различные методы и операции с цветом.

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

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

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