DISTRHO
/
DPF-Max-Gen
mirror of https://github.com/DISTRHO/DPF-Max-Gen
1
0
Fork 0
Code Releases 0 Activity
DPF with Max Gen
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 Commits
2 Branches
19MB
Tree: 43808a481f
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '43808a481f'
${ noResults }
DPF-Max-Gen/plugins/shiroverb/gen_exported.cpp

663 lines
22KB
Raw Blame History 

  1. #include "gen_exported.h"

  2. 

  3. namespace gen_exported {

  4. 

  5. 

  6. /*******************************************************************************************************************

  7. Copyright (c) 2012 Cycling '74

  8. 

  9. Permission is hereby granted, free of charge, to any person obtaining a copy of this software

  10. and associated documentation files (the "Software"), to deal in the Software without restriction,

  11. including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense,

  12. and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so,

  13. subject to the following conditions:

  14. 

  15. The above copyright notice and this permission notice shall be included in all copies

  16. or substantial portions of the Software.

  17. 

  18. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,

  19. INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

  20. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

  21. WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE

  22. OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

  23. *******************************************************************************************************************/

  24. 

  25. 

  26. // global noise generator

  27. Noise noise;

  28. static const int GENLIB_LOOPCOUNT_BAIL = 100000;

  29. 

  30. 

  31. // The State struct contains all the state and procedures for the gendsp kernel

  32. typedef struct State { 

  33. 	CommonState __commonstate;

  34. 	Delay m_delay_22;

  35. 	Delay m_delay_14;

  36. 	Delay m_delay_15;

  37. 	Delay m_delay_13;

  38. 	Delay m_delay_12;

  39. 	Delay m_delay_23;

  40. 	Delay m_delay_16;

  41. 	Delay m_delay_18;

  42. 	Delay m_delay_17;

  43. 	Delay m_delay_20;

  44. 	Delay m_delay_19;

  45. 	Delay m_delay_21;

  46. 	Delay m_delay_24;

  47. 	Delta m_delta_34;

  48. 	Delta m_delta_43;

  49. 	Delta m_delta_37;

  50. 	Delta m_delta_40;

  51. 	Phasor m_phasor_33;

  52. 	Sah m_sah_42;

  53. 	Sah m_sah_41;

  54. 	Sah m_sah_39;

  55. 	Sah m_sah_36;

  56. 	Sah m_sah_38;

  57. 	Sah m_sah_35;

  58. 	Sah m_sah_44;

  59. 	Sah m_sah_45;

  60. 	double m_history_10;

  61. 	double m_history_5;

  62. 	double m_history_6;

  63. 	double m_history_7;

  64. 	double m_smth_11;

  65. 	double m_history_4;

  66. 	double m_y_2;

  67. 	double m_history_3;

  68. 	double samplerate;

  69. 	double m_history_1;

  70. 	double m_history_9;

  71. 	double m_history_8;

  72. 	double m_ratio_32;

  73. 	double samples_to_seconds;

  74. 	double m_mix_26;

  75. 	double m_bandwidth_25;

  76. 	double m_damping_28;

  77. 	double m_decay_27;

  78. 	double m_tone_30;

  79. 	double m_shimmer_31;

  80. 	double m_roomsize_29;

  81. 	int vectorsize;

  82. 	int __exception;

  83. 	// re-initialize all member variables;

  84. 	inline void reset(double __sr, int __vs) { 

  85. 		__exception = 0;

  86. 		vectorsize = __vs;

  87. 		samplerate = __sr;

  88. 		m_history_1 = 0;

  89. 		m_y_2 = 0;

  90. 		m_history_3 = 0;

  91. 		m_history_4 = 0;

  92. 		m_history_5 = 0;

  93. 		m_history_6 = 0;

  94. 		m_history_7 = 0;

  95. 		m_history_8 = 0;

  96. 		m_history_9 = 0;

  97. 		m_history_10 = 0;

  98. 		m_smth_11 = 0;

  99. 		m_delay_12.reset("m_delay_12", 7000);

  100. 		m_delay_13.reset("m_delay_13", 5000);

  101. 		m_delay_14.reset("m_delay_14", 6000);

  102. 		m_delay_15.reset("m_delay_15", 48000);

  103. 		m_delay_16.reset("m_delay_16", 16000);

  104. 		m_delay_17.reset("m_delay_17", 96000);

  105. 		m_delay_18.reset("m_delay_18", 15000);

  106. 		m_delay_19.reset("m_delay_19", 12000);

  107. 		m_delay_20.reset("m_delay_20", 10000);

  108. 		m_delay_21.reset("m_delay_21", 48000);

  109. 		m_delay_22.reset("m_delay_22", 48000);

  110. 		m_delay_23.reset("m_delay_23", 48000);

  111. 		m_delay_24.reset("m_delay_24", 48000);

  112. 		m_bandwidth_25 = 75;

  113. 		m_mix_26 = 50;

  114. 		m_decay_27 = 50;

  115. 		m_damping_28 = 50;

  116. 		m_roomsize_29 = 150;

  117. 		m_tone_30 = 1500;

  118. 		m_shimmer_31 = 50;

  119. 		m_ratio_32 = 2;

  120. 		samples_to_seconds = (1 / samplerate);

  121. 		m_phasor_33.reset(0);

  122. 		m_delta_34.reset(0);

  123. 		m_sah_35.reset(0);

  124. 		m_sah_36.reset(0);

  125. 		m_delta_37.reset(0);

  126. 		m_sah_38.reset(0);

  127. 		m_sah_39.reset(0);

  128. 		m_delta_40.reset(0);

  129. 		m_sah_41.reset(0);

  130. 		m_sah_42.reset(0);

  131. 		m_delta_43.reset(0);

  132. 		m_sah_44.reset(0);

  133. 		m_sah_45.reset(0);

  134. 		genlib_reset_complete(this);

  135. 		

  136. 	};

  137. 	// the signal processing routine;

  138. 	inline int perform(t_sample ** __ins, t_sample ** __outs, int __n) { 

  139. 		vectorsize = __n;

  140. 		const t_sample * __in1 = __ins[0];

  141. 		t_sample * __out1 = __outs[0];

  142. 		t_sample * __out2 = __outs[1];

  143. 		if (__exception) { 

  144. 			return __exception;

  145. 			

  146. 		} else if (( (__in1 == 0) || (__out1 == 0) || (__out2 == 0) )) { 

  147. 			__exception = GENLIB_ERR_NULL_BUFFER;

  148. 			return __exception;

  149. 			

  150. 		};

  151. 		double mul_5308 = (m_mix_26 * 0.01);

  152. 		double mul_5307 = (m_damping_28 * 0.01);

  153. 		double expr_5535 = safediv((m_roomsize_29 * 48000), 340);

  154. 		double mul_5306 = (m_bandwidth_25 * 0.01);

  155. 		double rsub_5305 = (1 - mul_5306);

  156. 		double mul_5309 = (m_shimmer_31 * 0.01);

  157. 		double expr_5525 = safediv(((m_tone_30 * 2) * 3.1415926535898), 48000);

  158. 		double sin_5313 = sin(expr_5525);

  159. 		double clamp_5314 = ((sin_5313 <= 1e-05) ? 1e-05 : ((sin_5313 >= 0.99999) ? 0.99999 : sin_5313));

  160. 		double expr_5524 = safepow(1.0418, m_decay_27);

  161. 		double expr_5534 = safepow(0.001, safediv(1, (expr_5524 * 48000)));

  162. 		double rsub_5364 = (1 - m_ratio_32);

  163. 		double mul_5363 = (rsub_5364 * 10);

  164. 		samples_to_seconds = (1 / samplerate);

  165. 		double mul_5303 = (m_decay_27 * 2);

  166. 		double clamp_5298 = ((mul_5303 <= 0) ? 0 : ((mul_5303 >= 100) ? 100 : mul_5303));

  167. 		double mul_5302 = (clamp_5298 * 0.01);

  168. 		double atodb_5301 = atodb(mul_5302);

  169. 		double sub_5300 = (atodb_5301 - 9);

  170. 		double dbtoa_5299 = dbtoa(sub_5300);

  171. 		// the main sample loop;

  172. 		while ((__n--)) { 

  173. 			const double in1 = (*(__in1++));

  174. 			double mix_5568 = (expr_5535 + (0.999 * (m_smth_11 - expr_5535)));

  175. 			double mix_5297 = mix_5568;

  176. 			double noise_5315 = noise();

  177. 			double abs_5332 = fabs(noise_5315);

  178. 			double mul_5336 = (abs_5332 * 0.25);

  179. 			double noise_5316 = noise();

  180. 			double abs_5333 = fabs(noise_5316);

  181. 			double mul_5339 = (abs_5333 * 0.25);

  182. 			double noise_5317 = noise();

  183. 			double abs_5334 = fabs(noise_5317);

  184. 			double mul_5342 = (abs_5334 * 0.25);

  185. 			double mul_5514 = (mix_5297 * 0.81649);

  186. 			double tap_5438 = m_delay_24.read_linear(mul_5514);

  187. 			double noise_5318 = noise();

  188. 			double abs_5335 = fabs(noise_5318);

  189. 			double mul_5345 = (abs_5335 * 0.25);

  190. 			double mul_5513 = (mix_5297 * 0.7071);

  191. 			double tap_5432 = m_delay_23.read_linear(mul_5513);

  192. 			double mul_5512 = (mix_5297 * 0.63245);

  193. 			double tap_5426 = m_delay_22.read_linear(mul_5512);

  194. 			double mul_5515 = (mix_5297 * 1);

  195. 			double tap_5520 = m_delay_21.read_linear(mul_5515);

  196. 			double expr_5528 = (-safepow(expr_5534, mul_5514));

  197. 			double mul_5434 = (tap_5438 * expr_5528);

  198. 			double mix_5569 = (mul_5434 + (mul_5307 * (m_history_10 - mul_5434)));

  199. 			double mix_5436 = mix_5569;

  200. 			double expr_5527 = (-safepow(expr_5534, mul_5513));

  201. 			double mul_5428 = (tap_5432 * expr_5527);

  202. 			double mix_5570 = (mul_5428 + (mul_5307 * (m_history_9 - mul_5428)));

  203. 			double mix_5430 = mix_5570;

  204. 			double expr_5526 = (-safepow(expr_5534, mul_5512));

  205. 			double mul_5422 = (tap_5426 * expr_5526);

  206. 			double mix_5571 = (mul_5422 + (mul_5307 * (m_history_8 - mul_5422)));

  207. 			double mix_5424 = mix_5571;

  208. 			double expr_5533 = (-safepow(expr_5534, mul_5515));

  209. 			double mul_5511 = (tap_5520 * expr_5533);

  210. 			double mix_5572 = (mul_5511 + (mul_5307 * (m_history_7 - mul_5511)));

  211. 			double mix_5518 = mix_5572;

  212. 			double mul_5509 = (mix_5297 * 0.000527);

  213. 			int int_5508 = int(mul_5509);

  214. 			double mul_5486 = (int_5508 * 400.600006);

  215. 			double tap_5485 = m_delay_20.read_linear(mul_5486);

  216. 			double mul_5483 = (tap_5485 * 0.625);

  217. 			double mul_5465 = (int_5508 * 419.5);

  218. 			double tap_5464 = m_delay_19.read_linear(mul_5465);

  219. 			double mul_5462 = (tap_5464 * 0.625);

  220. 			double mul_5493 = (int_5508 * 568.299988);

  221. 			double tap_5492 = m_delay_18.read_linear(mul_5493);

  222. 			double phasor_5382 = m_phasor_33(mul_5363, samples_to_seconds);

  223. 			double add_5356 = ((m_history_6 + phasor_5382) + 0.75);

  224. 			double mod_5355 = safemod(add_5356, 1);

  225. 			double delta_5338 = m_delta_34(mod_5355);

  226. 			double sah_5319 = m_sah_35(mul_5336, delta_5338, 0);

  227. 			int sah_5337 = m_sah_36(4800, delta_5338, 0);

  228. 			double mul_5328 = (sah_5337 * mod_5355);

  229. 			double sub_5354 = (mod_5355 - 0.5);

  230. 			double mul_5353 = (sub_5354 * 3.1415926535898);

  231. 			double cos_5352 = cos(mul_5353);

  232. 			double mul_5347 = (cos_5352 * cos_5352);

  233. 			double add_5362 = ((m_history_5 + phasor_5382) + 0.5);

  234. 			double mod_5361 = safemod(add_5362, 1);

  235. 			double delta_5341 = m_delta_37(mod_5361);

  236. 			double sah_5321 = m_sah_38(mul_5339, delta_5341, 0);

  237. 			int sah_5340 = m_sah_39(4800, delta_5341, 0);

  238. 			double mul_5329 = (sah_5340 * mod_5361);

  239. 			double sub_5360 = (mod_5361 - 0.5);

  240. 			double mul_5359 = (sub_5360 * 3.1415926535898);

  241. 			double cos_5358 = cos(mul_5359);

  242. 			double mul_5348 = (cos_5358 * cos_5358);

  243. 			double add_5376 = ((m_history_4 + phasor_5382) + 0.25);

  244. 			double mod_5375 = safemod(add_5376, 1);

  245. 			double delta_5344 = m_delta_40(mod_5375);

  246. 			double sah_5323 = m_sah_41(mul_5342, delta_5344, 0);

  247. 			int sah_5343 = m_sah_42(4800, delta_5344, 0);

  248. 			double mul_5330 = (sah_5343 * mod_5375);

  249. 			double sub_5374 = (mod_5375 - 0.5);

  250. 			double mul_5373 = (sub_5374 * 3.1415926535898);

  251. 			double cos_5372 = cos(mul_5373);

  252. 			double mul_5349 = (cos_5372 * cos_5372);

  253. 			double add_5381 = ((m_history_3 + phasor_5382) + 0);

  254. 			double mod_5380 = safemod(add_5381, 1);

  255. 			double delta_5326 = m_delta_43(mod_5380);

  256. 			double sah_5325 = m_sah_44(mul_5345, delta_5326, 0);

  257. 			int sah_5346 = m_sah_45(4800, delta_5326, 0);

  258. 			double mul_5331 = (sah_5346 * mod_5380);

  259. 			double tap_5368 = m_delay_17.read_linear(mul_5331);

  260. 			double tap_5369 = m_delay_17.read_linear(mul_5330);

  261. 			double tap_5370 = m_delay_17.read_linear(mul_5329);

  262. 			double tap_5371 = m_delay_17.read_linear(mul_5328);

  263. 			double mul_5351 = (tap_5371 * mul_5347);

  264. 			double mul_5357 = (tap_5370 * mul_5348);

  265. 			double mul_5365 = (tap_5369 * mul_5349);

  266. 			double sub_5379 = (mod_5380 - 0.5);

  267. 			double mul_5378 = (sub_5379 * 3.1415926535898);

  268. 			double cos_5377 = cos(mul_5378);

  269. 			double mul_5350 = (cos_5377 * cos_5377);

  270. 			double mul_5366 = (tap_5368 * mul_5350);

  271. 			double add_5574 = (((mul_5366 + mul_5365) + mul_5357) + mul_5351);

  272. 			double mix_5573 = (m_y_2 + (clamp_5314 * (add_5574 - m_y_2)));

  273. 			double mix_5311 = mix_5573;

  274. 			double mix_5575 = (in1 + (mul_5309 * (mix_5311 - in1)));

  275. 			double mix_5383 = mix_5575;

  276. 			double mul_5386 = (mix_5383 * 0.707);

  277. 			double mix_5576 = (mul_5386 + (rsub_5305 * (m_history_1 - mul_5386)));

  278. 			double mix_5522 = mix_5576;

  279. 			double sub_5415 = (mix_5518 - mix_5436);

  280. 			double sub_5412 = (mix_5430 - mix_5424);

  281. 			double sub_5411 = (sub_5415 - sub_5412);

  282. 			double mul_5394 = (sub_5411 * 0.5);

  283. 			double add_5452 = (mix_5297 + 5);

  284. 			double expr_5529 = safepow(expr_5534, add_5452);

  285. 			double add_5410 = (sub_5415 + sub_5412);

  286. 			double rsub_5408 = (0 - add_5410);

  287. 			double mul_5393 = (rsub_5408 * 0.5);

  288. 			double mul_5472 = (int_5508 * 566.700012);

  289. 			double tap_5471 = m_delay_16.read_linear(mul_5472);

  290. 			double add_5416 = (mix_5518 + mix_5436);

  291. 			double add_5414 = (mix_5430 + mix_5424);

  292. 			double add_5409 = (add_5416 + add_5414);

  293. 			double mul_5392 = (add_5409 * 0.5);

  294. 			double sub_5413 = (add_5416 - add_5414);

  295. 			double mul_5395 = (sub_5413 * 0.5);

  296. 			double mul_5490 = (tap_5492 * 0.625);

  297. 			double mul_5458 = (mix_5297 * 0.41);

  298. 			double add_5455 = (mul_5458 + 5);

  299. 			double expr_5532 = safepow(expr_5534, add_5455);

  300. 			double mul_5457 = (mix_5297 * 0.3);

  301. 			double add_5454 = (mul_5457 + 5);

  302. 			double expr_5531 = safepow(expr_5534, add_5454);

  303. 			double mul_5456 = (mix_5297 * 0.155);

  304. 			double add_5453 = (mul_5456 + 5);

  305. 			double tap_5440 = m_delay_15.read_linear(add_5455);

  306. 			double tap_5441 = m_delay_15.read_linear(add_5454);

  307. 			double tap_5442 = m_delay_15.read_linear(add_5453);

  308. 			double tap_5443 = m_delay_15.read_linear(add_5452);

  309. 			double mul_5448 = (tap_5441 * expr_5531);

  310. 			double add_5419 = (mul_5394 + mul_5448);

  311. 			double mul_5444 = (tap_5443 * expr_5529);

  312. 			double add_5417 = (mul_5392 + mul_5444);

  313. 			double mul_5450 = (tap_5440 * expr_5532);

  314. 			double add_5420 = (mul_5395 + mul_5450);

  315. 			double expr_5530 = safepow(expr_5534, add_5453);

  316. 			double mul_5446 = (tap_5442 * expr_5530);

  317. 			double add_5418 = (mul_5393 + mul_5446);

  318. 			double mul_5469 = (tap_5471 * 0.625);

  319. 			double mul_5507 = (mix_5297 * 0.110732);

  320. 			double tap_5506 = m_delay_14.read_cubic(mul_5507);

  321. 			double mul_5500 = (int_5508 * 162.100006);

  322. 			double tap_5499 = m_delay_13.read_linear(mul_5500);

  323. 			double mul_5504 = (tap_5506 * 0.75);

  324. 			double sub_5503 = (mix_5522 - mul_5504);

  325. 			double mul_5502 = (sub_5503 * 0.75);

  326. 			double add_5501 = (mul_5502 + tap_5506);

  327. 			double mul_5479 = (int_5508 * 144.800003);

  328. 			double tap_5478 = m_delay_12.read_linear(mul_5479);

  329. 			double mul_5497 = (tap_5499 * 0.75);

  330. 			double mul_5476 = (tap_5478 * 0.75);

  331. 			double mul_5403 = (mul_5450 * mul_5302);

  332. 			double mul_5401 = (mul_5446 * mul_5302);

  333. 			double add_5389 = (mul_5403 + mul_5401);

  334. 			double mul_5402 = (mul_5448 * mul_5302);

  335. 			double mul_5400 = (mul_5444 * mul_5302);

  336. 			double add_5388 = (mul_5402 + mul_5400);

  337. 			double sub_5398 = (add_5389 - add_5388);

  338. 			double mul_5407 = (mul_5395 * dbtoa_5299);

  339. 			double mul_5405 = (mul_5393 * dbtoa_5299);

  340. 			double add_5391 = (mul_5407 + mul_5405);

  341. 			double mul_5406 = (mul_5394 * dbtoa_5299);

  342. 			double mul_5404 = (mul_5392 * dbtoa_5299);

  343. 			double add_5390 = (mul_5406 + mul_5404);

  344. 			double sub_5399 = (add_5391 - add_5390);

  345. 			double add_5385 = (sub_5399 + sub_5398);

  346. 			double add_5397 = (add_5385 + mix_5383);

  347. 			double sub_5496 = (add_5397 - mul_5497);

  348. 			double mul_5495 = (sub_5496 * 0.75);

  349. 			double add_5494 = (mul_5495 + tap_5499);

  350. 			double sub_5489 = (add_5494 - mul_5490);

  351. 			double mul_5488 = (sub_5489 * 0.625);

  352. 			double add_5487 = (mul_5488 + tap_5492);

  353. 			double sub_5482 = (add_5487 - mul_5483);

  354. 			double mul_5481 = (sub_5482 * 0.625);

  355. 			double add_5480 = (mul_5481 + tap_5485);

  356. 			double mul_5396 = (add_5480 * mul_5308);

  357. 			double out1 = (in1 + mul_5396);

  358. 			double add_5387 = (add_5385 + mix_5383);

  359. 			double sub_5475 = (add_5387 - mul_5476);

  360. 			double mul_5474 = (sub_5475 * 0.75);

  361. 			double add_5473 = (mul_5474 + tap_5478);

  362. 			double sub_5468 = (add_5473 - mul_5469);

  363. 			double mul_5467 = (sub_5468 * 0.625);

  364. 			double add_5466 = (mul_5467 + tap_5471);

  365. 			double sub_5461 = (add_5466 - mul_5462);

  366. 			double mul_5460 = (sub_5461 * 0.625);

  367. 			double add_5459 = (mul_5460 + tap_5464);

  368. 			double mul_5384 = (add_5459 * mul_5308);

  369. 			double out2 = (in1 + mul_5384);

  370. 			double smth_next_5536 = mix_5297;

  371. 			double history_5435_next_5537 = mix_5436;

  372. 			double history_5429_next_5538 = mix_5430;

  373. 			double history_5423_next_5539 = mix_5424;

  374. 			double history_5517_next_5540 = mix_5518;

  375. 			double history_5320_next_5541 = sah_5319;

  376. 			double history_5322_next_5542 = sah_5321;

  377. 			double history_5324_next_5543 = sah_5323;

  378. 			double history_5327_next_5544 = sah_5325;

  379. 			double y0_next_5545 = mix_5311;

  380. 			double history_5521_next_5546 = mix_5522;

  381. 			m_delay_24.write(add_5419);

  382. 			m_delay_23.write(add_5418);

  383. 			m_delay_22.write(add_5417);

  384. 			m_delay_21.write(add_5420);

  385. 			m_delay_20.write(sub_5482);

  386. 			m_delay_19.write(sub_5461);

  387. 			m_delay_18.write(sub_5489);

  388. 			m_delay_17.write(in1);

  389. 			m_delay_16.write(sub_5468);

  390. 			m_delay_15.write(add_5501);

  391. 			m_delay_14.write(sub_5503);

  392. 			m_delay_13.write(sub_5496);

  393. 			m_delay_12.write(sub_5475);

  394. 			m_smth_11 = smth_next_5536;

  395. 			m_history_10 = history_5435_next_5537;

  396. 			m_history_9 = history_5429_next_5538;

  397. 			m_history_8 = history_5423_next_5539;

  398. 			m_history_7 = history_5517_next_5540;

  399. 			m_history_6 = history_5320_next_5541;

  400. 			m_history_5 = history_5322_next_5542;

  401. 			m_history_4 = history_5324_next_5543;

  402. 			m_history_3 = history_5327_next_5544;

  403. 			m_y_2 = y0_next_5545;

  404. 			m_history_1 = history_5521_next_5546;

  405. 			m_delay_12.step();

  406. 			m_delay_13.step();

  407. 			m_delay_14.step();

  408. 			m_delay_15.step();

  409. 			m_delay_16.step();

  410. 			m_delay_17.step();

  411. 			m_delay_18.step();

  412. 			m_delay_19.step();

  413. 			m_delay_20.step();

  414. 			m_delay_21.step();

  415. 			m_delay_22.step();

  416. 			m_delay_23.step();

  417. 			m_delay_24.step();

  418. 			// assign results to output buffer;

  419. 			(*(__out1++)) = out1;

  420. 			(*(__out2++)) = out2;

  421. 			

  422. 		};

  423. 		return __exception;

  424. 		

  425. 	};

  426. 	inline void set_bandwidth(double _value) {

  427. 		m_bandwidth_25 = (_value < 0 ? 0 : (_value > 100 ? 100 : _value));

  428. 	};

  429. 	inline void set_mix(double _value) {

  430. 		m_mix_26 = (_value < 0 ? 0 : (_value > 100 ? 100 : _value));

  431. 	};

  432. 	inline void set_decay(double _value) {

  433. 		m_decay_27 = (_value < 1 ? 1 : (_value > 100 ? 100 : _value));

  434. 	};

  435. 	inline void set_damping(double _value) {

  436. 		m_damping_28 = (_value < 0 ? 0 : (_value > 100 ? 100 : _value));

  437. 	};

  438. 	inline void set_roomsize(double _value) {

  439. 		m_roomsize_29 = (_value < 1 ? 1 : (_value > 300 ? 300 : _value));

  440. 	};

  441. 	inline void set_tone(double _value) {

  442. 		m_tone_30 = (_value < 500 ? 500 : (_value > 6000 ? 6000 : _value));

  443. 	};

  444. 	inline void set_shimmer(double _value) {

  445. 		m_shimmer_31 = (_value < 0 ? 0 : (_value > 100 ? 100 : _value));

  446. 	};

  447. 	inline void set_ratio(double _value) {

  448. 		m_ratio_32 = (_value < 0.5 ? 0.5 : (_value > 2 ? 2 : _value));

  449. 	};

  450. 	

  451. } State;

  452. 

  453. 

  454. /// 

  455. ///	Configuration for the genlib API

  456. ///

  457. 

  458. /// Number of signal inputs and outputs 

  459. 

  460. int gen_kernel_numins = 1;

  461. int gen_kernel_numouts = 2;

  462. 

  463. int num_inputs() { return gen_kernel_numins; }

  464. int num_outputs() { return gen_kernel_numouts; }

  465. int num_params() { return 8; }

  466. 

  467. /// Assistive lables for the signal inputs and outputs 

  468. 

  469. const char * gen_kernel_innames[] = { "in1" };

  470. const char * gen_kernel_outnames[] = { "out1", "out2" };

  471. 

  472. /// Invoke the signal process of a State object

  473. 

  474. int perform(CommonState *cself, t_sample **ins, long numins, t_sample **outs, long numouts, long n) { 

  475. 	State * self = (State *)cself;

  476. 	return self->perform(ins, outs, n);

  477. }

  478. 

  479. /// Reset all parameters and stateful operators of a State object

  480. 

  481. void reset(CommonState *cself) { 

  482. 	State * self = (State *)cself;

  483. 	self->reset(cself->sr, cself->vs); 

  484. }

  485. 

  486. /// Set a parameter of a State object 

  487. 

  488. void setparameter(CommonState *cself, long index, double value, void *ref) {

  489. 	State * self = (State *)cself;

  490. 	switch (index) {

  491. 		case 0: self->set_bandwidth(value); break;

  492. 		case 1: self->set_mix(value); break;

  493. 		case 2: self->set_decay(value); break;

  494. 		case 3: self->set_damping(value); break;

  495. 		case 4: self->set_roomsize(value); break;

  496. 		case 5: self->set_tone(value); break;

  497. 		case 6: self->set_shimmer(value); break;

  498. 		case 7: self->set_ratio(value); break;

  499. 		

  500. 		default: break;

  501. 	}

  502. }

  503. 

  504. /// Get the value of a parameter of a State object 

  505. 

  506. void getparameter(CommonState *cself, long index, double *value) {

  507. 	State *self = (State *)cself;

  508. 	switch (index) {

  509. 		case 0: *value = self->m_bandwidth_25; break;

  510. 		case 1: *value = self->m_mix_26; break;

  511. 		case 2: *value = self->m_decay_27; break;

  512. 		case 3: *value = self->m_damping_28; break;

  513. 		case 4: *value = self->m_roomsize_29; break;

  514. 		case 5: *value = self->m_tone_30; break;

  515. 		case 6: *value = self->m_shimmer_31; break;

  516. 		case 7: *value = self->m_ratio_32; break;

  517. 		

  518. 		default: break;

  519. 	}

  520. }

  521. 

  522. /// Allocate and configure a new State object and it's internal CommonState:

  523. 

  524. void * create(double sr, long vs) {

  525. 	State *self = new State;

  526. 	self->reset(sr, vs);

  527. 	ParamInfo *pi;

  528. 	self->__commonstate.inputnames = gen_kernel_innames;

  529. 	self->__commonstate.outputnames = gen_kernel_outnames;

  530. 	self->__commonstate.numins = gen_kernel_numins;

  531. 	self->__commonstate.numouts = gen_kernel_numouts;

  532. 	self->__commonstate.sr = sr;

  533. 	self->__commonstate.vs = vs;

  534. 	self->__commonstate.params = (ParamInfo *)genlib_sysmem_newptr(8 * sizeof(ParamInfo));

  535. 	self->__commonstate.numparams = 8;

  536. 	// initialize parameter 0 ("m_bandwidth_25")

  537. 	pi = self->__commonstate.params + 0;

  538. 	pi->name = "bandwidth";

  539. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  540. 	pi->defaultvalue = self->m_bandwidth_25;

  541. 	pi->defaultref = 0;

  542. 	pi->hasinputminmax = false;

  543. 	pi->inputmin = 0; 

  544. 	pi->inputmax = 1;

  545. 	pi->hasminmax = true;

  546. 	pi->outputmin = 0;

  547. 	pi->outputmax = 100;

  548. 	pi->exp = 0;

  549. 	pi->units = "";		// no units defined

  550. 	// initialize parameter 1 ("m_mix_26")

  551. 	pi = self->__commonstate.params + 1;

  552. 	pi->name = "mix";

  553. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  554. 	pi->defaultvalue = self->m_mix_26;

  555. 	pi->defaultref = 0;

  556. 	pi->hasinputminmax = false;

  557. 	pi->inputmin = 0; 

  558. 	pi->inputmax = 1;

  559. 	pi->hasminmax = true;

  560. 	pi->outputmin = 0;

  561. 	pi->outputmax = 100;

  562. 	pi->exp = 0;

  563. 	pi->units = "";		// no units defined

  564. 	// initialize parameter 2 ("m_decay_27")

  565. 	pi = self->__commonstate.params + 2;

  566. 	pi->name = "decay";

  567. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  568. 	pi->defaultvalue = self->m_decay_27;

  569. 	pi->defaultref = 0;

  570. 	pi->hasinputminmax = false;

  571. 	pi->inputmin = 0; 

  572. 	pi->inputmax = 1;

  573. 	pi->hasminmax = true;

  574. 	pi->outputmin = 1;

  575. 	pi->outputmax = 100;

  576. 	pi->exp = 0;

  577. 	pi->units = "";		// no units defined

  578. 	// initialize parameter 3 ("m_damping_28")

  579. 	pi = self->__commonstate.params + 3;

  580. 	pi->name = "damping";

  581. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  582. 	pi->defaultvalue = self->m_damping_28;

  583. 	pi->defaultref = 0;

  584. 	pi->hasinputminmax = false;

  585. 	pi->inputmin = 0; 

  586. 	pi->inputmax = 1;

  587. 	pi->hasminmax = true;

  588. 	pi->outputmin = 0;

  589. 	pi->outputmax = 100;

  590. 	pi->exp = 0;

  591. 	pi->units = "";		// no units defined

  592. 	// initialize parameter 4 ("m_roomsize_29")

  593. 	pi = self->__commonstate.params + 4;

  594. 	pi->name = "roomsize";

  595. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  596. 	pi->defaultvalue = self->m_roomsize_29;

  597. 	pi->defaultref = 0;

  598. 	pi->hasinputminmax = false;

  599. 	pi->inputmin = 0; 

  600. 	pi->inputmax = 1;

  601. 	pi->hasminmax = true;

  602. 	pi->outputmin = 1;

  603. 	pi->outputmax = 300;

  604. 	pi->exp = 0;

  605. 	pi->units = "";		// no units defined

  606. 	// initialize parameter 5 ("m_tone_30")

  607. 	pi = self->__commonstate.params + 5;

  608. 	pi->name = "tone";

  609. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  610. 	pi->defaultvalue = self->m_tone_30;

  611. 	pi->defaultref = 0;

  612. 	pi->hasinputminmax = false;

  613. 	pi->inputmin = 0; 

  614. 	pi->inputmax = 1;

  615. 	pi->hasminmax = true;

  616. 	pi->outputmin = 500;

  617. 	pi->outputmax = 6000;

  618. 	pi->exp = 0;

  619. 	pi->units = "";		// no units defined

  620. 	// initialize parameter 6 ("m_shimmer_31")

  621. 	pi = self->__commonstate.params + 6;

  622. 	pi->name = "shimmer";

  623. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  624. 	pi->defaultvalue = self->m_shimmer_31;

  625. 	pi->defaultref = 0;

  626. 	pi->hasinputminmax = false;

  627. 	pi->inputmin = 0; 

  628. 	pi->inputmax = 1;

  629. 	pi->hasminmax = true;

  630. 	pi->outputmin = 0;

  631. 	pi->outputmax = 100;

  632. 	pi->exp = 0;

  633. 	pi->units = "";		// no units defined

  634. 	// initialize parameter 7 ("m_ratio_32")

  635. 	pi = self->__commonstate.params + 7;

  636. 	pi->name = "ratio";

  637. 	pi->paramtype = GENLIB_PARAMTYPE_FLOAT;

  638. 	pi->defaultvalue = self->m_ratio_32;

  639. 	pi->defaultref = 0;

  640. 	pi->hasinputminmax = false;

  641. 	pi->inputmin = 0; 

  642. 	pi->inputmax = 1;

  643. 	pi->hasminmax = true;

  644. 	pi->outputmin = 0.5;

  645. 	pi->outputmax = 2;

  646. 	pi->exp = 0;

  647. 	pi->units = "";		// no units defined

  648. 	

  649. 	return self;

  650. }

  651. 

  652. /// Release all resources and memory used by a State object:

  653. 

  654. void destroy(CommonState *cself) { 

  655. 	State * self = (State *)cself;

  656. 	genlib_sysmem_freeptr(cself->params);

  657. 		

  658. 	delete self; 

  659. }

  660. 

  661. 

  662. } // gen_exported::