mirror of
https://github.com/thestk/stk
synced 2026-01-11 20:11:52 +00:00
51 lines
1.5 KiB
C++
51 lines
1.5 KiB
C++
/******************************************/
|
|
/* Percussive Flute Subclass */
|
|
/* of Algorithm 4 (TX81Z) Subclass of */
|
|
/* 4 Operator FM Synth */
|
|
/* by Perry R. Cook, 1995-96 */
|
|
/******************************************/
|
|
|
|
#include "PercFlut.h"
|
|
|
|
PercFlut :: PercFlut() : FM4Alg4()
|
|
{
|
|
this->loadWaves("rawwaves/sinewave.raw",
|
|
"rawwaves/sinewave.raw",
|
|
"rawwaves/sinewave.raw",
|
|
"rawwaves/sinewave.raw");
|
|
|
|
this->setRatio(0,1.50 );
|
|
this->setRatio(1,3.00 * 0.995);
|
|
this->setRatio(2,2.99 * 1.005);
|
|
this->setRatio(3,6.00 * 0.997);
|
|
gains[0] = __FM4Op_gains[99];
|
|
gains[1] = __FM4Op_gains[71];
|
|
gains[2] = __FM4Op_gains[93];
|
|
gains[3] = __FM4Op_gains[85];
|
|
adsr[0]->setAll(0.001,0.001,__FM4Op_susLevels[14],0.001);
|
|
adsr[1]->setAll(0.05,0.0001,__FM4Op_susLevels[13],0.0001);
|
|
adsr[2]->setAll(0.05,0.0020,__FM4Op_susLevels[11],0.001);
|
|
adsr[3]->setAll(0.05,0.0010,__FM4Op_susLevels[13],0.005);
|
|
twozero->setGain(0.0);
|
|
modDepth = 0.005;
|
|
}
|
|
|
|
void PercFlut :: setFreq(MY_FLOAT frequency)
|
|
{
|
|
baseFreq = frequency;
|
|
}
|
|
|
|
void PercFlut :: noteOn(MY_FLOAT freq, MY_FLOAT amp)
|
|
{
|
|
gains[0] = amp * __FM4Op_gains[99];
|
|
gains[1] = amp * __FM4Op_gains[71];
|
|
gains[2] = amp * __FM4Op_gains[93];
|
|
gains[3] = amp * __FM4Op_gains[85];
|
|
this->setFreq(freq);
|
|
this->keyOn();
|
|
#if defined(_debug_)
|
|
printf("PercFlut : NoteOn: Freq=%lf Amp=%lf\n",freq,amp);
|
|
#endif
|
|
}
|
|
|