Button 'Clear' up clears whole sequencer now

src/main_perkons.cc

@@ -374,6 +374,9 @@ namespace Heck {
         bool seq_recording_new{ false };
         bool seq_recording_current{ false };
 
+        bool but_clear_new{ false };
+        bool but_clear_current{ false };
+
         int clock_time_new{};
         int clock_time_current{};
 
@@ -422,13 +425,26 @@ namespace Heck {
             if (seq_recording_current != seq_recording_new) {
                 seq_recording_current = seq_recording_new;
                 if (seq_recording_current) {
-                    hw.PrintLine("RECORDING ON");
+                    hw.PrintLine("BUTTON RECORD ON");
                 } else {
-                    hw.PrintLine("RECORDING OFF");
+                    hw.PrintLine("BUTTON RECORD OFF");
                 }
                 sequencer.recording = seq_recording_current;
             }
 
+            // CLEAR
+            but_clear.Debounce();
+            but_clear_new = but_clear.Pressed();
+            if (but_clear_current != but_clear_new) {
+                but_clear_current = but_clear_new;
+                if (but_clear_current) {
+                    hw.PrintLine("BUTTON CLEAR ON");
+                } else {
+                    hw.PrintLine("BUTTON CLEAR OFF");
+                    sequencer.clear_sequence();
+                }
+            }
+
             if (systick_now - midi_log_systick_last > 5) {
                 midi_log_systick_last = systick_now;
                 if (!event_log.IsEmpty()) {