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。          

舉例說明    

 1 var
 2   h, s, l: Real;
 3   c: TColor;
 4 begin
 5   c := RGBToColor(127,255,127);
 6   ColorToHSL(c, h, s, l);
 7   ShowMessage(Format('H = %f , S = %f , L = %f', [h*360, s, l]));
 8   c := HSLToColor(h, s, l);
 9   ShowMessage(IntToStr(c));
10   if c = RGBToColor(127,255,127) then ShowMessage('OK');
11 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)