1 // generated from file '../src/faust/rolwah.dsp' by dsp2cc:
2 // Code generated with Faust (https://faust.grame.fr)
3
4
5 namespace rolwah {
6
7 class Dsp: public PluginDef {
8 private:
9 int fSampleRate;
10 FAUSTFLOAT fVslider0;
11 FAUSTFLOAT *fVslider0_;
12 double fConst0;
13 double fConst3;
14 double fConst4;
15 int iVec0[2];
16 double fConst5;
17 double fVec1[2];
18 double fRec1[2];
19 double fConst6;
20 double fConst8;
21 FAUSTFLOAT fVslider1;
22 FAUSTFLOAT *fVslider1_;
23 double fConst9;
24 FAUSTFLOAT fVslider2;
25 FAUSTFLOAT *fVslider2_;
26 double fRec4[2];
27 double fRec3[2];
28 double fRec2[2];
29 double fConst10;
30 double fConst11;
31 double fConst12;
32 double fConst13;
33 double fRec7[2];
34 double fRec6[2];
35 double fRec5[2];
36 FAUSTFLOAT fVslider3;
37 FAUSTFLOAT *fVslider3_;
38 double fRec8[2];
39 double fConst15;
40 double fConst17;
41 double fConst18;
42 double fConst19;
43 double fConst20;
44 double fConst21;
45 double fConst22;
46 double fConst23;
47 double fConst25;
48 double fConst27;
49 double fConst29;
50 double fConst30;
51 double fConst31;
52 double fConst32;
53 double fRec0[5];
54 double fConst34;
55 double fConst36;
56 double fConst38;
57 double fConst40;
58 double fConst42;
59 double fConst44;
60 double fConst45;
61 double fConst46;
62 double fConst47;
63 double fConst48;
64 double fConst49;
65 double fConst50;
66 double fConst51;
67 double fConst52;
68 double fConst53;
69
70 void clear_state_f();
71 void init(unsigned int sample_rate);
72 void compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0);
73 int register_par(const ParamReg& reg);
74
75 static void clear_state_f_static(PluginDef*);
76 static void init_static(unsigned int sample_rate, PluginDef*);
77 static void compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginDef*);
78 static int register_params_static(const ParamReg& reg);
79 static void del_instance(PluginDef *p);
80 public:
81 Dsp();
82 ~Dsp();
83 };
84
85
86
Dsp()87 Dsp::Dsp()
88 : PluginDef() {
89 version = PLUGINDEF_VERSION;
90 flags = 0;
91 id = "rolwah";
92 name = N_("Roland Wah");
93 groups = 0;
94 description = N_("Roland Wah"); // description (tooltip)
95 category = N_("Guitar Effects"); // category
96 shortname = ""; // shortname
97 mono_audio = compute_static;
98 stereo_audio = 0;
99 set_samplerate = init_static;
100 activate_plugin = 0;
101 register_params = register_params_static;
102 load_ui = 0;
103 clear_state = clear_state_f_static;
104 delete_instance = del_instance;
105 }
106
~Dsp()107 Dsp::~Dsp() {
108 }
109
clear_state_f()110 inline void Dsp::clear_state_f()
111 {
112 for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) iVec0[l0] = 0;
113 for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) fVec1[l1] = 0.0;
114 for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) fRec1[l2] = 0.0;
115 for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) fRec4[l3] = 0.0;
116 for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) fRec3[l4] = 0.0;
117 for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) fRec2[l5] = 0.0;
118 for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) fRec7[l6] = 0.0;
119 for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) fRec6[l7] = 0.0;
120 for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) fRec5[l8] = 0.0;
121 for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) fRec8[l9] = 0.0;
122 for (int l10 = 0; (l10 < 5); l10 = (l10 + 1)) fRec0[l10] = 0.0;
123 }
124
clear_state_f_static(PluginDef * p)125 void Dsp::clear_state_f_static(PluginDef *p)
126 {
127 static_cast<Dsp*>(p)->clear_state_f();
128 }
129
init(unsigned int sample_rate)130 inline void Dsp::init(unsigned int sample_rate)
131 {
132 fSampleRate = sample_rate;
133 fConst0 = std::min<double>(192000.0, std::max<double>(1.0, double(fSampleRate)));
134 double fConst1 = (561.19412678517233 / fConst0);
135 double fConst2 = (fConst1 + 1.0);
136 fConst3 = (1.0 / fConst2);
137 fConst4 = (1.0 - fConst1);
138 fConst5 = (0.01 / fConst2);
139 fConst6 = mydsp_faustpower2_f(fConst0);
140 double fConst7 = (4.6952649820210102e-20 * fConst0);
141 fConst8 = ((fConst6 * (-3.6000257698559398e-17 - fConst7)) + 2.23506384377333e-11);
142 fConst9 = (0.10471975511965977 / fConst0);
143 fConst10 = std::exp((0.0 - (100.0 / fConst0)));
144 fConst11 = (1.0 - fConst10);
145 fConst12 = std::exp((0.0 - (10.0 / fConst0)));
146 fConst13 = (1.0 - fConst12);
147 double fConst14 = (1.6060296615066201e-18 * fConst0);
148 fConst15 = ((fConst6 * (-7.39668330530053e-17 - fConst14)) + 5.7742158918064703e-12);
149 double fConst16 = (4.0088112640798199e-19 * fConst0);
150 fConst17 = (fConst6 * (fConst16 + 3.4190118090309901e-17));
151 fConst18 = ((7.0428974730315201e-20 * fConst6) + -1.1745544619058501e-12);
152 fConst19 = ((2.4090444922599301e-18 * fConst6) + -3.48083341189137e-13);
153 fConst20 = (3.8109824885922702e-13 - (6.0132168961197298e-19 * fConst6));
154 fConst21 = ((fConst6 * (3.6000257698559398e-17 - fConst7)) + -2.23506384377333e-11);
155 fConst22 = ((fConst6 * (7.39668330530053e-17 - fConst14)) + -5.7742158918064703e-12);
156 fConst23 = (fConst6 * (fConst16 + -3.4190118090309901e-17));
157 double fConst24 = (1.17381624550525e-20 * fConst0);
158 fConst25 = ((fConst0 * ((fConst0 * (fConst24 + -1.8000128849279699e-17)) + 5.8727723095292505e-13)) + -1.11753192188666e-11);
159 double fConst26 = (4.0150741537665401e-19 * fConst0);
160 fConst27 = ((fConst0 * ((fConst0 * (fConst26 + -3.6983416526502601e-17)) + 1.7404167059456901e-13)) + -2.8871079459032299e-12);
161 double fConst28 = (1.00220281601996e-19 * fConst0);
162 fConst29 = (fConst0 * ((fConst0 * (1.7095059045154901e-17 - fConst28)) + -1.90549124429613e-13));
163 fConst30 = ((fConst0 * ((fConst0 * (fConst24 + 1.8000128849279699e-17)) + 5.8727723095292505e-13)) + 1.11753192188666e-11);
164 fConst31 = ((fConst0 * ((fConst0 * (fConst26 + 3.6983416526502601e-17)) + 1.7404167059456901e-13)) + 2.8871079459032299e-12);
165 fConst32 = (fConst0 * ((fConst0 * (-1.7095059045154901e-17 - fConst28)) + -1.90549124429613e-13));
166 double fConst33 = (2.25167399879093e-21 * fConst0);
167 fConst34 = ((fConst0 * ((fConst0 * (-7.2000883805871998e-17 - fConst33)) + -1.1226553664760001e-13)) + -6.39103500338903e-13);
168 double fConst35 = (1.67086003986576e-21 * fConst0);
169 fConst36 = ((fConst0 * ((fConst0 * (-2.84459385679371e-17 - fConst35)) + -4.25288501077712e-14)) + -5.4078671743826905e-13);
170 double fConst37 = (1.67423892093516e-21 * fConst0);
171 fConst38 = (fConst0 * ((fConst0 * (fConst37 + 2.84356697701846e-17)) + 4.21808310223676e-14));
172 double fConst39 = (9.0066959951637306e-21 * fConst0);
173 fConst40 = ((fConst6 * (fConst39 + 1.44001767611744e-16)) + -1.27820700067781e-12);
174 double fConst41 = (6.6834401594630496e-21 * fConst0);
175 fConst42 = ((fConst6 * (fConst41 + 5.6891877135874101e-17)) + -1.0815734348765399e-12);
176 double fConst43 = (6.6969556837406401e-21 * fConst0);
177 fConst44 = (fConst6 * (-5.6871339540369102e-17 - fConst43));
178 fConst45 = (2.2453107329520001e-13 - (1.35100439927456e-20 * fConst6));
179 fConst46 = (8.5057700215542399e-14 - (1.00251602391946e-20 * fConst6));
180 fConst47 = ((1.0045433525610999e-20 * fConst6) + -8.4361662044735201e-14);
181 fConst48 = ((fConst6 * (fConst39 + -1.44001767611744e-16)) + 1.27820700067781e-12);
182 fConst49 = ((fConst6 * (fConst41 + -5.6891877135874101e-17)) + 1.0815734348765399e-12);
183 fConst50 = (fConst6 * (5.6871339540369102e-17 - fConst43));
184 fConst51 = ((fConst0 * ((fConst0 * (7.2000883805871998e-17 - fConst33)) + -1.1226553664760001e-13)) + 6.39103500338903e-13);
185 fConst52 = ((fConst0 * ((fConst0 * (2.84459385679371e-17 - fConst35)) + -4.25288501077712e-14)) + 5.4078671743826905e-13);
186 fConst53 = (fConst0 * ((fConst0 * (fConst37 + -2.84356697701846e-17)) + 4.21808310223676e-14));
187 clear_state_f();
188 }
189
init_static(unsigned int sample_rate,PluginDef * p)190 void Dsp::init_static(unsigned int sample_rate, PluginDef *p)
191 {
192 static_cast<Dsp*>(p)->init(sample_rate);
193 }
194
compute(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0)195 void always_inline Dsp::compute(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0)
196 {
197 #define fVslider0 (*fVslider0_)
198 #define fVslider1 (*fVslider1_)
199 #define fVslider2 (*fVslider2_)
200 #define fVslider3 (*fVslider3_)
201 double fSlow0 = double(fVslider0);
202 double fSlow1 = (0.01 * fSlow0);
203 double fSlow2 = (1.0 - fSlow1);
204 double fSlow3 = (fConst5 * fSlow0);
205 int iSlow4 = int(double(fVslider1));
206 int iSlow5 = (iSlow4 == 0);
207 int iSlow6 = (iSlow4 == 1);
208 double fSlow7 = (fConst9 * double(fVslider2));
209 double fSlow8 = (4.748558434412966e-05 * (std::exp((5.0 * (1.0 - double(fVslider3)))) + -1.0));
210 for (int i0 = 0; (i0 < count); i0 = (i0 + 1)) {
211 double fTemp0 = double(input0[i0]);
212 iVec0[0] = 1;
213 fVec1[0] = (fSlow3 * fTemp0);
214 fRec1[0] = ((fConst3 * ((fSlow1 * fTemp0) + (fConst4 * fRec1[1]))) - fVec1[1]);
215 fRec4[0] = (fRec4[1] + (fSlow7 * (0.0 - fRec2[1])));
216 fRec3[0] = ((fSlow7 * fRec4[0]) + (double((1 - iVec0[1])) + fRec3[1]));
217 fRec2[0] = fRec3[0];
218 double fTemp1 = std::fabs(fTemp0);
219 fRec7[0] = std::max<double>(fTemp1, ((fConst12 * fRec7[1]) + (fConst13 * fTemp1)));
220 fRec6[0] = ((fConst10 * fRec6[1]) + (fConst11 * fRec7[0]));
221 fRec5[0] = ((0.99299999999999999 * fRec5[1]) + (0.0070000000000000062 * std::max<double>(0.10000000000000001, std::min<double>(0.98999999999999999, fRec6[0]))));
222 double fThen0 = (1.0 - std::max<double>(0.01, std::min<double>(0.97999999999999998, (0.5 * (fRec2[0] + 1.0)))));
223 fRec8[0] = (fSlow8 + (0.99299999999999999 * fRec8[1]));
224 double fThen1 = (iSlow6 ? fRec5[0] : fThen0);
225 double fTemp2 = (iSlow5 ? fRec8[0] : fThen1);
226 double fTemp3 = ((fConst0 * (fConst30 + (fTemp2 * (fConst31 + (fConst32 * fTemp2))))) + 4.3744059786412602e-11);
227 fRec0[0] = (fRec1[0] - (((((fRec0[1] * ((fConst0 * (fConst8 + (fTemp2 * (fConst15 + (fConst17 * fTemp2))))) + 1.7497623914564999e-10)) + (fRec0[2] * ((fConst6 * (fConst18 + (fTemp2 * (fConst19 + (fConst20 * fTemp2))))) + 2.6246435871847599e-10))) + (fRec0[3] * ((fConst0 * (fConst21 + (fTemp2 * (fConst22 + (fConst23 * fTemp2))))) + 1.7497623914564999e-10))) + (fRec0[4] * ((fConst0 * (fConst25 + (fTemp2 * (fConst27 + (fConst29 * fTemp2))))) + 4.3744059786412602e-11))) / fTemp3));
228 output0[i0] = FAUSTFLOAT(((fSlow2 * fTemp0) + (fConst0 * ((((((fRec0[0] * (fConst34 + (fTemp2 * (fConst36 + (fConst38 * fTemp2))))) + (fRec0[1] * (fConst40 + (fTemp2 * (fConst42 + (fConst44 * fTemp2)))))) + (fConst0 * (fRec0[2] * (fConst45 + (fTemp2 * (fConst46 + (fConst47 * fTemp2))))))) + (fRec0[3] * (fConst48 + (fTemp2 * (fConst49 + (fConst50 * fTemp2)))))) + (fRec0[4] * (fConst51 + (fTemp2 * (fConst52 + (fConst53 * fTemp2)))))) / fTemp3))));
229 iVec0[1] = iVec0[0];
230 fVec1[1] = fVec1[0];
231 fRec1[1] = fRec1[0];
232 fRec4[1] = fRec4[0];
233 fRec3[1] = fRec3[0];
234 fRec2[1] = fRec2[0];
235 fRec7[1] = fRec7[0];
236 fRec6[1] = fRec6[0];
237 fRec5[1] = fRec5[0];
238 fRec8[1] = fRec8[0];
239 for (int j0 = 4; (j0 > 0); j0 = (j0 - 1)) {
240 fRec0[j0] = fRec0[(j0 - 1)];
241 }
242 }
243 #undef fVslider0
244 #undef fVslider1
245 #undef fVslider2
246 #undef fVslider3
247 }
248
compute_static(int count,FAUSTFLOAT * input0,FAUSTFLOAT * output0,PluginDef * p)249 void __rt_func Dsp::compute_static(int count, FAUSTFLOAT *input0, FAUSTFLOAT *output0, PluginDef *p)
250 {
251 static_cast<Dsp*>(p)->compute(count, input0, output0);
252 }
253
register_par(const ParamReg & reg)254 int Dsp::register_par(const ParamReg& reg)
255 {
256 fVslider3_ = reg.registerFloatVar("wah.Wah","","SA","",&fVslider3, 0.0, 0.0, 1.0, 0.01, 0);
257 fVslider2_ = reg.registerFloatVar("wah.freq",N_("Alien Freq"),"SA",N_("LFO in Beats per Minute"),&fVslider2, 24.0, 24.0, 360.0, 1.0, 0);
258 static const value_pair fVslider1_values[] = {{"manual"},{"auto"},{"alien"},{0}};
259 fVslider1_ = reg.registerFloatVar("wah.mode","","SA","",&fVslider1, 0.0, 0.0, 2.0, 1.0, fVslider1_values);
260 fVslider0_ = reg.registerFloatVar("wah.wet_dry",N_("dry/wet"),"SA","",&fVslider0, 100.0, 0.0, 100.0, 1.0, 0);
261 return 0;
262 }
263
register_params_static(const ParamReg & reg)264 int Dsp::register_params_static(const ParamReg& reg)
265 {
266 return static_cast<Dsp*>(reg.plugin)->register_par(reg);
267 }
268
plugin()269 PluginDef *plugin() {
270 return new Dsp();
271 }
272
del_instance(PluginDef * p)273 void Dsp::del_instance(PluginDef *p)
274 {
275 delete static_cast<Dsp*>(p);
276 }
277
278 } // end namespace rolwah
279