hellerve/pete
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of https://github.com/hellerve/lampshade

Browse Source 
* 'master' of https://github.com/hellerve/lampshade:
  added junk to test the svf
  haskell file for testing functions
This commit is contained in:
Veit Heller
2017-06-27 21:29:16 -04:00
parent b5d29201fb 294bc462e0
commit f950d169dc
4 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Source/PluginProcessor.cpp
View File

@@ -59,7 +59,7 @@ void PeteAudioProcessor::prepareToPlay (double sampleRate, int samplesPerBlock)
{ {
myYin = Yin(sampleRate, samplesPerBlock); myYin = Yin(sampleRate, samplesPerBlock);
aFilter = (filter_svf_t*)malloc(sizeof(filter_svf_t)); aFilter = (filter_svf_t*)malloc(sizeof(filter_svf_t));
svf_init(aFilter, 0, sampleRate); svf_init(aFilter, 2, sampleRate);
} }
void PeteAudioProcessor::releaseResources() void PeteAudioProcessor::releaseResources()
{ {
@@ -95,6 +95,7 @@ void PeteAudioProcessor::processBlock (AudioSampleBuffer& buffer, MidiBuffer& mi
if(pitch > 0) { myPitch = pitch; } if(pitch > 0) { myPitch = pitch; }
svf_set_freq(aFilter, myPitch); svf_set_freq(aFilter, myPitch);
svf_set_coeff(aFilter, __listener );
float* channel1Data = buffer.getWritePointer (0); float* channel1Data = buffer.getWritePointer (0);
float* channel2Data = buffer.getWritePointer (1); float* channel2Data = buffer.getWritePointer (1);

0
test Project/Samples/Recorded/0003 3-Audio.wav
View File

4
test.hs Normal file
View File

@@ -0,0 +1,4 @@
module Test where
test :: Double -> Double
test d = exp( (-2.0) * pi * d / 48000)

2
wrDsp

Submodule wrDsp updated: c828003a95...f6bf8162e2