Bass23

Blitz3D Forums/Blitz3D Userlibs/Bass23

Hey ho, I'm trying to get the record channel and display a spectrum of it. I truely need help for this one ! Right now I get an error on BASS_RecordStart :/

Include "includes\bass.bb"

spectrum = CreateBank (2048) ; bank for data transfer
Timer=CREATETIMER (60)
Graphics 640,480,0,2
SetBuffer BackBuffer()

BASS_Init(-1,48000,0,0,BASS_NULL)

ok = BASS_RecordSetInput(0,BASS_INPUT_ON) 
hrecord = BASS_RecordStart(48000,2,BASS_SAMPLE_FLOAT,0,0)
BASS_ChannelPlay (hrecord,BASS_FALSE)
Global counter = 0
  
While Not KeyHit (1)
Cls
Color 255,255,255
;Text 0,0,"Bass Spectrum 2"
BASS_ChannelGetData(hrecord,spectrum,BASS_DATA_FFT1024)
Color 255,0,0
For i = 0 To 639 Step 4
	val# = PeekFloat (spectrum,I)
	Rect i,400-(val*1000),4,3,1
Next

WaitTimer Timer 
Flip 0
Wend
BASS_Free()
FreeBank spectrum
End