Перевод цвета из TColor в OpenGL 2

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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Перевод цвета из TColor в OpenGL (2)

Зависимости: нет
Автор:       Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol
Copyright:
Дата:        05 мая 2002 г.
***************************************************** }

procedure ColorToGL(c: TColor; var R, G, B: GLFloat);
begin
  R := (c and $FF) / 255;
  G := ((c and $FF00) shr 8) / 255;
  B := ((c and $FF0000) shr 16) / 255;
end;

Статья Перевод цвета из TColor в OpenGL 2 раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal.

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

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