index c958c7b86473220dc30b38a356aa396bf90d9d2b..5235f2c0097a7040f297b350e984b45bdda46fd7 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
const
DEFAULT_SOUNDFONT = 'data/soundfont.sf2';
-var
- e_Soundfont: string = '';
-
implementation
uses sysutils, utils, e_sound, e_log, ctypes{$IFDEF WINDOWS}, windirs{$ENDIF};
function TFluidLoaderFactory.GetLoader(): TSoundLoader;
begin
- if e_Soundfont = '' then e_Soundfont := FindDefaultSoundfont();
+ if e_SoundFont = '' then e_SoundFont := FindDefaultSoundfont();
Result := TFluidLoader.Create();
end;
FSynth := new_fluid_synth(FluidSettings);
if FSynth = nil then
raise Exception.Create('new_fluid_synth failed');
- Ret := fluid_synth_sfload(FSynth, PChar(e_Soundfont), 1);
+ Ret := fluid_synth_sfload(FSynth, PChar(e_SoundFont), 1);
if Ret = FLUID_FAILED then
raise Exception.Create('fluid_synth_sfload failed');
FPlayer := new_fluid_player(FSynth);
FSynth := new_fluid_synth(FluidSettings);
if FSynth = nil then
raise Exception.Create('new_fluid_synth failed');
- Ret := fluid_synth_sfload(FSynth, PChar(e_Soundfont), 1);
+ Ret := fluid_synth_sfload(FSynth, PChar(e_SoundFont), 1);
if Ret = FLUID_FAILED then
raise Exception.Create('fluid_synth_sfload failed');
FPlayer := new_fluid_player(FSynth);
if FluidSettings <> nil then
begin
fluid_settings_setint(FluidSettings, PChar('synth.midi-channels'), 16);
- fluid_settings_setint(FluidSettings, PChar('synth.cpu-cores'), 0);
+ fluid_settings_setint(FluidSettings, PChar('synth.cpu-cores'), 1);
fluid_settings_setnum(FluidSettings, PChar('synth.sample-rate'), 44100);
fluid_settings_setnum(FluidSettings, PChar('synth.gain'), 1);
+ fluid_settings_setint(FluidSettings, PChar('synth.reverb.active'), 0);
+ fluid_settings_setint(FluidSettings, PChar('synth.chorus.active'), 0);
fluid_settings_setstr(FluidSettings, PChar('player.timing-source'), PChar('sample'));
e_AddSoundLoader(TFluidLoaderFactory.Create());
end;