Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

RGB в HSB [D6]


Maxim_k ©   (2007-03-02 15:43:00) 

Уважаемые мастера.
Как перевести RGB цвет в HSB (не HLS).
Спасибо.


Сергей М.   (2007-03-02 16:13:00) [1]

1. Vmax = Max(R,G,B)
2. Vmin = Min(R,G,B)
3. dV = Vmax - Vmin
4. if V<>0 then S=dV/Vmin else begin S=0, H=undefined, Exit end
5. if S<>0 then begin
6.   case V of
      R: H=(G-B)/dV
      G: H=(B-R)/dV
      B: H=(R-G)/dV
    end
7. H = H*60
8. if H<0 then H=H+360


Jeer   (2007-03-02 16:12:00) [2]

P.S.
HSB == HSL


Jeer   (2007-03-02 16:09:00) [3]

http://ru.wikipedia.org/wiki/HSV


Наверх

Титульная страница Поиск, карта сайта Написать письмо