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

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

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

procedure
 ColorToGL(c: TColor; var
 R, G, B: GLFloat);
begin

  R := (c mod
 $100) / 255;
  G := ((c div
 $100) mod
 $100) / 255;
  B := (c div
 $10000) / 255;
end
;

Другое по теме:

• Работа с палитрой
• Перевод RGB в GRAY
• Преобразование цвета RGB 34 HLS