Private Sub ByteToRGB (Value As Byte) As ULong
If Value< 85 Then
Log(Value * 3, 255 - Value* 3, 0)
Strip1.setColor(10, Value * 3, 255 - Value* 3, 0)
Else If Value< 170 Then
Value= Value-85
Log(255 - Value* 3, 0, Value* 3)
Strip1.setColor(10, 255 - Value* 3, 0, Value* 3)
Else
Value= Value- 170
Log(0, Value* 3, 255 - Value* 3)
Strip1.setColor(10, 0, Value* 3, 255 - Value* 3)
End If
Strip1.show
End Sub