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

* 'master' of https://github.com/hellerve/lampshade:
  added junk to test the svf
  haskell file for testing functions

Source/PluginProcessor.cpp

@@ -59,7 +59,7 @@ void PeteAudioProcessor::prepareToPlay (double sampleRate, int samplesPerBlock)
 {
     myYin = Yin(sampleRate, samplesPerBlock);
     aFilter = (filter_svf_t*)malloc(sizeof(filter_svf_t));
-    svf_init(aFilter, 0, sampleRate);
+    svf_init(aFilter, 2, sampleRate);
 }
 void PeteAudioProcessor::releaseResources()
 {
@@ -95,6 +95,7 @@ void PeteAudioProcessor::processBlock (AudioSampleBuffer& buffer, MidiBuffer& mi
     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);

test.hs

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