index afbadf3ad8d73dc63b0ba3b018acedca6bfce3cf..b4c406ce139d3ade999c6697c5b0aa4c55ceba27 100644 (file)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
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;