0
0

to create equalizer i have done the following code but there is no change in the sound .the code is given below

i am creating the dsp like this

[code:3oq066sq]Dim eq(10) as long
Dim result As FMOD_RESULT
Dim i As Integer

For i = 0 To 9
  result = FMOD_System_CreateDSPByType(system, FMOD_DSP_TYPE_PARAMEQ, EQ(i))

  ERRCHECK (result)
Next i[/code:3oq066sq]

i modify the gain of the dsp using the following function

[code:3oq066sq]Public Sub equal(ByVal Index As Integer, ByVal incgain As Single)
Dim result As FMOD_RESULT
Dim i As Integer
If Index = 10 Then Exit Sub
result = FMOD_DSP_SetParameter(EQ(Index), 1#, Centerfreq(Index))
ERRCHECK (result)
result = FMOD_DSP_SetParameter(EQ(Index), 3#, incgain)
ERRCHECK (result)
End Sub[/code:3oq066sq]

i have no idea what is the problem i guess i have send improper parameters in some functions.please help me in this regard.

i need to know that whether all i have to do to create the effect is this much only or do i need to anyother thing

  • You must to post comments
0
0

You have to add the DSPs to a channel or some other part of the DSP network before they become active. Isn’t that clear in the examples?

Also, I hope EQ() isn’t a local variable, because its contents will be obliterated after the function ends if it is. :)

  • You must to post comments
Showing 1 result
Your Answer

Please first to submit.