Version 4.1

src/SingWave.cpp

@@ -0,0 +1,128 @@
+/***************************************************/
+/*! \class SingWave
+    \brief STK "singing" looped soundfile class.
+
+    This class contains all that is needed to make
+    a pitched musical sound, like a simple voice
+    or violin.  In general, it will not be used
+    alone because of munchkinification effects
+    from pitch shifting.  It will be used as an
+    excitation source for other instruments.
+
+    by Perry R. Cook and Gary P. Scavone, 1995 - 2002.
+*/
+/***************************************************/
+
+#include "SingWave.h"
+ 
+SingWave :: SingWave(const char *fileName, bool raw)
+{
+  // An exception could be thrown here.
+  wave = new WaveLoop( fileName, raw );
+
+	rate = 1.0;
+	sweepRate = 0.001;
+	modulator = new Modulate();
+	modulator->setVibratoRate( 6.0 );
+	modulator->setVibratoGain( 0.04 );
+	modulator->setRandomGain( 0.005 );
+	envelope = new Envelope;
+	pitchEnvelope = new Envelope;
+	setFrequency( 75.0 );
+	pitchEnvelope->setRate( 1.0 );
+	this->tick();
+	this->tick();
+	pitchEnvelope->setRate( sweepRate * rate );
+}
+
+SingWave :: ~SingWave()
+{
+  delete wave;
+	delete modulator;
+	delete envelope;
+	delete pitchEnvelope;
+}
+
+void SingWave :: reset()
+{
+  wave->reset();
+	lastOutput = 0.0;
+}
+
+void SingWave :: normalize()
+{
+  wave->normalize();
+}
+
+void SingWave :: normalize(MY_FLOAT newPeak)
+{
+  wave->normalize( newPeak );
+}
+
+void SingWave :: setFrequency(MY_FLOAT frequency)
+{
+	MY_FLOAT temp = rate;
+	rate = wave->getSize() * frequency / Stk::sampleRate();
+	temp -= rate;
+	if ( temp < 0) temp = -temp;
+	pitchEnvelope->setTarget( rate );
+	pitchEnvelope->setRate( sweepRate * temp );
+}
+
+void SingWave :: setVibratoRate(MY_FLOAT aRate)
+{
+	modulator->setVibratoRate( aRate );
+}
+
+void SingWave :: setVibratoGain(MY_FLOAT gain)
+{
+	modulator->setVibratoGain(gain);
+}
+
+void SingWave :: setRandomGain(MY_FLOAT gain)
+{
+	modulator->setRandomGain(gain);
+}
+
+void SingWave :: setSweepRate(MY_FLOAT aRate)
+{
+	sweepRate = aRate;
+}
+
+void SingWave :: setGainRate(MY_FLOAT aRate)
+{
+	envelope->setRate(aRate);
+}
+
+void SingWave :: setGainTarget(MY_FLOAT target)
+{
+	envelope->setTarget(target);
+}
+
+void SingWave :: noteOn()
+{
+	envelope->keyOn();
+}
+
+void SingWave :: noteOff()
+{
+	envelope->keyOff();
+}
+
+MY_FLOAT SingWave :: tick()
+{
+  // Set the wave rate.
+  MY_FLOAT newRate = pitchEnvelope->tick();
+  newRate += newRate * modulator->tick();
+  wave->setRate( newRate );
+
+  lastOutput = wave->tick();
+	lastOutput *= envelope->tick();
+    
+	return lastOutput;             
+}
+
+MY_FLOAT SingWave :: lastOut()
+{
+	return lastOutput;
+}