Commit 75308d0

Nick Faro committed on
Bump up audio buffer size, don't preview instrument if playing
commit 75308d03d66b4ed5fd2bad94bca248525a4e6697 parent ad82f8d
2 changed files +4−2
Modifiedsrc/sound.pas +1−1
@@ -270,7 +270,7 @@ begin
270 Want.freq := playbackFrequency; 270 Want.freq := playbackFrequency;
271 Want.format := AUDIO_F32; 271 Want.format := AUDIO_F32;
272 Want.channels := 2; 272 Want.channels := 2;
273 Want.samples := 512; 273 Want.samples := 1024;
274 Want.callback := @AudioCallback; 274 Want.callback := @AudioCallback;
275 275
276 PlayStream := SDL_OpenAudioDevice(nil, 0, @Want, @Have, 0); 276 PlayStream := SDL_OpenAudioDevice(nil, 0, @Want, @Have, 0);
Modifiedsrc/tracker.pas +3−1
@@ -869,6 +869,8 @@ var
869 Addr: Integer; 869 Addr: Integer;
870 Wave: TWave; 870 Wave: TWave;
871 begin 871 begin
872 if Playing then Exit;
873
872 LockPlayback; 874 LockPlayback;
873 875
874 if Instr.Type_ = itWave then begin 876 if Instr.Type_ = itWave then begin
@@ -888,7 +890,7 @@ end;
888 890
889 procedure TfrmTracker.PreviewNote(Note: Integer); 891 procedure TfrmTracker.PreviewNote(Note: Integer);
890 begin 892 begin
891 if not LoadingFile then begin 893 if (not Playing) and (not LoadingFile) then begin
892 PreviewInstrument(Note, UnmodInst(CurrentInstrumentBank, InstrumentNumberSpinner.Value)); 894 PreviewInstrument(Note, UnmodInst(CurrentInstrumentBank, InstrumentNumberSpinner.Value));
893 NoteHaltTimer.Enabled := False; 895 NoteHaltTimer.Enabled := False;
894 NoteHaltTimer.Enabled := True 896 NoteHaltTimer.Enabled := True