static int32_t make_SingWave(CSOUND *csound, SingWave *p, MYFLT *ifn, MYFLT *ivfn)
{
FUNC *ftp;
if (LIKELY((ftp = csound->FTnp2Find(csound,ifn)) != NULL)) p->wave = ftp;
else {
return csound->InitError(csound, Str("No table for Singwave"));
}
p->mytime = FL(0.0);
p->rate = FL(1.0);
p->sweepRate = FL(0.001);
if (UNLIKELY(make_Modulatr(csound, &p->modulator, ivfn))) return NOTOK;
Modulatr_setVibFreq(p->modulator, FL(6.0));
Modulatr_setVibAmt(p->modulator, FL(0.04));
make_Envelope(&p->envelope);
// printf("Singwave envelope=%p\n", &p->envelope);
/* Envelope_setTarget(&p->envelope, FL(1.0)); */
/* Envelope_setRate(csound, &p->envelope, FL(0.1)); */
make_Envelope(&p->pitchEnvelope);
// printf("Singwave pitchenvelope=%p\n", &p->pitchEnvelope);
SingWave_setFreq(csound, p, FL(75.0));
Envelope_setRate(csound, &p->pitchEnvelope, FL(1.0));
/* SingWave_print(csound, p); */
SingWave_tick(csound, p);
SingWave_tick(csound, p);
Envelope_setRate(csound, &p->pitchEnvelope, p->sweepRate * p->rate);
/* Envelope_print(&p->pitchEnvelope); */
return OK;
}
int32_t voicformset(CSOUND *csound, VOICF *p)
{
MYFLT amp = (*p->amp)*AMP_RSCALE; /* Normalise */
int32_t i;
if (UNLIKELY(make_SingWave(csound, &p->voiced, p->ifn, p->ivfn)==NOTOK))
return NOTOK;
Envelope_setRate(csound, &(p->voiced.envelope), FL(0.001));
Envelope_setTarget(&(p->voiced.envelope), FL(0.0));
make_Noise(p->noise);
for (i=0; i<4; i++) {
make_FormSwep(&p->filters[i]);
FormSwep_setSweepRate(p->filters[i], FL(0.001));
}
make_OneZero(&p->onezero);
OneZero_setCoeff(&p->onezero, - FL(0.9));
make_OnePole(&p->onepole);
OnePole_setPole(&p->onepole, FL(0.9));
make_Envelope(&p->noiseEnv);
Envelope_setRate(csound, &p->noiseEnv, FL(0.001));
Envelope_setTarget(&p->noiseEnv, FL(0.0));
p->oldform = *p->formant;
p->ph = (int32_t)(FL(0.5)+ *p->phoneme);
VoicForm_setPhoneme(csound, p, p->ph, p->oldform);
/* Clear */
/* OnePole_clear(&p->onepole); */ /* Included in make */
FormSwep_clear(p->filters[0]);
FormSwep_clear(p->filters[1]);
FormSwep_clear(p->filters[2]);
FormSwep_clear(p->filters[3]);
{
MYFLT temp, freq = *p->frequency;
if ((freq * FL(22.0)) > CS_ESR) {
csound->Warning(csound, Str("This note is too high!!\n"));
freq = CS_ESR / FL(22.0);
}
p->basef = freq;
temp = FABS(FL(1500.0) - freq) + FL(200.0);
p->lastGain = FL(10000.0) / temp / temp;
SingWave_setFreq(csound, &p->voiced, freq);
}
Envelope_setTarget(&(p->voiced.envelope), amp);
OnePole_setPole(&p->onepole, FL(0.95) - (amp * FL(0.2))/FL(128.0));
/* voicprint(csound, p); */
return OK;
}
static void SingWave_setFreq(CSOUND *csound, SingWave *p, MYFLT aFreq)
{
MYFLT temp = p->rate;
p->rate = (MYFLT)p->wave->flen * aFreq * csound->onedsr;
temp -= p->rate;
temp = FABS(temp);
Envelope_setTarget(&p->pitchEnvelope, p->rate);
Envelope_setRate(csound, &p->pitchEnvelope, p->sweepRate * temp);
// Envelope_print(csound, &p->pitchEnvelope);
}
static void Modal4_strike(CSOUND *csound, Modal4 *m, MYFLT amplitude)
{
int i;
MYFLT temp;
Envelope_setRate(csound, &m->envelope, FL(1.0));
Envelope_setTarget(&m->envelope, amplitude);
OnePole_setPole(&m->onepole, FL(1.0) - amplitude);
Envelope_tick(&m->envelope);
m->w_time = FL(0.0);
//m->w_lastOutput = FL(0.0);
m->w_allDone = 0;
/* wave->reset(); */
for (i=0;i<4;i++) {
if (m->ratios[i] < 0)
temp = - m->ratios[i];
else
temp = m->ratios[i] * m->baseFreq;
BiQuad_setFreqAndReson(m->filters[i], temp, m->resons[i]);
}
}
