Initial import.
[Faustine.git] / interpretor / faust-0.9.47mr3 / examples / faust-stk / voiceForm.dsp
1 declare name "Voice Formant";
2 declare description "Voice Formant Instrument";
3 declare author "Romain Michon (rmichon@ccrma.stanford.edu)";
4 declare copyright "Romain Michon";
5 declare version "1.0";
6 declare licence "STK-4.3"; // Synthesis Tool Kit 4.3 (MIT style license);
7 declare description "This instrument contains an excitation singing wavetable (looping wave with random and periodic vibrato, smoothing on frequency, etc.), excitation noise, and four sweepable complex resonances. Phoneme preset numbers: 0->eee (beet), 1->ihh (bit), 2->ehh (bet), 3->aaa (bat), 4->ahh (father), 5->aww (bought), 6->ohh (bone), 7->uhh (but), 8->uuu (foot), 9->ooo (boot), 10->rrr (bird), 11->lll (lull), 12->mmm (mom), 13->nnn (nun), 14->nng (sang), 15->ngg (bong), 16->fff, 17->sss, 18->thh, 19->shh, 20->xxx, 21->hee (beet), 22->hoo (boot), 23->hah (father), 24->bbb, 25->ddd, 26->jjj, 27->ggg, 28->vvv, 29->zzz, 30->thz, 31->zhh";
8
9 import("music.lib");
10 import("oscillator.lib");
11 import("instrument.lib");
12
13 //==================== GUI SPECIFICATION ================
14
15 freq = nentry("h:Basic_Parameters/freq [1][unit:Hz] [tooltip:Tone frequency]",440,20,20000,1);
16 gain = nentry("h:Basic_Parameters/gain [1][tooltip:Gain (value between 0 and 1)]",1,0,1,0.01);
17 gate = button("h:Basic_Parameters/gate [1][tooltip:noteOn = 1, noteOff = 0]");
18
19 phoneme = hslider("v:Physical_Parameters/Phoneme
20 [2][tooltip:0->eee, 1->ihh, 2->ehh, 3->aaa, 4->ahh, 5->aww, 6->ohh, 7->uhh, 8->uuu, 9->ooo, 10->rrr, 11->lll, 12->mmm, 13->nnn, 14->nng, 15->ngg, 16->fff, 17->sss, 18->thh, 19->shh, 20->xxx, 21->hee, 22->hoo, 23->hah, 24->bbb, 25->ddd, 26->jjj, 27->ggg, 28->vvv, 29->zzz, 30->thz, 31->zhh]",4,0,31,1);
21
22 vibratoFreq = hslider("h:Envelopes_and_Vibrato/v:Vibrato_Parameters/Vibrato_Freq
23 [3][unit:Hz]",6,1,15,0.1);
24 vibratoGain = hslider("h:Envelopes_and_Vibrato/v:Vibrato_Parameters/Vibrato_Gain
25 [3][tooltip:A value between 0 and 1]",0.05,0,1,0.01);
26 vibratoBegin = hslider("h:Envelopes_and_Vibrato/v:Vibrato_Parameters/Vibrato_Begin
27 [3][unit:s][tooltip:Vibrato silence duration before attack]",0.05,0,2,0.01);
28 vibratoAttack = hslider("h:Envelopes_and_Vibrato/v:Vibrato_Parameters/Vibrato_Attack
29 [3][unit:s][tooltip:Vibrato attack duration]",0.5,0,2,0.01);
30 vibratoRelease = hslider("h:Envelopes_and_Vibrato/v:Vibrato_Parameters/Vibrato_Release
31 [3][unit:s][tooltip:Vibrato release duration]",0.1,0,2,0.01);
32
33 voicedEnvelopeAttack = hslider("h:Envelopes_and_Vibrato/v:Envelope_Parameters/Voiced_Attack
34 [4][unit:s][tooltip:Voiced sounds attack duration]",0.01,0,2,0.01);
35 voicedEnvelopeRelease = hslider("h:Envelopes_and_Vibrato/v:Envelope_Parameters/Voiced_Release
36 [4][unit:s][tooltip:Voiced sounds release duration]",0.01,0,2,0.01);
37
38 noiseEnvelopeAttack = hslider("h:Envelopes_and_Vibrato/v:Envelope_Parameters/Noised_Attack
39 [4][unit:s][tooltip:Noised sounds attack duration]",0.001,0,2,0.001);
40 noiseEnvelopeRelease = hslider("h:Envelopes_and_Vibrato/v:Envelope_Parameters/Noised_Release
41 [4][unit:s][tooltip:Noised sounds release duration]",0.001,0,2,0.001);
42
43 //==================== SIGNAL PROCESSING ================
44
45 //----------------------- Synthesis parameters computing and functions declaration ----------------------------
46
47 //stereoizer is declared in instrument.lib and implement a stereo spacialisation in function of
48 //the frequency period in number of samples
49 stereo = stereoizer(SR/freq);
50
51 //exitation filters (declared in instrument.lib)
52 onePoleFilter = onePole(b0,a1)
53 with{
54 pole = 0.97 - (gain*0.2);
55 b0 = 1 - pole;
56 a1 = -pole;
57 };
58 oneZeroFilter = oneZero1(b0,b1)
59 with{
60 zero = -0.9;
61 b0 = 1/(1 - zero);
62 b1 = -zero*b0;
63 };
64
65 //implements a formant (resonance) which can be "swept" over time from one frequency setting to another
66 formSwep(frequency,radius,filterGain) = *(gain_) : bandPass(frequency_,radius)
67 with{
68 //filter's radius, gain and frequency are interpolated
69 radius_ = radius : smooth(0.999);
70 frequency_ = frequency : smooth(0.999);
71 gain_ = filterGain : smooth(0.999);
72 };
73
74 //formants parameters are countained in a C++ file
75 phonemeGains = ffunction(float loadPhonemeGains(int,int), <phonemes.h>,"");
76 phonemeParameters = ffunction(float loadPhonemeParameters(int,int,int), <phonemes.h>,"");
77
78 //formants frequencies
79 ffreq0 = phonemeParameters(phoneme,0,0);
80 ffreq1 = phonemeParameters(phoneme,1,0);
81 ffreq2 = phonemeParameters(phoneme,2,0);
82 ffreq3 = phonemeParameters(phoneme,3,0);
83
84 //formants radius
85 frad0 = phonemeParameters(phoneme,0,1);
86 frad1 = phonemeParameters(phoneme,1,1);
87 frad2 = phonemeParameters(phoneme,2,1);
88 frad3 = phonemeParameters(phoneme,3,1);
89
90 //formants gains
91 fgain0 = phonemeParameters(phoneme,0,2) : pow(10,(_/20));
92 fgain1 = phonemeParameters(phoneme,1,2) : pow(10,(_/20));
93 fgain2 = phonemeParameters(phoneme,2,2) : pow(10,(_/20));
94 fgain3 = phonemeParameters(phoneme,3,2) : pow(10,(_/20));
95
96 //gain of the voiced part od the sound
97 voiceGain = phonemeGains(phoneme,0) : smooth(0.999);
98
99 //gain of the fricative part of the sound
100 noiseGain = phonemeGains(phoneme,1) : smooth(0.999);
101
102 //formants filters
103 filter0 = formSwep(ffreq0,frad0,fgain0);
104 filter1 = formSwep(ffreq1,frad1,fgain1);
105 filter2 = formSwep(ffreq2,frad2,fgain2);
106 filter3 = formSwep(ffreq3,frad3,fgain3);
107
108 //----------------------- Algorithm implementation ----------------------------
109
110 //envelopes (declared in instrument.lib) and vibrato
111 vibratoEnvelope = envVibrato(vibratoBegin,vibratoAttack,100,vibratoRelease,gate);
112 voicedEnvelope = asr(voicedEnvelopeAttack,100,voicedEnvelopeRelease,gate);
113 noiseEnvelope = asr(noiseEnvelopeAttack,100,noiseEnvelopeRelease,gate);
114 vibrato = osc(vibratoFreq)*vibratoGain*100*vibratoEnvelope;
115
116 //the voice source is generated by an impulse train
117 //(imptrain defined in oscillator.lib) that is lowpass filtered
118 voiced = imptrain(freq+vibrato) : lowpass3e(3300) : *(voiceGain*voicedEnvelope);
119
120 //ficative sounds are produced by a noise generator
121 frica = noise*noiseEnvelope*noiseGain;
122
123 process = voiced : oneZeroFilter : onePoleFilter :
124 +(frica) <: filter0,filter1,filter2,filter3 :> + : stereo :
125 instrReverb;
126