Clamp famitracker notes after calculation

SuperDisk · Dec 8, 2023 · 07f720a · 07f720a
1 parent 4b7ead0
commit 07f720a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/clipboardutils.pas b/src/clipboardutils.pas
@@ -108,7 +108,9 @@ function GetFamitrackerPastedCells: TSelection;
   begin
     case Note.Note of
       0, 13, 14, 15: Result.Note := NO_NOTE;
-      else Result.Note := (C_3 + (Note.Note-1)) + (12*(Note.Octave - 1));
+      else begin
+        Result.Note := EnsureRange((C_3 + (Note.Note-1)) + (12*(Note.Octave - 1)), LOWEST_NOTE, HIGHEST_NOTE);
+      end;
     end;
 
     if Note.Instrument = 64 then