Version 0.99

2026-01-16 22:31:52 +00:00 · 2009-03-24 22:41:14 -04:00
commit 6485746ee9
218 changed files with 13786 additions and 0 deletions
--- a/Plucked2.cpp
+++ b/Plucked2.cpp
@@ -0,0 +1,90 @@
+/******************************************/  
+/*  Enhanced (Jaffe-Smith, Smith, others) */
+/*  Karplus-Strong plucked model          */
+/*  by Perry Cook, 1995-96                */
+/*  This is the super-class, with no      */
+/*  excitation specified.  So this one by */
+/*  itself doesn't make any sound.        */
+/******************************************/
+
+#include "Plucked2.h"
+
+Plucked2 :: Plucked2(MY_FLOAT lowestFreq)
+{
+    length = (long) (SRATE / lowestFreq + 1);
+    baseLoopGain = 0.995;
+    loopGain = 0.999;
+    delayLine = new DLineA(length);
+    delayLine2 = new DLineA(length);
+    combDelay = new DLineL(length);
+    filter = new OneZero;
+    filter2 = new OneZero;
+    pluckAmp = 0.3;
+    pluckPos = 0.4;
+    detuning = 0.995;
+    lastFreq = lowestFreq * 2.0;
+    lastLength = length * 0.5;
+}
+
+Plucked2 :: ~Plucked2()
+{
+    delete delayLine;
+    delete delayLine2;
+    delete combDelay;
+    delete filter;
+    delete filter2;
+}
+
+void Plucked2 :: clear()
+{
+    delayLine->clear();
+    delayLine2->clear();
+    combDelay->clear();
+    filter->clear();
+    filter2->clear();
+}
+
+void Plucked2 :: setFreq(MY_FLOAT frequency)
+{
+    lastFreq = frequency;
+    lastLength = ((MY_FLOAT) SRATE / lastFreq);        /* length - delays */
+    delayLine->setDelay((lastLength / detuning) - 0.5);
+    delayLine2->setDelay((lastLength * detuning) - 0.5);
+    loopGain = baseLoopGain + (frequency * 0.000005);
+    if (loopGain>1.0) loopGain = 0.99999;
+}
+
+void Plucked2 :: setDetune(MY_FLOAT detune)
+{
+    detuning = detune;
+    delayLine->setDelay((lastLength / detuning) - 0.5);
+    delayLine2->setDelay((lastLength * detuning) - 0.5);
+}
+
+void Plucked2 :: setFreqAndDetune(MY_FLOAT frequency,MY_FLOAT detune)
+{
+    lastFreq = frequency;
+    detuning = detune;
+    this->setFreq(frequency);
+}
+
+void Plucked2 :: setPluckPos(MY_FLOAT position)
+{
+    pluckPos = position;
+}
+
+void Plucked2 :: setBaseLoopGain(MY_FLOAT aGain)
+{
+    baseLoopGain = aGain;
+    loopGain = baseLoopGain + (lastFreq * 0.000005);
+    if (loopGain>1.0) loopGain = 0.99999;
+}
+
+void Plucked2 :: noteOff(MY_FLOAT amp)
+{
+    loopGain = (1.0 - amp) * 0.5;
+#if defined(_debug_)        
+        printf("Plucked2 : NoteOff: Amp=%lf\n",amp);
+#endif    
+}
+