$lib "Rainbow1.21.lib"
$external WS2812b

Declare Sub Select_Rainbow(byval Channel As Byte)
Declare Sub Setcolor(byval Lednr As Word , Color() As Byte)
Declare Sub Send()
Declare Sub Shift_left(byval Left_index As Word , Byval Width As Word) : $external Use_shift_left
Declare Sub Shift_right(byval Left_index As Word , Byval Width As Word) : $external Use_shift_right
Declare Sub Rotate_left(byval Left_index As Word , Byval Width As Word) : $external Use_rotate_left
Declare Sub Rotate_right(byval Left_index As Word , Byval Width As Word) : $external Use_rotate_right
Declare Sub Clear_colors() : $external Use_clear_colors
Declare Sub Fill(color() As Byte) : $external Use_fill

  '#Rainbow0
Const Rainbow0_len = 4
Const Rainbow0_port = PortC
Const Rainbow0_pin = Pc5

Dim Color(3) As Byte
Dim Led As Byte
Dim numl As Byte
Dim p As Integer
'Dim v As Byte
Dim c As Byte
Dim col As Byte
Dim rv As Byte
Dim gv As Byte
Dim bv As Byte

R Alias Color(_base)
B Alias Color(_base + 1)
G Alias Color(_base + 2)

'v = 200
c = 1

'------------------------------------------------------------------------------------------------------------------------
Do
p = 250                                                              ' установка паузы

Call Select_rainbow(0)

rv = 200
gv = 0
bv = 0
R = rv : G = gv : B = bv
Gosub sdvig1

'------------------------------------------------------------------------------------------------------------------------
'Gosub заполнение_цветом
'Waitms p
'Gosub бегущий_цвет
'Waitms p
'Gosub сдвиг_цвета
'Waitms p

Loop
End
'------------------------------------------------------------------------------------------------------------------------
sdvig:

For Led = 0 To Rainbow0_len
      numl = Led
      Call Setcolor(numl , Color())
'      numl = numl + 2
'      Call Setcolor(numl , Color())
'      Call Shift_right(0 , Rainbow0_len)
      Waitms p
      Call Send()
Next

Return
'------------------------------------------------------------------------------------------------------------------------
sdvig1:

'p = p / 2

For Led = 0 To Rainbow0_len
'      numl = Led
      Call Setcolor(numl , Color())
'      numl = numl + 2
'      Call Setcolor(numl , Color())
      Call Shift_right(0 , Rainbow0_len)
'      Waitms p
      Call Send()
Next

Return

'------------------------------------------------------------------------------------------------------------------------
бегущий_цвет:

'Gosub назначение_цвета
Call Select_rainbow(0)

For c = 1 To Rainbow0_len

Gosub назначение_цвета

R = rv : G = gv : B = bv
Gosub sdvig
Waitms p

rv = 0
gv = 0
bv = 0
R = rv : G = gv : B = bv
Gosub sdvig
'Waitms p

Next c
Return:
'------------------------------------------------------------------------------------------------------------------------
сдвиг_цвета:

'Gosub назначение_цвета
Call Select_rainbow(0)

For c = 1 To Rainbow0_len

Gosub назначение_цвета

R = rv : G = gv : B = bv
Gosub sdvig1
rv = 0
gv = 0
bv = 0
R = rv : G = gv : B = bv
Gosub sdvig1

'Waitms p

Next c
Return
'------------------------------------------------------------------------------------------------------------------------
заполнение_цветом:

'Gosub назначение_цвета
Call Select_rainbow(0)

For c = 1 To Rainbow0_len

Gosub назначение_цвета

R = rv : G = gv : B = bv
Gosub sdvig

'Waitms p

Next c
Return
'===================================================================
назначение_цвета:

If c = 1 Then
      rv = 200
      gv = 0
      bv = 0
End If
If c = 2 Then
      rv = 0
      gv = 200
      bv = 0
End If
If c = 3 Then
      rv = 0
      gv = 0
      bv = 200
End If
If c = 4 Then
      rv = 200
      gv = 200
      bv = 0
End If
If c = 5 Then
      rv = 200
      gv = 50
      bv = 0
End If
If c = 6 Then
      rv = 0
      gv = 100
      bv = 50
End If
If c = 7 Then
      rv = 0
      gv = 50
      bv = 200
End If
If c = 8 Then
      rv = 200
      gv = 100
      bv = 0
End If
If c = 9 Then
      rv = 200
      gv = 0
      bv = 50
End If
If c = 10 Then
      rv = 50
      gv = 100
      bv = 0
End If
If c = 11 Then
      rv = 100
      gv = 0
      bv = 200
End If
If c = 12 Then
      rv = 50
      gv = 200
      bv = 0
End If
If c = 13 Then
      rv = 200
      gv = 0
      bv = 100
End If
If c = 14 Then
      rv = 50
      gv = 200
      bv = 50
End If
If c = 15 Then
      rv = 50
      gv = 50
      bv = 200
End If
If c = 16 Then
      rv = 50
      gv = 0
      bv = 200
End If
If c = 17 Then
      rv = 0
      gv = 50
      bv = 100
End If
If c = 18 Then
      rv = 100
      gv = 50
      bv = 100
End If
If c = 19 Then
      rv = 50
      gv = 100
      bv = 50
End If
If c = 20 Then
      rv = 50
      gv = 100
      bv = 50
End If
If c = 21 Then
      rv = 200
      gv = 50
      bv = 50
End If
If c = 22 Then
      rv = 50
      gv = 100
      bv = 100
End If
If c = 23 Then
      rv = 50
      gv = 50
      bv = 200
End If
If c = 24 Then
      rv = 100
      gv = 200
      bv = 0
End If
If c = 25 Then
      rv = 100
      gv = 100
      bv = 200
End If
If c = 26 Then
      rv = 200
      gv = 200
      bv = 200
End If

Return