Code: Select all
XIncludeFile "bass.pbi"
XIncludeFile "bassfx.pbi"
OpenWindow(0, #PB_Ignore, #PB_Ignore, 610, 220, "Test") 
BASS_Init(-1, 44100, 0, 0, #Null)
Filename.s = "test.mp3"
chan = BASS_StreamCreateFile(0, @Filename, 0, 0, #BASS_UNICODE) 
Dim param.BASS_BFX_BQF(0)
param(0)\lFilter = 1
param(0)\fCenter = 100 
param(0)\fBandwidth = 0 
param(0)\fQ = 0.7 
param(0)\lChannel = -1
fx = BASS_ChannelSetFX(chan, #BASS_FX_DX8_PARAMEQ, 0) ; add a filter to a stream
BASS_FXSetParameters(fx, param(0)) ; apply the filter parameters
