/******************************************/
/*  Singing Voice Synthesis Subclass      */
/*  of Algorithm 6 (TX81Z) Subclass of    */ 
/*  4 Operator FM Synth                   */
/*  by Perry R. Cook, 1996                */ 
/******************************************/

#include "FMVoices.h"
#include "SKINI11.msg"

FMVoices :: FMVoices() : FM4Alg6()
{
  this->loadWaves("rawwaves/sinewave.raw",
                  "rawwaves/sinewave.raw",
                  "rawwaves/sinewave.raw",
                  "rawwaves/sinewave.raw");
    
  this->setRatio(0,(MY_FLOAT) 2.00);
  this->setRatio(1,(MY_FLOAT) 4.00);
  this->setRatio(2,(MY_FLOAT) 12.0);
  this->setRatio(3,(MY_FLOAT) 1.00);
  gains[3] = __FM4Op_gains[80];
  adsr[0]->setAllTimes((MY_FLOAT) 0.050,(MY_FLOAT) 0.050,
                       __FM4Op_susLevels[15],(MY_FLOAT) 0.050);
  adsr[1]->setAllTimes((MY_FLOAT) 0.050,(MY_FLOAT) 0.050,
                       __FM4Op_susLevels[15],(MY_FLOAT) 0.050);
  adsr[2]->setAllTimes((MY_FLOAT) 0.050,(MY_FLOAT) 0.050,
                       __FM4Op_susLevels[15],(MY_FLOAT) 0.050);
  adsr[3]->setAllTimes((MY_FLOAT) 0.010,(MY_FLOAT) 0.010,
                       __FM4Op_susLevels[15],(MY_FLOAT) 0.500);
  twozero->setGain((MY_FLOAT) 0.0);
  modDepth = (MY_FLOAT) 0.005;
  currentVowel = 0;
  tilt[0] = (MY_FLOAT) 1.0;
  tilt[1] = (MY_FLOAT) 0.5;
  tilt[2] = (MY_FLOAT) 0.2;    
  mods[0] = (MY_FLOAT) 1.0;
  mods[1] = (MY_FLOAT) 1.1;
  mods[2] = (MY_FLOAT) 1.1;
  baseFreq = (MY_FLOAT) 110.0;
  this->setFreq((MY_FLOAT) 110.0);    
}  

/*  #include "phonTabl.h"   */

extern double phonGains[32][2];
extern double phonParams[32][4][3];
extern char phonemes[32][4];

void FMVoices :: setFreq(MY_FLOAT frequency)
{    
  MY_FLOAT temp,temp2;
  int tempi,tempi2;

  if (currentVowel < 16)	{
    tempi2 = currentVowel;
    temp2 = (MY_FLOAT) 0.9;
  }
  else if (currentVowel < 32)	{
    tempi2 = currentVowel - 16;
    temp2 = (MY_FLOAT) 1.0;
  }
  else if (currentVowel < 48)	{
    tempi2 = currentVowel - 32;
    temp2 = (MY_FLOAT) 1.1;
  }
  else if (currentVowel <= 64)	{
    tempi2 = currentVowel - 48;
    temp2 = (MY_FLOAT) 1.2;
  }
  baseFreq = frequency;
  temp = (temp2 * (MY_FLOAT)  phonParams[tempi2][0][0] / baseFreq) + (MY_FLOAT) 0.5;
  tempi = (int) temp;
  this->setRatio(0,(MY_FLOAT) tempi);
  temp = (temp2 * (MY_FLOAT)  phonParams[tempi2][1][0] / baseFreq) + (MY_FLOAT) 0.5;
  tempi = (int) temp;
  this->setRatio(1,(MY_FLOAT) tempi);
  temp = (temp2 * (MY_FLOAT)  phonParams[tempi2][2][0] / baseFreq) + (MY_FLOAT) 0.5;
  tempi = (int) temp;
  this->setRatio(2,(MY_FLOAT) tempi);    
  gains[0] = (MY_FLOAT)  1.0;  // pow(10.0,phonParams[tempi2][0][2] * 0.05);
  gains[1] = (MY_FLOAT)  1.0;  // pow(10.0,phonParams[tempi2][1][2] * 0.05);
  gains[2] = (MY_FLOAT)  1.0;  // pow(10.0,phonParams[tempi2][2][2] * 0.05);
}

void FMVoices :: noteOn(MY_FLOAT freq, MY_FLOAT amp)
{
  this->setFreq(freq);
  tilt[0] = amp;
  tilt[1] = amp * amp;
  tilt[2] = amp * amp * amp;
  this->keyOn();
#if defined(_debug_)        
  printf("FMVoices : NoteOn: Freq=%lf Amp=%lf\n",freq,amp);
#endif    
}

void FMVoices :: controlChange(int number, MY_FLOAT value)
{
  MY_FLOAT temp;
  int tempi;

#if defined(_debug_)        
  printf("FM4Op : ControlChange: Number=%i Value=%f\n",number,value);
#endif    
  if (number == __SK_Breath_)
    gains[3] = __FM4Op_gains[(int) (value * 0.78125)];
  else if (number == __SK_FootControl_)	{
    tempi = (int) (value / 2);
    currentVowel = tempi;
    this->setFreq(baseFreq);
  }
  else if (number == __SK_ModFrequency_)
    this->setModulationSpeed(value * NORM_7 * (MY_FLOAT) 12.0);  /* 0 to 12 Hz */
  else if (number == __SK_ModWheel_)
    this->setModulationDepth(value * NORM_7);
  else if (number == __SK_AfterTouch_Cont_)	{
    temp = value * NORM_7;
    tilt[0] = temp;
    tilt[1] = temp * temp;
    tilt[2] = temp * temp * temp;
  }
  else	{
    printf("FM4Op : Undefined Control Number!!\n");
  }  
}