HLS to RGB Conversion - Color Wheel

Date: 02-16-2022

Return to Index

'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
%Unicode = 1
 
#Include "Win32API.inc"
#Include "shlwapi.inc"
%IDC_Graphic=500
 
Function PBMain() As Long
   Local i As Long,iColor As Long , hDlg As Dword
   Dialog New Pixels, 0, "PowerBASIC",300,300,200,360, %WS_OverlappedWindow To hDlg
   Control Add Graphic, hDlg, %IDC_Graphic,"", 0,0,200,360
   For i = 0 To 359
      iColor = ColorHLSToRGB(i,100,100)      'Hue, Luminance, Saturation
      Graphic Line (50,i)-(150,i),iColor
   Next i
   Dialog Show Modal hDlg
End Function  

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm