If a note is played and the sustain pedal is not down and the same no…

…te is already playing, then the first note is silenced as the new note begins.

src/Pianobook Piano Template - Voice Triggering (with Mic Levels).ksp

@@ -68,6 +68,8 @@ on init
     declare $tmp_num_round_robins
     declare $tmp_last_rr
     declare %last_rr[5] := (0,0,0,0,0)
+    declare %notes_playing[128]
+
 end on
 
 function func_play_note
@@ -119,7 +121,14 @@ function func_play_note
     $tmp_note_id := play_note($func_play_note_midi_note, $func_play_note_velocity, 0, -1) 
     set_event_par_arr($tmp_note_id,$EVENT_PAR_ALLOW_GROUP,0,$ALL_GROUPS)
 
-    message("RR: " & $tmp_rr)
+    if($func_play_note_type = 1)
+        if (%notes_playing[$func_play_note_midi_note] > 0)
+            fade_out(%notes_playing[$func_play_note_midi_note], 20000, 1)
+        end if
+        %notes_playing[$func_play_note_midi_note] := $tmp_note_id
+    end if
+
+    { message("RR: " & $tmp_rr) }
     %last_rr[$func_play_note_type-1] := $tmp_rr
     $i:= 0
     while($i<$NUM_MICS)

src/Pianobook Piano Template - Voice Triggering.ksp

@@ -25,6 +25,7 @@ on init
       these, we will do round robins. Remember to change the size of
       the arrays (the number in brackets after the array name) if you
       add multiple groups to any of these. }
+
     declare %note_without_pedal_groups[4]  := (0,1,2,3)
     declare %note_with_pedal_groups[4]     := (4,5,6,7)
     declare %release_trigger_groups[4]     := (8,9,10,11)
@@ -62,6 +63,8 @@ on init
     declare $release_trigger_last_rr := 0
     declare $pedal_down_last_rr := 0
     declare $pedal_up_last_rr := 0
+    declare %notes_playing[128]
+
 end on
 
 function func_play_note
@@ -124,6 +127,15 @@ function func_play_note
     $tmp_note_id := play_note($func_play_note_midi_note, $func_play_note_velocity, 0, -1) 
     set_event_par_arr($tmp_note_id,$EVENT_PAR_ALLOW_GROUP,0,$ALL_GROUPS)
 
+    if($func_play_note_type = 1)
+        if (%notes_playing[$func_play_note_midi_note] > 0)
+            fade_out(%notes_playing[$func_play_note_midi_note], 20000, 1)
+        end if
+        %notes_playing[$func_play_note_midi_note] := $tmp_note_id
+    end if
+
+    { message("RR: " & $tmp_rr) }
+
     select($func_play_note_type)
         case 1
             $note_without_pedal_last_rr := $tmp_rr