$regfile = "m128def.dat"

$crystal = 12000000
$hwstack = 180
$swstack = 180
$framesize = 180


'Const Скорость_падения = 1
Const Скорость_роста_сосулек = 50

Const Paus = 10







Dim Dl_pl As Byte                                           'Плавность наростания
Dl_pl = Скорость_роста_сосулек                              'Скорость роста сосулек (RND*)





Const Колличество_канналов = 16                             'От 0-16 ('это 17 каналов!!!! Ноль первый канал)





Const Скорость_нижней_ленты = 40                            'Скорость мерцания нижней ленты

Config Base = 0                                             'Массивы начинаются с индекса ноль!!!

'Инициализация всеё LED системы
Config Rainbow = 10 , Rb0_len = 17 , Rb0_port = Portd , Rb0_pin = 0 , _
Rb1_len = 17 , Rb1_port = Portd , Rb1_pin = 1 , _
Rb2_len = 17 , Rb2_port = Portd , Rb2_pin = 2 , _
Rb3_len = 17 , Rb3_port = Portd , Rb3_pin = 3 , _
Rb4_len = 17 , Rb4_port = Portd , Rb4_pin = 4 , _
Rb5_len = 17 , Rb5_port = Portd , Rb5_pin = 5 , _
Rb6_len = 17 , Rb6_port = Portd , Rb6_pin = 6 , _
Rb7_len = 17 , Rb7_port = Portd , Rb7_pin = 7 , _
Rb8_len = 17 , Rb8_port = Portg , Rb8_pin = 0 , _
Rb9_len = 9 , Rb9_port = Portg , Rb9_pin = 1 , _


Dim Bright As Byte
Bright = 100
Dim P As Byte
Dim C As Byte
Dim Adrs As Byte

Dim Color(3) As Byte
R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)

Dim Tmled As Byte                                           'Скорость обновления экрана
Dim Col(9) As Byte                                          'Ограниченный цветовой массив 0-8
Dim Speed(9) As Byte                                        'Скоростной массив данных
Dim Kn As Byte                                              'Обрабатываемый канал в системе
Dim Num(9) As Byte                                          'Орабатываемый индикатор в обрабатываемом канале системы
Dim Vr As Byte                                              'Временная переменная
Dim Br(9) As Byte                                           'Замедлитель паявления (лимит плавности)
Dim Dl(9) As Byte                                           '
Dim Tm(9) As Byte
Dim Trig(9) As Byte
Dim Colw(9) As Byte
Dim Brw(9) As Byte
Dim Rnnd(9) As Byte
Dim Rnndvr(9) As Byte
Dim Triger As Byte                                          'Замедлитель мерцания нижней ленты

'Rb_clearcolors
'Rb_send

Goto Prog:

Colors:
   Rb_selectchannel Kn

   Select Case C                                            'Определим текущий цвет
      Case 0 : R = Bright : G = 0 : B = 0                   'Красный
      Case 1 : R = Bright : G = Bright / 2 : B = 0          'Оранжевый
      Case 2 : R = Bright : G = Bright : B = 0              'Жёлтый
      Case 3 : R = 0 : G = Bright : B = 0                   'Зелёный
      Case 4 : R = 0 : G = Bright : B = Bright              'Голубой
      Case 5 : R = 0 : G = 0 : B = Bright                   'Синий
      Case 6 : R = Bright / 2 : G = 0 : B = Bright          'Фиолетовый
      Case 7 : R = Bright : G = Bright : B = Bright         'Белый
      Case Else : R = 0 : G = 0 : B = 0                     'Чёрный
    End Select

    Rb_setcolor Num(kn) , Color(0)

Return


Prog:

'(
For Kn = 0 To 9

Speed(kn) = 1
Speed(kn) = Speed(kn) + Rnd(20)
Tm(kn) = 0
For P = 0 To 16                                             'Rnd(20)
Col(p) = 7                                                  'Rnd(7)
Next P

Num(kn) = 2
Br(kn) = 2

Next Kn
')
Kn = 0

Do
   'задатчик обрабатываемого канала

   If Tm(kn) = 0 Then                                       'Общий замедлитель для каждого канала


      If Num(kn) > Колличество_канналов Then                'Инициализация канала (начальный запуск) НАЧАЛО РОСТА СОСУЛЬКИ!
         Num(kn) = 0                                        'Сброс номера обрабатываемого светодиода
         Br(kn) = 0                                         'Сброс силы света массива

         Speed(kn) = Rnd(150) + 5                           'Расчёт скорости роста сосульки

         'Tm(kn) = 0                                         'Сбрасование таймера замедлителя
         Dl(kn) = Rnd(7) + 1                                'Длина сосульки

         Vr = Rnd(140)                                      'Выбор цвета
         Col(kn) = Vr / 30
                                      'Изменяем новый
        ' Col(kn) = Col(kn) / 10
         Bright = 255
         C = Col(kn)
         Gosub Colors
         'Rb_send                                            ' =============================================================================================================
         Else                                               'Работа канала
           If Br(kn) > 40 Then                              'Скорость плавного появления                            '

              If Num(kn) => Dl(kn) Then
               C = 8
               Gosub Colors                                 'Убираем предыдущий

              End If

              Incr Num(kn)                                  'Переходим к следующему

              If Num(kn) = 16 Then                          'Появление нижнего от номера
               Trig(kn) = 1
               Colw(kn) = Col(kn)                           'Запоминание цвета канала
              End If


              If Num(kn) < Dl(kn) Then
                  'Br(kn) = 0
              End If

              C = Col(kn)

              Vr = Num(kn) * 13                             'Угасание в момент падения
              Vr = 255 - Vr
              Bright = Vr
              Gosub Colors                                  'Изменяем новый

              Else
                  C = Col(kn)
                  Dl_pl = Скорость_роста_сосулек
                  Br(kn) = Br(kn) + Dl_pl                   'Плавность кратная лимиту
                  Bright = Br(kn)                           'Палитра цвета
                  Gosub Colors                              'Изменяем новый
                  'Rb_send                                   ' =============================================================================================================
           End If





           'Rb_send                                          '================================================================================


      End If

      Vr = Num(kn)                                          'Кинематика задержки падения
      Vr = Speed(kn) / Vr                                   ' / Vr
      Tm(kn) = Vr                                           'Сброс таймера задержки

      Else

      If Tm(kn) > 0 Then Decr Tm(kn)                        'Таймер задержки

   End If




   'Incr Triger

   'If Triger = Скорость_нижней_ленты Then                   'Скорость мерцания нижней ленты
      Triger = 0
     Select Case Trig(kn)                                   'Режим ленты
        Case 0:                                             'нРежим фона
           Rb_selectchannel 9
           If Rnndvr(kn) < Rnnd(kn) Then
              Incr Rnndvr(kn)
              Elseif Rnndvr(kn) > 0 Then
              Decr Rnndvr(kn)
           End If
           Bright = Rnndvr(kn) + Rnd(30)
           R = 0 : G = 0 : B = Bright
           Rb_setcolor Kn , Color(0)
          ' Rb_send                                          '==========================================================================================

        Case 1:                                             'Появление света внизу (плавность)
         Rb_selectchannel 9
         Brw(kn) = Brw(kn) + 2                              'Плавность появления цвета в нижней полоске
         Bright = Brw(kn)
         If Bright >= 200 Then Trig(kn) = 2
         Select Case Colw(kn)                               'Определим текущий цвет
           Case 0 : R = Bright : G = 0 : B = 0              'Красный
           Case 1 : R = Bright : G = Bright / 2 : B = 0     'Оранжевый
           Case 2 : R = Bright : G = Bright : B = 0         'Жёлтый
           Case 3 : R = 0 : G = Bright : B = 0              'Зелёный
           Case 4 : R = 0 : G = Bright : B = Bright         'Голубой
           Case 5 : R = 0 : G = 0 : B = Bright              'Синий
           Case 6 : R = Bright / 2 : G = 0 : B = Bright     'Фиолетовый
           Case 7 : R = Bright : G = Bright : B = Bright    'Белый
         End Select
         Rb_setcolor Kn , Color(0)
         'Rb_send                                            '==========================================================================================
        Case 2:

         Rb_selectchannel 9
         If Brw(kn) => 10 Then
            Brw(kn) = Brw(kn) - 10
            Else
            Trig(kn) = 0
         End If
         Bright = Brw(kn)

         Select Case Colw(kn)                               'Определим текущий цвет
           Case 0 : R = Bright : G = 0 : B = 0              'Красный
           Case 1 : R = Bright : G = Bright / 2 : B = 0     'Оранжевый
           Case 2 : R = Bright : G = Bright : B = 0         'Жёлтый
           Case 3 : R = 0 : G = Bright : B = 0              'Зелёный
           Case 4 : R = 0 : G = Bright : B = Bright         'Голубой
           Case 5 : R = 0 : G = 0 : B = Bright              'Синий
           Case 6 : R = Bright / 2 : G = 0 : B = Bright     'Фиолетовый
           Case 7 : R = Bright : G = Bright : B = Bright    'Белый
           Case Else : R = 0 : G = 0 : B = 0                'Чёрный
         End Select
         Rb_setcolor Kn , Color(0)
         'Rb_send                                            '==========================================================================================
     End Select

   'End If





   Incr Tmled



   'Kn = 0
   'If Tmled = 5 Then                                        'Скорость обновления экрана
    Tmled = 0
   'Rb_setcolor Kn , Color(0)






   Incr Kn
   If Kn = 9 Then                                           '????????????????????????????????????????????????????
      Kn = 0
   Rnnd(kn) = Rnd(15)                                       'Уровень фоновой подсветки
      Rb_selectchannel 9
      Rb_send
   End If
Rb_selectchannel Kn
   Rb_send



                                                    'Вывод каналов
Waitus Paus


Loop