tri-hex'es

Function Tri-Hex-It(red, green, blue)

;????

End Function

Function GetRed(rgb)
   Return rgb Shr 16 And %11111111 
End Function 

Function GetGreen(rgb)
   Return rgb Shr 8 And %11111111 
End Function 

Function GetBlue(rgb) 
   Return rgb And %11111111 
End Function

Function GetRGB(red,green,blue)
   Return blue Or (green Shl 8) Or (red Shl 16)
End Function

; Ascii value for each hex digit
Dim giHexDigit(15)
giHexDigit(0) = 48
giHexDigit(1) = 49
giHexDigit(2) = 50
giHexDigit(3) = 51
giHexDigit(4) = 52
giHexDigit(5) = 53
giHexDigit(6) = 54
giHexDigit(7) = 55
giHexDigit(8) = 56
giHexDigit(9) = 57
giHexDigit(10) = 65
giHexDigit(11) = 66
giHexDigit(12) = 67
giHexDigit(13) = 68
giHexDigit(14) = 69
giHexDigit(15) = 70


Function RGB_To_TriHex$(iR%,iG%,iB%)
	Return ToHex8(iR) + ToHex8(iG) + ToHex8(iB)
End Function


Function FromHex8%(sHex$)
	Local iValue%
	If Len(sHex) <> 2 Then Return 0

	sHex = Upper(sHex)
	
	For i = 0 To 15
		If giHexDigit(i) = Asc(Right(sHex,1)) Then
			iValue = i
			Exit
		End If
	Next

	For i = 0 To 15
		If giHexDigit(i) = Asc(Left(sHex,1)) Then
			iValue = iValue + i * 16
			Exit
		End If
	Next
	
	Return iValue
End Function


Function ToHex8$(iValue%)
	; iValue must be 0-255 (8-bits)
	If iValue > 255 Or iValue < 0 Then RuntimeError("Invalid value passed to ToHex8() function.")
	Local iLow% = iValue Mod 16
	Local iHi% = iValue Shr 4
	
	Return Chr(giHexDigit(iHi)) + Chr(giHexDigit(iLow))
End Function


Function Set_Color_Hex(sColorHex$)
	Color FromHex8(Left(sColorHex,2)),FromHex8(Mid(sColorHex,3,2)),FromHex8(Right(sColorHex,2))
End Function

Include "Hex8.bb"

Graphics 640,480
SetBuffer BackBuffer()

; Convert RGB values to "Tri-Hex" string.
Text 0,0,RGB_To_TriHex(255,200,100)

; Use a "Tri-Hex" string to set the current color.
Set_Color_Hex("FFAA00")


Oval 200,200,100,100,True

Flip

WaitKey

End