1 // generated from file './/reverb.dsp' by dsp2cc:
2 // Code generated with Faust 0.9.73 (http://faust.grame.fr)
3
4
5 namespace reverb {
6
7 class Dsp: public PluginLV2 {
8 private:
9 uint32_t fSamplingFreq;
10 double fConst0;
11 double fConst1;
12 double fConst2;
13 double fConst3;
14 double fConst4;
15 FAUSTFLOAT fslider0;
16 FAUSTFLOAT *fslider0_;
17 int IOTA;
18 double fVec0[512];
19 double fRec8[2];
20 double fVec1[128];
21 double fRec6[2];
22 double fVec2[64];
23 double fRec4[2];
24 double fVec3[4096];
25 double fRec2[2];
26 double fRec3[2];
27 double fVec4[4096];
28 double fRec10[2];
29 double fRec11[2];
30 double fVec5[2048];
31 double fRec12[2];
32 double fRec13[2];
33 double fVec6[2048];
34 double fRec14[2];
35 double fRec15[2];
36 double fVec7[2];
37 double fConst5;
38 double fConst6;
39 double fConst7;
40 double fRec1[2];
41 double fRec0[3];
42 void connect(uint32_t port,void* data);
43 void clear_state_f();
44 void init(uint32_t samplingFreq);
45 void compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0);
46
47 static void clear_state_f_static(PluginLV2*);
48 static void init_static(uint32_t samplingFreq, PluginLV2*);
49 static void compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginLV2*);
50 static void del_instance(PluginLV2 *p);
51 static void connect_static(uint32_t port,void* data, PluginLV2 *p);
52 public:
53 Dsp();
54 ~Dsp();
55 };
56
57
58
Dsp()59 Dsp::Dsp()
60 : PluginLV2() {
61 version = PLUGINLV2_VERSION;
62 id = "reverb";
63 name = N_("MK2Driver");
64 mono_audio = compute_static;
65 stereo_audio = 0;
66 set_samplerate = init_static;
67 activate_plugin = 0;
68 connect_ports = connect_static;
69 clear_state = clear_state_f_static;
70 delete_instance = del_instance;
71 }
72
~Dsp()73 Dsp::~Dsp() {
74 }
75
clear_state_f()76 inline void Dsp::clear_state_f()
77 {
78 for (int i=0; i<512; i++) fVec0[i] = 0;
79 for (int i=0; i<2; i++) fRec8[i] = 0;
80 for (int i=0; i<128; i++) fVec1[i] = 0;
81 for (int i=0; i<2; i++) fRec6[i] = 0;
82 for (int i=0; i<64; i++) fVec2[i] = 0;
83 for (int i=0; i<2; i++) fRec4[i] = 0;
84 for (int i=0; i<4096; i++) fVec3[i] = 0;
85 for (int i=0; i<2; i++) fRec2[i] = 0;
86 for (int i=0; i<2; i++) fRec3[i] = 0;
87 for (int i=0; i<4096; i++) fVec4[i] = 0;
88 for (int i=0; i<2; i++) fRec10[i] = 0;
89 for (int i=0; i<2; i++) fRec11[i] = 0;
90 for (int i=0; i<2048; i++) fVec5[i] = 0;
91 for (int i=0; i<2; i++) fRec12[i] = 0;
92 for (int i=0; i<2; i++) fRec13[i] = 0;
93 for (int i=0; i<2048; i++) fVec6[i] = 0;
94 for (int i=0; i<2; i++) fRec14[i] = 0;
95 for (int i=0; i<2; i++) fRec15[i] = 0;
96 for (int i=0; i<2; i++) fVec7[i] = 0;
97 for (int i=0; i<2; i++) fRec1[i] = 0;
98 for (int i=0; i<3; i++) fRec0[i] = 0;
99 }
100
clear_state_f_static(PluginLV2 * p)101 void Dsp::clear_state_f_static(PluginLV2 *p)
102 {
103 static_cast<Dsp*>(p)->clear_state_f();
104 }
105
init(uint32_t samplingFreq)106 inline void Dsp::init(uint32_t samplingFreq)
107 {
108 fSamplingFreq = samplingFreq;
109 fConst0 = tan((20461.192952830323 / double(min(192000, max(1, fSamplingFreq)))));
110 fConst1 = (2 * (1 - (1.0 / faustpower<2>(fConst0))));
111 fConst2 = (1.0 / fConst0);
112 fConst3 = (1 + ((fConst2 - 1.0000000000000004) / fConst0));
113 fConst4 = (1.0 / (1 + ((1.0000000000000004 + fConst2) / fConst0)));
114 IOTA = 0;
115 fConst5 = (1 + fConst2);
116 fConst6 = (2.0 / fConst5);
117 fConst7 = (0 - ((1 - fConst2) / fConst5));
118 clear_state_f();
119 }
120
init_static(uint32_t samplingFreq,PluginLV2 * p)121 void Dsp::init_static(uint32_t samplingFreq, PluginLV2 *p)
122 {
123 static_cast<Dsp*>(p)->init(samplingFreq);
124 }
125
compute(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0)126 void always_inline Dsp::compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0)
127 {
128 #define fslider0 (*fslider0_)
129 double fSlow0 = (0.06 * double(fslider0));
130 for (int i=0; i<count; i++) {
131 double fTemp0 = (double)input0[i];
132 double fTemp1 = ((0.7 * fRec8[1]) + (fSlow0 * fTemp0));
133 fVec0[IOTA&511] = fTemp1;
134 fRec8[0] = fVec0[(IOTA-346)&511];
135 double fRec9 = (0 - (0.7 * fVec0[IOTA&511]));
136 double fTemp2 = (fRec8[1] + (fRec9 + (0.7 * fRec6[1])));
137 fVec1[IOTA&127] = fTemp2;
138 fRec6[0] = fVec1[(IOTA-112)&127];
139 double fRec7 = (0 - (0.7 * fVec1[IOTA&127]));
140 double fTemp3 = (fRec6[1] + (fRec7 + (0.7 * fRec4[1])));
141 fVec2[IOTA&63] = fTemp3;
142 fRec4[0] = fVec2[(IOTA-36)&63];
143 double fRec5 = (0 - (0.7 * fVec2[IOTA&63]));
144 double fTemp4 = (fRec5 + fRec4[1]);
145 double fTemp5 = (fTemp4 + (0.733 * fRec2[1]));
146 fVec3[IOTA&4095] = fTemp5;
147 fRec2[0] = fVec3[(IOTA-2250)&4095];
148 fRec3[0] = fVec3[IOTA&4095];
149 double fTemp6 = (fTemp4 + (0.753 * fRec10[1]));
150 fVec4[IOTA&4095] = fTemp6;
151 fRec10[0] = fVec4[(IOTA-2052)&4095];
152 fRec11[0] = fVec4[IOTA&4095];
153 double fTemp7 = (fTemp4 + (0.773 * fRec12[1]));
154 fVec5[IOTA&2047] = fTemp7;
155 fRec12[0] = fVec5[(IOTA-1866)&2047];
156 fRec13[0] = fVec5[IOTA&2047];
157 double fTemp8 = (fRec4[1] + (fRec5 + (0.802 * fRec14[1])));
158 fVec6[IOTA&2047] = fTemp8;
159 fRec14[0] = fVec6[(IOTA-1600)&2047];
160 fRec15[0] = fVec6[IOTA&2047];
161 double fTemp9 = (((fRec15[1] + fRec13[1]) + fRec11[1]) + fRec3[1]);
162 double fTemp10 = (fTemp9 + fTemp9);
163 fVec7[0] = fTemp10;
164 fRec1[0] = ((fConst7 * fRec1[1]) + (fConst6 * (fVec7[0] + fVec7[1])));
165 fRec0[0] = (fRec1[0] - (fConst4 * ((fConst3 * fRec0[2]) + (fConst1 * fRec0[1]))));
166 output0[i] = (FAUSTFLOAT)(fTemp0 + (fConst4 * (fRec0[2] + (fRec0[0] + (2 * fRec0[1])))));
167 // post processing
168 fRec0[2] = fRec0[1]; fRec0[1] = fRec0[0];
169 fRec1[1] = fRec1[0];
170 fVec7[1] = fVec7[0];
171 fRec15[1] = fRec15[0];
172 fRec14[1] = fRec14[0];
173 fRec13[1] = fRec13[0];
174 fRec12[1] = fRec12[0];
175 fRec11[1] = fRec11[0];
176 fRec10[1] = fRec10[0];
177 fRec3[1] = fRec3[0];
178 fRec2[1] = fRec2[0];
179 fRec4[1] = fRec4[0];
180 fRec6[1] = fRec6[0];
181 fRec8[1] = fRec8[0];
182 IOTA = IOTA+1;
183 }
184 #undef fslider0
185 }
186
compute_static(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0,PluginLV2 * p)187 void __rt_func Dsp::compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginLV2 *p)
188 {
189 static_cast<Dsp*>(p)->compute(count, input0, output0);
190 }
191
192
connect(uint32_t port,void * data)193 void Dsp::connect(uint32_t port,void* data)
194 {
195 switch ((PortIndex)port)
196 {
197 case REVERBLEVEL:
198 fslider0_ = (float*)data; // , 0.5, 0.0, 1.0, 0.01
199 break;
200 default:
201 break;
202 }
203 }
204
connect_static(uint32_t port,void * data,PluginLV2 * p)205 void Dsp::connect_static(uint32_t port,void* data, PluginLV2 *p)
206 {
207 static_cast<Dsp*>(p)->connect(port, data);
208 }
209
210
plugin()211 PluginLV2 *plugin() {
212 return new Dsp();
213 }
214
del_instance(PluginLV2 * p)215 void Dsp::del_instance(PluginLV2 *p)
216 {
217 delete static_cast<Dsp*>(p);
218 }
219
220 /*
221 typedef enum
222 {
223 REVERBLEVEL,
224 } PortIndex;
225 */
226
227 } // end namespace reverb
228