App.WS1228B

The WS1228Bs are popular RGB LED controllers for colorful decorations and mood lights etc. For proper operation the WS1228B requires fast and acurate timing. The example works with combination of SPI and DMA. With the SPI port it is possible to shift out a raw bitstream. (i.e. play a one-bit sampled wave-form). (This is not possible with the USART because the USART would add start and stop bits)

Documentation

data RGB

Constructors

RGB Word8 Word8 Word8

Instances

Eq RGB

Methods

(==) :: RGB -> RGB -> Bool

(/=) :: RGB -> RGB -> Bool

Ord RGB

Methods

compare :: RGB -> RGB -> Ordering

(<) :: RGB -> RGB -> Bool

(<=) :: RGB -> RGB -> Bool

(>) :: RGB -> RGB -> Bool

(>=) :: RGB -> RGB -> Bool

max :: RGB -> RGB -> RGB

min :: RGB -> RGB -> RGB

Read RGB

Methods

readsPrec :: Int -> ReadS RGB

readList :: ReadS [RGB]

readPrec :: ReadPrec RGB

readListPrec :: ReadPrec [RGB]

Show RGB

Methods

showsPrec :: Int -> RGB -> ShowS

show :: RGB -> String

showList :: [RGB] -> ShowS

testLEDs :: IO ()

show some color pattern

ledsOff30 :: IO ()

turn off the first 30 LEDs (== set the color to black black)

sendLEDs :: [RGB] -> IO ()

set the LEDs to a list of colors.

black :: RGB

white :: RGB

red :: RGB

green :: RGB

blue :: RGB

encodeRGBLine :: [RGB] -> ByteString

The WS1228B protocoll. translate a list of colors to the transmission bits.

resetCode :: ByteString

encodeRGB :: RGB -> ByteString

lineCodeWord8 :: Word8 -> (Word8, Word8, Word8)

Encode an Word8 according to the WS1228B line code. each bit get extended to three bits

led :: Wire

spi_mosi :: Wire

spiConfig :: Config

initSPI :: MI ()

sendSPI :: ByteString -> MI ()

testWave :: IO ()

Animate LEDs and show some wave like lighting pattern

wave :: Double -> Double -> Int -> Double

redIntensity :: Double -> Word8