Рождественские огоньки

Безумно сложно после новогодних праздников заставить себя делать что-то полезное. Проще всего начинать с чего-то легкого, немного ненужно и совсем простого. Вот и я решил сделать очередную световую сцену для системы управления «умного дома» чтобы торжественно отметить Рождество с бутылочкой шампанского. В качестве прототипа послужила новогодняя игрушка, под названием «светящийся домик». Внутри него размещен RGB светодиод и простейшая схема управления, которая увеличивает яркость каждого канала, создавая эффект смешивания. Чтобы реализовать аналогичный эффект для ПК потребовалось совсем немного кода.

procedure TForm_player.scene1Click(Sender: TObject);
label m1;
var i:integer;  MaxL:integer;
begin
  _Stop:=False;
  MaxL:=100;
m1:
  for i:= 1 to MaxL do
  begin
    _r(i);
    _Delay(50);
    if _Stop then Exit;
  end;
  for i:= 1 to MaxL do
  begin
    _r(MaxL-i);
    _b(i);
    _Delay(50);
    if _Stop then Exit;
  end;
  for i:= 1 to MaxL do
  begin
    _b(MaxL-i);
    _g(i);
    _Delay(50);
    if _Stop then Exit;
  end;
  for i:= 1 to MaxL do
  begin
    _g(MaxL-i);
    _Delay(50);
    if _Stop then Exit;
  end;
  goto m1;
end;

Значения яркости каждого канала получает контроллер освещения и при помощи PWM модуляции формирует необходимую яркость каждого канала