Bump up audio buffer size, don't preview instrument if playing

SuperDisk · Dec 11, 2023 · 75308d0 · 75308d0
1 parent ad82f8d
commit 75308d0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/sound.pas b/src/sound.pas
@@ -270,7 +270,7 @@ procedure EnableSound;
   Want.freq := playbackFrequency;
   Want.format := AUDIO_F32;
   Want.channels := 2;
-  Want.samples := 512;
+  Want.samples := 1024;
   Want.callback := @AudioCallback;
 
   PlayStream := SDL_OpenAudioDevice(nil, 0, @Want, @Have, 0);

diff --git a/src/tracker.pas b/src/tracker.pas
@@ -869,6 +869,8 @@ procedure TfrmTracker.PreviewInstrument(Note: Integer; Instr: TInstrument;
   Addr: Integer;
   Wave: TWave;
 begin
+  if Playing then Exit;
+
   LockPlayback;
 
   if Instr.Type_ = itWave then begin
@@ -888,7 +890,7 @@ procedure TfrmTracker.PreviewInstrument(Note: Integer; Instr: TInstrument;
 
 procedure TfrmTracker.PreviewNote(Note: Integer);
 begin
-  if not LoadingFile then begin
+  if (not Playing) and (not LoadingFile) then begin
     PreviewInstrument(Note, UnmodInst(CurrentInstrumentBank, InstrumentNumberSpinner.Value));
     NoteHaltTimer.Enabled := False;
     NoteHaltTimer.Enabled := True