Function Max3#(v#,v2#,v3#)

	Select True
	
	Case v > v2 And v > v3: Return v
	Case v2 > v And v2 > v3: Return v2
	Default: Return v3
	
	End Select

End Function
Function Min3#(v#,v2#,v3#)

	Select True
	
	Case v < v2 And v < v3: Return v
	Case v2 < v And v2 < v3: Return v2
	Default: Return v3
	
	End Select

End Function

Global R,G,B
Function HSL2RGB(h#,s#,l#)
	h = h / 360
	s = s / 255
	l = l / 255

	If ( S = 0 ) Then
	  R = L * 255
	  G = L * 255
	  B = L * 255
	Else
	  If ( L < 0.5 ) Then
	      Tmp2# = L * ( 1 + S )
	  Else
	      Tmp2 = ( L + S ) - ( S * L )
	  End If
	
	  Tmp1# = 2 * L - Tmp2
	
	  R = 255 * H2RGB( Tmp1, Tmp2, H + ( 1.0 / 3.0 ) )
	  G = 255 * H2RGB( Tmp1, Tmp2, H )
	  B = 255 * H2RGB( Tmp1, Tmp2, H - ( 1.0 / 3.0 ) )
	End If
End Function

Function H2RGB#( v1#, v2#, v3# )

    If ( v3 < 0 ) Then
        v3 = v3 + 1
    End If
    If ( v3 > 1 ) Then
        v3 = v3 - 1
    End If

    If ( ( 6.0 * v3 ) < 1 ) Then
        Return ( v1 + ( v2 - v1 ) * 6.0 * v3 )
    ElseIf ( ( 2.0 * v3 ) < 1 ) Then
        Return v2
    ElseIf ( ( 3.0 * v3 ) < 2 ) Then
        Return ( v1 + ( v2 - v1 ) * ( ( 2.0 / 3.0 ) - v3 ) * 6.0 )
    Else
        Return v1
    End If

End Function

Global H,S,L
Function RGB2HSL(r,g,b)

	Local eH#, eS#, eL#

	Local TmpR# = ( R / 255.0 )
	Local TmpG# = ( G / 255.0 )
	Local TmpB# = ( B / 255.0 )
	
	Local TmpMin# = Min3( TmpR, TmpG, TmpB )
	
	Local TmpMax# = Max3( TmpR, TmpG, TmpB )
	
	Local DelMax# = TmpMax - TmpMin
	
	eL = ( TmpMax + TmpMin ) * 0.5
	
	If ( DelMax = 0 ) Then
		eH = 0
		eS = 0
	Else
		If ( eL < 0.5 ) Then
			eS = DelMax / ( TmpMax + TmpMin )
		Else
			eS = DelMax / ( 2.0 - DelMax )
		End If
		
		Select TmpMax
		Case TmpR:
			eH = (TmpG - TmpB) / DelMax
		Case TmpG:
			eH = 2.0 + (TmpB - TmpR) / DelMax
		Case TmpB:
			eH = 4.0 + (TmpR - TmpG) / DelMax
		End Select
		eH = eH / 6.0
		
		If ( eH < 0 ) Then
			eH = eH + 1.0
		End If
		If ( eH > 1 ) Then
			eH = eH - 1.0
		End If
	End If
	
	DebugLog "eh: " + eh + " es: " + es + " el: " + el
	
	H = eH * 360.0
	S = eS * 255.0
	L = eL * 255.0

End Function


Repeat

	RGB2HSL(Input("R?"),Input("G?"),Input("B?"))
	Print "H: " + H + " S: " + S + " L: " + L
	
	HSL2RGB(Input("H?"),Input("S?"),Input("L?"))
	Print "R: " + R + " G: " + G + " B: " + B

Forever