TatukGIS - GisDefs - ColorToHSL 过程

过程名称  ColorToHSL

所在单元  GisDefs

过程原型

          procedure ColorToHSL(const _color: TColor; var _h: Real; var _s: Real; var _l: Real);         

过程说明 

　　　根据TColor 转换至 HSL颜色.   

         HSL即色相、饱和度、亮度（英语：Hue, Saturation, Lightness），又称HLS。          

举例说明    

 var
   h, s, l: Real;
   c: TColor;
 begin
   c := RGBToColor(,,);
   ColorToHSL(c, h, s, l);
   ShowMessage(Format('H = %f , S = %f , L = %f', [h*, s, l]));
   c := HSLToColor(h, s, l);
   ShowMessage(IntToStr(c));
   if c = RGBToColor(,,) then ShowMessage('OK');
 end;

RGB	HSL	HSV	结果
(1, 0, 0)	(0°, 1, 0.5)	(0°, 1, 1)
(0.5, 1, 0.5)	(120°, 1, 0.75)	(120°, 0.5, 1)
(0, 0, 0.5)	(240°, 1, 0.25)	(240°, 1, 0.5)