RGB Lampe Sound 2 Light Steuerung

[himitsu]

Du könntes die RGB-Wert des vorherirgen Durchlaufs mit einrechnen und so die starken Sprünge verringern/abschwächen?

z.B. nur 10% (eventuell auch mehr oder weniger) des Sound-Wertes in den aktuellen Anzeige-Wert einfließen lassen

Delphi-Quellcode:

var Color_R_old, Color_G_old, Color_B_old: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Color_R, Color_G, Color_B, level: Integer;

begin
  ...
  if CheckBox3.Checked = true then Color_B := (round(HIWORD(level) / 255) + TrackBar1.Position) else Color_B := 0;

  Color_R := Color_R * 10 div 100 + Color_R_old * 90 div 100;
  Color_G := Color_G * 10 div 100 + Color_G_old * 90 div 100;
  Color_B := Color_B * 10 div 100 + Color_B_old * 90 div 100;
  Color_R_old := Color_R;
  Color_G_old := Color_G;
  Color_B_old := Color_B;

  JvColorTrackBar4.Position := Color_R;
  ...
end;