e1lama/stk
1
0
Fork 0
mirror of https://github.com/thestk/stk synced 2026-01-13 21:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version 4.2.0

Browse Source
This commit is contained in:
Gary Scavone
2009-03-24 23:02:14 -04:00
committed by Stephen Sinclair
parent cf06b7598b
commit a6381b9d38
281 changed files with 17152 additions and 12000 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
src/PercFlut.cpp
View File

@@ -22,7 +22,7 @@
type who should worry about this (making
money) worry away.
by Perry R. Cook and Gary P. Scavone, 1995 - 2002.
by Perry R. Cook and Gary P. Scavone, 1995 - 2004.
*/
/***************************************************/
@@ -32,74 +32,85 @@ PercFlut :: PercFlut()
: FM()
{
// Concatenate the STK rawwave path to the rawwave files
for ( int i=0; i<3; i++ )
waves[i] = new WaveLoop( (Stk::rawwavePath() + "sinewave.raw").c_str(), TRUE );
waves[3] = new WaveLoop( (Stk::rawwavePath() + "fwavblnk.raw").c_str(), TRUE );
for ( unsigned int i=0; i<3; i++ )
waves_[i] = new WaveLoop( (Stk::rawwavePath() + "sinewave.raw").c_str(), true );
waves_[3] = new WaveLoop( (Stk::rawwavePath() + "fwavblnk.raw").c_str(), true );
this->setRatio(0, 1.50 * 1.000);
this->setRatio(1, 3.00 * 0.995);
this->setRatio(2, 2.99 * 1.005);
this->setRatio(3, 6.00 * 0.997);
gains[0] = __FM_gains[99];
gains[1] = __FM_gains[71];
gains[2] = __FM_gains[93];
gains[3] = __FM_gains[85];
gains_[0] = fmGains_[99];
gains_[1] = fmGains_[71];
gains_[2] = fmGains_[93];
gains_[3] = fmGains_[85];
adsr[0]->setAllTimes( 0.05, 0.05, __FM_susLevels[14], 0.05);
adsr[1]->setAllTimes( 0.02, 0.50, __FM_susLevels[13], 0.5);
adsr[2]->setAllTimes( 0.02, 0.30, __FM_susLevels[11], 0.05);
adsr[3]->setAllTimes( 0.02, 0.05, __FM_susLevels[13], 0.01);
adsr_[0]->setAllTimes( 0.05, 0.05, fmSusLevels_[14], 0.05);
adsr_[1]->setAllTimes( 0.02, 0.50, fmSusLevels_[13], 0.5);
adsr_[2]->setAllTimes( 0.02, 0.30, fmSusLevels_[11], 0.05);
adsr_[3]->setAllTimes( 0.02, 0.05, fmSusLevels_[13], 0.01);
twozero->setGain( 0.0 );
modDepth = 0.005;
twozero_.setGain( 0.0 );
modDepth_ = 0.005;
}
PercFlut :: ~PercFlut()
{
}
void PercFlut :: setFrequency(MY_FLOAT frequency)
void PercFlut :: setFrequency(StkFloat frequency)
{
baseFrequency = frequency;
baseFrequency_ = frequency;
}
void PercFlut :: noteOn(MY_FLOAT frequency, MY_FLOAT amplitude)
void PercFlut :: noteOn(StkFloat frequency, StkFloat amplitude)
{
gains[0] = amplitude * __FM_gains[99] * 0.5;
gains[1] = amplitude * __FM_gains[71] * 0.5;
gains[2] = amplitude * __FM_gains[93] * 0.5;
gains[3] = amplitude * __FM_gains[85] * 0.5;
this->setFrequency(frequency);
gains_[0] = amplitude * fmGains_[99] * 0.5;
gains_[1] = amplitude * fmGains_[71] * 0.5;
gains_[2] = amplitude * fmGains_[93] * 0.5;
gains_[3] = amplitude * fmGains_[85] * 0.5;
this->setFrequency( frequency );
this->keyOn();
#if defined(_STK_DEBUG_)
cerr << "PercFlut: NoteOn frequency = " << frequency << ", amplitude = " << amplitude << endl;
errorString_ << "PercFlut::NoteOn: frequency = " << frequency << ", amplitude = " << amplitude << '.';
handleError( StkError::DEBUG_WARNING );
#endif
}
MY_FLOAT PercFlut :: tick()
StkFloat PercFlut :: tick()
{
register MY_FLOAT temp;
register StkFloat temp;
temp = vibrato->tick() * modDepth * (MY_FLOAT) 0.2;
waves[0]->setFrequency(baseFrequency * ((MY_FLOAT) 1.0 + temp) * ratios[0]);
waves[1]->setFrequency(baseFrequency * ((MY_FLOAT) 1.0 + temp) * ratios[1]);
waves[2]->setFrequency(baseFrequency * ((MY_FLOAT) 1.0 + temp) * ratios[2]);
waves[3]->setFrequency(baseFrequency * ((MY_FLOAT) 1.0 + temp) * ratios[3]);
temp = vibrato_->tick() * modDepth_ * 0.2;
waves_[0]->setFrequency(baseFrequency_ * (1.0 + temp) * ratios_[0]);
waves_[1]->setFrequency(baseFrequency_ * (1.0 + temp) * ratios_[1]);
waves_[2]->setFrequency(baseFrequency_ * (1.0 + temp) * ratios_[2]);
waves_[3]->setFrequency(baseFrequency_ * (1.0 + temp) * ratios_[3]);
waves[3]->addPhaseOffset(twozero->lastOut());
temp = gains[3] * adsr[3]->tick() * waves[3]->tick();
waves_[3]->addPhaseOffset( twozero_.lastOut() );
temp = gains_[3] * adsr_[3]->tick() * waves_[3]->tick();
twozero->tick(temp);
waves[2]->addPhaseOffset(temp);
temp = (1.0 - (control2 * 0.5)) * gains[2] * adsr[2]->tick() * waves[2]->tick();
twozero_.tick(temp);
waves_[2]->addPhaseOffset( temp );
temp = (1.0 - (control2_ * 0.5)) * gains_[2] * adsr_[2]->tick() * waves_[2]->tick();
temp += control2 * 0.5 * gains[1] * adsr[1]->tick() * waves[1]->tick();
temp = temp * control1;
temp += control2_ * 0.5 * gains_[1] * adsr_[1]->tick() * waves_[1]->tick();
temp = temp * control1_;
waves[0]->addPhaseOffset(temp);
temp = gains[0] * adsr[0]->tick() * waves[0]->tick();
waves_[0]->addPhaseOffset(temp);
temp = gains_[0] * adsr_[0]->tick() * waves_[0]->tick();
lastOutput = temp * (MY_FLOAT) 0.5;
return lastOutput;
lastOutput_ = temp * 0.5;
return lastOutput_;
}
StkFloat *PercFlut :: tick(StkFloat *vector, unsigned int vectorSize)
{
return Instrmnt::tick( vector, vectorSize );
}
StkFrames& PercFlut :: tick( StkFrames& frames, unsigned int channel )
{
return Instrmnt::tick( frames, channel );
}