Version 0.99

2026-01-11 20:11:52 +00:00 · 2009-03-24 22:41:14 -04:00
commit 6485746ee9
218 changed files with 13786 additions and 0 deletions
--- a/Clarinet.cpp
+++ b/Clarinet.cpp
@@ -0,0 +1,125 @@
+/******************************************/
+/*  Waveguide Clarinet model ala Smith    */
+/*  after McIntyre, Schumacher, Woodhouse */
+/*  by Perry Cook, 1995-96                */
+/*                                        */
+/*  This is a waveguide model, and thus   */
+/*  relates to various Stanford Univ.     */
+/*  and possibly Yamaha and other patents.*/
+/*                                        */
+/*   Controls:    CONTROL1 = reedStiffns  */
+/*                CONTROL2 = noiseGain    */
+/*		  CONTROL3 = vibFreq      */
+/*		  MOD_WHEEL= vibAmt       */
+/******************************************/
+
+#include "Clarinet.h"
+
+Clarinet :: Clarinet(MY_FLOAT lowestFreq)
+{
+    length = (long) (SRATE / lowestFreq + 1);
+    delayLine = new DLineL(length);
+    reedTable = new ReedTabl;
+    reedTable->setOffset(0.7);
+    reedTable->setSlope(-0.3);
+    filter = new OneZero;
+    envelope = new Envelope;
+    noise = new Noise;
+    vibr = new RawLoop("rawwaves/sinewave.raw");
+    vibr->normalize();
+    vibr->setFreq(5.735);
+    outputGain = 1.0;
+    noiseGain = 0.2;
+    vibrGain = 0.1;
+}
+
+Clarinet :: ~Clarinet()
+{
+    delete delayLine;
+    delete reedTable;
+    delete filter;
+    delete envelope;
+    delete noise;
+    delete vibr;
+}
+
+void Clarinet :: clear()
+{
+    delayLine->clear();
+    filter->tick(0.0);
+}
+
+void Clarinet :: setFreq(MY_FLOAT frequency)
+{
+    delayLine->setDelay         /* length - approx filter delay */
+	((SRATE / frequency) * 0.5 - 1.5);
+}
+
+void Clarinet :: startBlowing(MY_FLOAT amplitude,MY_FLOAT rate)
+{
+    envelope->setRate(rate);
+    envelope->setTarget(amplitude); 
+}
+
+void Clarinet :: stopBlowing(MY_FLOAT rate)
+{
+    envelope->setRate(rate);
+    envelope->setTarget(0.0); 
+}
+
+void Clarinet :: noteOn(MY_FLOAT freq, MY_FLOAT amp)
+{
+    this->setFreq(freq);
+    this->startBlowing(0.55 + (amp * 0.30),amp * 0.005);
+    outputGain = amp + 0.001;
+#if defined(_debug_)        
+    printf("Clarinet : NoteOn: Freq=%lf Amp=%lf\n",freq,amp);
+#endif    
+}
+
+void Clarinet :: noteOff(MY_FLOAT amp)
+{
+    this->stopBlowing(amp * 0.01);
+#if defined(_debug_)        
+    printf("Clarinet : NoteOff: Amp=%lf\n",amp);
+#endif    
+}
+
+MY_FLOAT Clarinet :: tick()
+{
+    MY_FLOAT pressureDiff;
+    MY_FLOAT breathPressure;
+    
+    breathPressure = envelope->tick(); 
+    breathPressure += breathPressure * 
+			noiseGain * noise->tick();
+    breathPressure += breathPressure *
+			vibrGain * vibr->tick();
+    pressureDiff = filter->tick(delayLine->lastOut());           /* differential pressure  */     
+    pressureDiff = (pressureDiff * -0.95) - breathPressure;      /* of reflected and mouth */
+    lastOutput = delayLine->tick(breathPressure +                /* perform scattering     */
+		pressureDiff * reedTable->lookup(pressureDiff)); /* in economical way      */
+    lastOutput *= outputGain;
+    return lastOutput;
+}
+
+void Clarinet :: controlChange(int number, MY_FLOAT value)
+{
+#if defined(_debug_)        
+    printf("Clarinet : ControlChange: Number=%i Value=%f\n",number,value);
+#endif    
+    if (number == MIDI_control1)
+	reedTable->setSlope(-0.44 + (0.26 * value * NORM_7));
+    else if (number == MIDI_control2)
+	noiseGain = (value * NORM_7 * 0.4);
+    else if (number == MIDI_control3)
+	vibr->setFreq((value * NORM_7 * 12.0));
+    else if (number == MIDI_mod_wheel)
+	vibrGain = (value * NORM_7 * 0.5);
+    else if (number == MIDI_after_touch)	{
+        envelope->setValue(value * NORM_7);
+    }
+    else	{
+        printf("Clarinet : Undefined Control Number!!\n");
+    }
+}