aboutsummaryrefslogtreecommitdiffstats
path: root/src/media/UAudioPlayback_Bass.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/media/UAudioPlayback_Bass.pas7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/media/UAudioPlayback_Bass.pas b/src/media/UAudioPlayback_Bass.pas
index 1d7a44dc..a3c3bd30 100644
--- a/src/media/UAudioPlayback_Bass.pas
+++ b/src/media/UAudioPlayback_Bass.pas
@@ -572,6 +572,10 @@ end;
function TBassVoiceStream.Open(ChannelMap: integer; FormatInfo: TAudioFormatInfo): boolean;
var
Flags: DWORD;
+const
+ // prevent buffer underruns in BASS BASS_StreamPutData() sample output queue
+ // by stretching the input signal.
+ InputStretch = 0.01; // 1%
begin
Result := false;
@@ -592,7 +596,8 @@ begin
*)
// create the channel
- Handle := BASS_StreamCreate(Round(FormatInfo.SampleRate), 1, Flags, STREAMPROC_PUSH, nil);
+ Handle := BASS_StreamCreate(Round(FormatInfo.SampleRate * (1-InputStretch)),
+ 1, Flags, STREAMPROC_PUSH, nil);
// start the channel
BASS_ChannelPlay(Handle, true);