Have you any idea about adding pitchShifter and VuMeter functions in your project?
DSPIndex1 := Player1.AddDSPIn(In1Index, nil, nil, @showvolume); procedure showvolume(Data: TUOS_Data; fft: TUOS_FFT); begin ShapeLeft.height := Data.VLeft * 100 ; ShapeRight.height := Data.VRight * 100 ; end;
QuoteHave you any idea about adding pitchShifter and VuMeter functions in your project?Answer only for you, trust me [EDIT] Something like that for VU (assuming ShapeLeft and ShapeRight are the VU, with max height = 100) :Code: [Select]DSPIndex1 := Player1.AddDSPIn(In1Index, nil, nil, @showvolume); procedure showvolume(Data: TUOS_Data; fft: TUOS_FFT); begin ShapeLeft.height := Data.VLeft * 100 ; ShapeRight.height := Data.VRight * 100 ; end;and for pitch, you may use SampleRate parameter (default is 44000 )
@ SalihSertkaya.Added function UOS_DSPLevel(..), InputGetVolumeLeft(..), inputGetVolumeRight(..).There are VU now in SimplePlayer demo to show how it works.Please, download new version here :https://github.com/fredvs/uos