Needed Fmod pitchshift help
Posted: Tue Aug 08, 2006 8:32 pm
using fmodex.dll latest stabel version.
This is what I have sofar but missing enums. can't get it to work.
Tips are welcome.
grCor
This is what I have sofar but missing enums. can't get it to work.
Tips are welcome.
Code: Select all
#FMOD_INIT_NORMAL = $00000000
#FMOD_HARDWARE = $00000020
#FMOD_SOFTWARE = $00000040
#FMOD_LOOP_OFF = $00000001
#FMOD_CHANNEL_FREE = -1
Enumeration
#FMOD_DSP_PITCHSHIFT_PITCH
#FMOD_DSP_PITCHSHIFT_FFTSIZE
#FMOD_DSP_PITCHSHIFT_OVERLAP
#FMOD_DSP_PITCHSHIFT_MAXCHANNELS
#FMOD_DSP_PITCHSHIFT
EndEnumeration
rval=OpenLibrary(0,"fmodex.dll")
;Debug rval
CallFunction(0,"FMOD_System_Create", @system)
CallFunction(0, "FMOD_System_Init", system, 32, #FMOD_INIT_NORMAL, 0)
CallFunction(0, "FMOD_System_CreateSound", system, "ccr - suzie q.mp3", #FMOD_SOFTWARE | #FMOD_LOOP_OFF, 0, @sound)
CallFunction(0, "FMOD_System_CreateDSPByType",System, #FMOD_DSP_TYPE_PITCHSHIFT, dspPitch)
sgPitchVal = 0.0
CallFunction(0,"FMOD_DSP_SetParameter",dspPitch, #FMOD_DSP_PITCHSHIFT_PITCH, sgPitchVal)
CallFunction(0, "FMOD_Sound_SetMode", sound, #FMOD_LOOP_OFF)
OpenWindow(0,0,0,100,100,"Player",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget (1, 10, 10,80, 80, "Play sound")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget And EventGadget() = 1
CallFunction(0, "FMOD_System_PlaySound", system, #FMOD_CHANNEL_FREE, sound, 0, @channel)
CallFunction(0,"FMOD_Channel_AddDSP",@channel, dspPitch)
EndIf
Until EventID = #PB_Event_CloseWindow
CallFunction(0, "FMOD_Sound_Release", sound)
CallFunction(0, "FMOD_System_Close", system)
CloseLibrary(0)