Sub Process_Globals
Type clr(a As Int, r As Int, g As Int, b As Int)
Dim cols As clr
End Sub
SplitColors(thisColor)
a = cols.a
r = cols.r
g = cols.g
b = cols.b
Sub SplitColors(x As Long)
cols.Initialize
Dim a, r, g, b As Int
Dim a0, r0, g0 As Long
cols.a = Floor(x / Power(2,24))
r0 = x Mod Power(2,24)
cols.r = Floor(r0 / Power(2,16))
g1 = r0 Mod Power(2,16)
cols.g = Floor(g0 / Power(2,8))
cols.b = cols.g Mod Power(2,8)
End Sub