Type Histogram(Values As List, Highest As Int, Inc As Int)
Dim TimeMin As Double=1000000,TimeMax As Double =-1000000, FFTMax As Double , FFTLimit As Double, FFTThreshold = 0.8 As Double, N_Samples As Int , CursorScaleFreq As Double , FFTprev As Int
Dim FFT1 As FFT
Sub RecData2Histogram(SampleRate As Int, recData() As Short) As Histogram ', recData() As Double = fft1.CopyArray(srcData)
Dim tempHist As Histogram , soundD() As Double = CopyRecDataD(SampleRate, recData), N_2 As Int = soundD.Length * 0.5 ,FFTPeaks As List
Dim FFTReal(N_2) As Double, FFTImg(N_2) As Double, FFTAmp(N_2) As Double
tempHist.Initialize
tempHist.Values.Initialize
FFT1.Transform2(soundD, FFTReal, FFTImg )
FFTAmp = FFT1.ToAmplitude(FFTReal,FFTImg)
PeakDetect(FFTAmp)
tempHist.Inc = 1
tempHist.Highest = FFTMax' TimeMax
tempHist.values.AddAll(FFTAmp)
Return tempHist
End Sub