'-------------------------------------------------------------------------------
'                   rainbow_ws2812_Demo_Softblink.bas
'This demo show RB_OrColor and RB_AndColor which can be used
'for a flashing LED with a fade effect.
'-------------------------------------------------------------------------------
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 64



R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)
Config Rainbow = 1 , Rb0_len = 4 , Rb0_port = Portb , Rb0_pin = 2
'                                                   ^ connected to pin 0
'                                       ^------------ connected to portB
'                         ^-------------------------- 8 leds on stripe
'              ^------------------------------------- 1 channel

Const Numled=8
Dim Mask As Dword
Dim Fade as Byte
Dim Color(3) As Byte

Config Portb.2 = Output

'----[MAIN]---------------------------------------------------------------------
Print "mAIN 84"
Rb_selectchannel 0                                          ' select first channel
R = 0 : G = 0 : B = 0                                       ' define a color
Rb_setcolor 0 , Color(1)                                    ' update leds
Rb_send
Wait 2
Print "lOOP"
Do
   For Fade = 0 to 7
      Print "1>" ; Fade
      Waitms 100
      Shift Mask , Left
      Incr Mask
      Rb_orcolor 0 , Mask
      RB_Send
   Next
   For Fade = 0 to 7
      Print "2>" ; Fade
      Waitms 100
      Shift MASK , right
      RB_ANDColor 0 , MASK
      RB_Send
   Next
Loop