1 // generated from file './faust/duck_delay.dsp' by dsp2cc:
2 // Code generated with Faust 0.9.46 (http://faust.grame.fr)
3
4 namespace duck_delay {
5
6 class Dsp: public PluginLV2 {
7 private:
8 uint32_t fSamplingFreq;
9 int iConst0;
10 double fConst1;
11 FAUSTFLOAT fslider0;
12 FAUSTFLOAT *fslider0_;
13 double fConst2;
14 FAUSTFLOAT fslider1;
15 FAUSTFLOAT *fslider1_;
16 double fRec2[2];
17 double fRec1[2];
18 FAUSTFLOAT fslider2;
19 FAUSTFLOAT *fslider2_;
20 double fConst3;
21 double fRec0[2];
22 FAUSTFLOAT fslider3;
23 FAUSTFLOAT *fslider3_;
24 int IOTA;
25 double fVec0[524288];
26 FAUSTFLOAT fslider4;
27 FAUSTFLOAT *fslider4_;
28 double fRec4[2];
29 double fConst4;
30 double fRec3[2];
31 void connect(uint32_t port,void* data);
32 void clear_state_f();
33 void init(uint32_t samplingFreq);
34 void compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0);
35
36 static void clear_state_f_static(PluginLV2*);
37 static void init_static(uint32_t samplingFreq, PluginLV2*);
38 static void compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginLV2*);
39 static void del_instance(PluginLV2 *p);
40 static void connect_static(uint32_t port,void* data, PluginLV2 *p);
41 public:
42 Dsp();
43 ~Dsp();
44 };
45
46
47
Dsp()48 Dsp::Dsp()
49 : PluginLV2() {
50 version = PLUGINLV2_VERSION;
51 id = "duckDelay";
52 name = N_("Duck Delay");
53 mono_audio = compute_static;
54 stereo_audio = 0;
55 set_samplerate = init_static;
56 activate_plugin = 0;
57 connect_ports = connect_static;
58 clear_state = clear_state_f_static;
59 delete_instance = del_instance;
60 }
61
~Dsp()62 Dsp::~Dsp() {
63 }
64
clear_state_f()65 inline void Dsp::clear_state_f()
66 {
67 for (int i=0; i<2; i++) fRec2[i] = 0;
68 for (int i=0; i<2; i++) fRec1[i] = 0;
69 for (int i=0; i<2; i++) fRec0[i] = 0;
70 for (int i=0; i<524288; i++) fVec0[i] = 0;
71 for (int i=0; i<2; i++) fRec4[i] = 0;
72 for (int i=0; i<2; i++) fRec3[i] = 0;
73 }
74
clear_state_f_static(PluginLV2 * p)75 void Dsp::clear_state_f_static(PluginLV2 *p)
76 {
77 static_cast<Dsp*>(p)->clear_state_f();
78 }
79
init(uint32_t samplingFreq)80 inline void Dsp::init(uint32_t samplingFreq)
81 {
82 fSamplingFreq = samplingFreq;
83 iConst0 = min(192000, max(1, fSamplingFreq));
84 fConst1 = exp((0 - (1e+01 / iConst0)));
85 fConst2 = (1.0 / iConst0);
86 fConst3 = (1.0 - fConst1);
87 IOTA = 0;
88 fConst4 = (0.001 * iConst0);
89 clear_state_f();
90 }
91
init_static(uint32_t samplingFreq,PluginLV2 * p)92 void Dsp::init_static(uint32_t samplingFreq, PluginLV2 *p)
93 {
94 static_cast<Dsp*>(p)->init(samplingFreq);
95 }
96
compute(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0)97 void always_inline Dsp::compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0)
98 {
99 #define fslider0 (*fslider0_)
100 #define fslider1 (*fslider1_)
101 #define fslider2 (*fslider2_)
102 #define fslider3 (*fslider3_)
103 #define fslider4 (*fslider4_)
104 double fSlow0 = exp((0 - (fConst2 / fslider0)));
105 double fSlow1 = exp((0 - (fConst2 / fslider1)));
106 double fSlow2 = (1.0 - fSlow1);
107 double fSlow3 = (1.0 - fSlow0);
108 double fSlow4 = pow(10,(0.05 * fslider2));
109 double fSlow5 = fslider3;
110 double fSlow6 = (fConst3 * fslider4);
111 for (int i=0; i<count; i++) {
112 double fTemp0 = (double)input0[i];
113 double fTemp1 = fabs(fTemp0);
114 fRec2[0] = ((fSlow2 * fTemp1) + (fSlow1 * max(fTemp1, fRec2[1])));
115 fRec1[0] = ((fSlow3 * fRec2[0]) + (fSlow0 * fRec1[1]));
116 fRec0[0] = ((fConst3 * (1 - ((fSlow4 * fRec1[0]) > 1))) + (fConst1 * fRec0[1]));
117 double fTemp2 = (fTemp0 + (fSlow5 * fRec3[1]));
118 fVec0[IOTA&524287] = fTemp2;
119 fRec4[0] = (fSlow6 + (fConst1 * fRec4[1]));
120 double fTemp3 = (fConst4 * fRec4[0]);
121 int iTemp4 = int(fTemp3);
122 int iTemp5 = (1 + iTemp4);
123 fRec3[0] = (((fTemp3 - iTemp4) * fVec0[(IOTA-int((int(iTemp5) & 393215)))&524287]) + ((iTemp5 - fTemp3) * fVec0[(IOTA-int((iTemp4 & 393215)))&524287]));
124 output0[i] = (FAUSTFLOAT)(fTemp0 + (fRec3[0] * fRec0[0]));
125 // post processing
126 fRec3[1] = fRec3[0];
127 fRec4[1] = fRec4[0];
128 IOTA = IOTA+1;
129 fRec0[1] = fRec0[0];
130 fRec1[1] = fRec1[0];
131 fRec2[1] = fRec2[0];
132 }
133 #undef fslider0
134 #undef fslider1
135 #undef fslider2
136 #undef fslider3
137 #undef fslider4
138 }
139
compute_static(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0,PluginLV2 * p)140 void __rt_func Dsp::compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginLV2 *p)
141 {
142 static_cast<Dsp*>(p)->compute(count, input0, output0);
143 }
144
145
connect(uint32_t port,void * data)146 void Dsp::connect(uint32_t port,void* data)
147 {
148 switch ((PortIndex)port)
149 {
150 case AMOUNT:
151 fslider2_ = (float*)data; // , 0.5, 0.0, 56.0, 0.05
152 break;
153 case ATTACK:
154 fslider0_ = (float*)data; // , 0.1, 0.05, 0.5, 0.05
155 break;
156 case FEEDBACK:
157 fslider3_ = (float*)data; // , 0.0, 0.0, 1.0, 0.05
158 break;
159 case RELESE:
160 fslider1_ = (float*)data; // , 0.1, 0.05, 2.0, 0.05
161 break;
162 case TIME:
163 fslider4_ = (float*)data; // , 5e+02, 1.0, 2e+03, 1.0
164 break;
165 default:
166 break;
167 }
168 }
169
connect_static(uint32_t port,void * data,PluginLV2 * p)170 void Dsp::connect_static(uint32_t port,void* data, PluginLV2 *p)
171 {
172 static_cast<Dsp*>(p)->connect(port, data);
173 }
174
175
plugin()176 PluginLV2 *plugin() {
177 return new Dsp();
178 }
179
del_instance(PluginLV2 * p)180 void Dsp::del_instance(PluginLV2 *p)
181 {
182 delete static_cast<Dsp*>(p);
183 }
184
185 /*
186 typedef enum
187 {
188 AMOUNT,
189 ATTACK,
190 FEEDBACK,
191 RELESE,
192 TIME,
193 } PortIndex;
194 */
195
196 } // end namespace duck_delay
197