From 402a321e24d3f724940baddf8f0e621798ad8af1 Mon Sep 17 00:00:00 2001 From: trentgill Date: Tue, 27 Jun 2017 21:17:46 -0400 Subject: [PATCH 1/2] haskell file for testing functions --- test.hs | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 test.hs diff --git a/test.hs b/test.hs new file mode 100644 index 0000000..7c4051e --- /dev/null +++ b/test.hs @@ -0,0 +1,4 @@ +module Test where + +test :: Double -> Double +test d = exp( (-2.0) * pi * d / 48000) \ No newline at end of file From 692e354a7f302a72b5e6dacbe687eba4d188c9d9 Mon Sep 17 00:00:00 2001 From: trentgill Date: Tue, 27 Jun 2017 21:20:18 -0400 Subject: [PATCH 2/2] added junk to test the svf --- Source/PluginProcessor.cpp | 3 ++- test Project/Samples/Recorded/0003 3-Audio.wav | 0 wrDsp | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) delete mode 100644 test Project/Samples/Recorded/0003 3-Audio.wav diff --git a/Source/PluginProcessor.cpp b/Source/PluginProcessor.cpp index 3523093..2837f3c 100644 --- a/Source/PluginProcessor.cpp +++ b/Source/PluginProcessor.cpp @@ -71,7 +71,7 @@ void LampshadeAudioProcessor::prepareToPlay (double sampleRate, int samplesPerBl { myYin = Yin(sampleRate, samplesPerBlock); aFilter = (filter_svf_t*)malloc(sizeof(filter_svf_t)); - svf_init(aFilter, 0, sampleRate); + svf_init(aFilter, 2, sampleRate); } void LampshadeAudioProcessor::releaseResources() @@ -114,6 +114,7 @@ void LampshadeAudioProcessor::processBlock (AudioSampleBuffer& buffer, MidiBuffe if(pitch > 0) { myPitch = pitch; } svf_set_freq(aFilter, myPitch); + svf_set_coeff(aFilter, __listener ); float* channel1Data = buffer.getWritePointer (0); float* channel2Data = buffer.getWritePointer (1); diff --git a/test Project/Samples/Recorded/0003 3-Audio.wav b/test Project/Samples/Recorded/0003 3-Audio.wav deleted file mode 100644 index e69de29..0000000 diff --git a/wrDsp b/wrDsp index c828003..f6bf816 160000 --- a/wrDsp +++ b/wrDsp @@ -1 +1 @@ -Subproject commit c828003a95997245e504260871e788d5fe6b4c5a +Subproject commit f6bf8162e2f682a6255926c1e82081dc540a6285