index afbadf3ad8d73dc63b0ba3b018acedca6bfce3cf..d3e4da5809fc6edb59a2140fb87ae0ded2ada562 100644 (file)
function TXMPLoader.Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean;
var
Err: LongInt;
+ Interp: LongInt;
begin
Result := False;
if xmp_start_player(FXMP, 48000, 0) <> 0 then
raise Exception.Create('xmp_start_player failed');
+ if e_MusicLerp then Interp := XMP_INTERP_LINEAR
+ else Interp := XMP_INTERP_NEAREST;
+ xmp_set_player(FXMP, XMP_PLAYER_INTERP, Interp);
+
FFormat.SampleRate := 48000;
FFormat.SampleBits := 16;
FFormat.Channels := 2;
function TXMPLoader.Load(FName: string; SStreaming: Boolean): Boolean;
var
Err: LongInt;
+ Interp: LongInt;
begin
Result := False;
if xmp_start_player(FXMP, 48000, 0) <> 0 then
raise Exception.Create('xmp_start_player failed');
+ if e_MusicLerp then Interp := XMP_INTERP_LINEAR
+ else Interp := XMP_INTERP_NEAREST;
+ xmp_set_player(FXMP, XMP_PLAYER_INTERP, Interp);
+
FFormat.SampleRate := 48000;
FFormat.SampleBits := 16;
FFormat.Channels := 2;