mirror of
https://github.com/thestk/stk
synced 2026-01-15 14:01:52 +00:00
Version 4.0
This commit is contained in:
Gary Scavone
committed by
Stephen Sinclair
Stephen Sinclair
parent
3f126af4e5
commit
81475b04c5
155
src/TubeBell.cpp
155
src/TubeBell.cpp
@@ -1,62 +1,113 @@
|
||||
/******************************************/
|
||||
/* Tubular Bell (Orch. Chime) Subclass */
|
||||
/* of Algorithm 5 (TX81Z) Subclass of */
|
||||
/* 4 Operator FM Synth */
|
||||
/* by Perry R. Cook, 1995-96 */
|
||||
/******************************************/
|
||||
/***************************************************/
|
||||
/*! \class TubeBell
|
||||
\brief STK tubular bell (orchestral chime) FM
|
||||
synthesis instrument.
|
||||
|
||||
This class implements two simple FM Pairs
|
||||
summed together, also referred to as algorithm
|
||||
5 of the TX81Z.
|
||||
|
||||
\code
|
||||
Algorithm 5 is : 4->3--\
|
||||
+ --> Out
|
||||
2->1--/
|
||||
\endcode
|
||||
|
||||
Control Change Numbers:
|
||||
- Modulator Index One = 2
|
||||
- Crossfade of Outputs = 4
|
||||
- LFO Speed = 11
|
||||
- LFO Depth = 1
|
||||
- ADSR 2 & 4 Target = 128
|
||||
|
||||
The basic Chowning/Stanford FM patent expired
|
||||
in 1995, but there exist follow-on patents,
|
||||
mostly assigned to Yamaha. If you are of the
|
||||
type who should worry about this (making
|
||||
money) worry away.
|
||||
|
||||
by Perry R. Cook and Gary P. Scavone, 1995 - 2002.
|
||||
*/
|
||||
/***************************************************/
|
||||
|
||||
#include "TubeBell.h"
|
||||
#include <string.h>
|
||||
|
||||
TubeBell :: TubeBell() : FM4Alg5()
|
||||
TubeBell :: TubeBell()
|
||||
: FM()
|
||||
{
|
||||
// Concatenate the STK RAWWAVE_PATH to the rawwave file
|
||||
char file1[128];
|
||||
char file2[128];
|
||||
char file3[128];
|
||||
char file4[128];
|
||||
strcpy(file1, RAWWAVE_PATH);
|
||||
strcpy(file2, RAWWAVE_PATH);
|
||||
strcpy(file3, RAWWAVE_PATH);
|
||||
strcpy(file4, RAWWAVE_PATH);
|
||||
this->loadWaves(strcat(file1,"rawwaves/sinewave.raw"),
|
||||
strcat(file2,"rawwaves/sinewave.raw"),
|
||||
strcat(file3,"rawwaves/sinewave.raw"),
|
||||
strcat(file4,"rawwaves/fwavblnk.raw"));
|
||||
|
||||
this->setRatio(0,(MY_FLOAT) (1.0 * 0.995));
|
||||
this->setRatio(1,(MY_FLOAT) (1.414 * 0.995));
|
||||
this->setRatio(2,(MY_FLOAT) (1.0 * 1.005));
|
||||
this->setRatio(3,(MY_FLOAT) (1.414 * 1.000));
|
||||
gains[0] = __FM4Op_gains[94];
|
||||
gains[1] = __FM4Op_gains[76];
|
||||
gains[2] = __FM4Op_gains[99];
|
||||
gains[3] = __FM4Op_gains[71];
|
||||
adsr[0]->setAllTimes((MY_FLOAT) 0.005,(MY_FLOAT) 4.0,(MY_FLOAT) 0.0,(MY_FLOAT) 0.04);
|
||||
adsr[1]->setAllTimes((MY_FLOAT) 0.005,(MY_FLOAT) 4.0,(MY_FLOAT) 0.0,(MY_FLOAT) 0.04);
|
||||
adsr[2]->setAllTimes((MY_FLOAT) 0.001,(MY_FLOAT) 2.0,(MY_FLOAT) 0.0,(MY_FLOAT) 0.04);
|
||||
adsr[3]->setAllTimes((MY_FLOAT) 0.004,(MY_FLOAT) 4.0,(MY_FLOAT) 0.0,(MY_FLOAT) 0.04);
|
||||
twozero->setGain((MY_FLOAT) 0.5);
|
||||
vibWave->setFreq((MY_FLOAT) 2.0);
|
||||
int i;
|
||||
char files[4][128];
|
||||
|
||||
// Concatenate the STK RAWWAVE_PATH to the rawwave file.
|
||||
for ( i=0; i<4; i++ )
|
||||
strcpy( files[i], RAWWAVE_PATH);
|
||||
|
||||
strcat(files[0], "rawwaves/sinewave.raw");
|
||||
strcat(files[1], "rawwaves/sinewave.raw");
|
||||
strcat(files[2], "rawwaves/sinewave.raw");
|
||||
strcat(files[3], "rawwaves/fwavblnk.raw");
|
||||
|
||||
for ( i=0; i<4; i++ )
|
||||
waves[i] = new WaveLoop( files[i], TRUE );
|
||||
|
||||
this->setRatio(0, 1.0 * 0.995);
|
||||
this->setRatio(1, 1.414 * 0.995);
|
||||
this->setRatio(2, 1.0 * 1.005);
|
||||
this->setRatio(3, 1.414 * 1.000);
|
||||
|
||||
gains[0] = __FM_gains[94];
|
||||
gains[1] = __FM_gains[76];
|
||||
gains[2] = __FM_gains[99];
|
||||
gains[3] = __FM_gains[71];
|
||||
|
||||
adsr[0]->setAllTimes( 0.005, 4.0, 0.0, 0.04);
|
||||
adsr[1]->setAllTimes( 0.005, 4.0, 0.0, 0.04);
|
||||
adsr[2]->setAllTimes( 0.001, 2.0, 0.0, 0.04);
|
||||
adsr[3]->setAllTimes( 0.004, 4.0, 0.0, 0.04);
|
||||
|
||||
twozero->setGain( 0.5 );
|
||||
vibrato->setFrequency( 2.0 );
|
||||
}
|
||||
|
||||
void TubeBell :: setFreq(MY_FLOAT frequency)
|
||||
{
|
||||
baseFreq = frequency;
|
||||
waves[0]->setFreq(baseFreq * ratios[0]);
|
||||
waves[1]->setFreq(baseFreq * ratios[1]);
|
||||
waves[2]->setFreq(baseFreq * ratios[2]);
|
||||
waves[3]->setFreq(baseFreq * ratios[3]);
|
||||
TubeBell :: ~TubeBell()
|
||||
{
|
||||
}
|
||||
|
||||
void TubeBell :: noteOn(MY_FLOAT freq, MY_FLOAT amp)
|
||||
void TubeBell :: noteOn(MY_FLOAT frequency, MY_FLOAT amplitude)
|
||||
{
|
||||
gains[0] = amp * __FM4Op_gains[94];
|
||||
gains[1] = amp * __FM4Op_gains[76];
|
||||
gains[2] = amp * __FM4Op_gains[99];
|
||||
gains[3] = amp * __FM4Op_gains[71];
|
||||
this->setFreq(freq);
|
||||
this->keyOn();
|
||||
#if defined(_debug_)
|
||||
printf("TubeBell : NoteOn: Freq=%lf Amp=%lf\n",freq,amp);
|
||||
#endif
|
||||
gains[0] = amplitude * __FM_gains[94];
|
||||
gains[1] = amplitude * __FM_gains[76];
|
||||
gains[2] = amplitude * __FM_gains[99];
|
||||
gains[3] = amplitude * __FM_gains[71];
|
||||
this->setFrequency(frequency);
|
||||
this->keyOn();
|
||||
|
||||
#if defined(_STK_DEBUG_)
|
||||
cerr << "TubeBell: NoteOn frequency = " << frequency << ", amplitude = " << amplitude << endl;
|
||||
#endif
|
||||
}
|
||||
|
||||
MY_FLOAT TubeBell :: tick()
|
||||
{
|
||||
MY_FLOAT temp, temp2;
|
||||
|
||||
temp = gains[1] * adsr[1]->tick() * waves[1]->tick();
|
||||
temp = temp * control1;
|
||||
|
||||
waves[0]->addPhaseOffset(temp);
|
||||
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[0] * adsr[0]->tick() * waves[0]->tick();
|
||||
temp += control2 * 0.5 * gains[2] * adsr[2]->tick() * waves[2]->tick();
|
||||
|
||||
// Calculate amplitude modulation and apply it to output.
|
||||
temp2 = vibrato->tick() * modDepth;
|
||||
temp = temp * (1.0 + temp2);
|
||||
|
||||
lastOutput = temp * 0.5;
|
||||
return lastOutput;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user