Audio plugin host https://kx.studio/carla
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.

636 lines
18KB

  1. /*
  2. * ZaMultiComp mono multiband compressor
  3. * Copyright (C) 2014 Damien Zammit <damien@zamaudio.com>
  4. *
  5. * This program is free software; you can redistribute it and/or
  6. * modify it under the terms of the GNU General Public License as
  7. * published by the Free Software Foundation; either version 2 of
  8. * the License, or any later version.
  9. *
  10. * This program is distributed in the hope that it will be useful,
  11. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. * GNU General Public License for more details.
  14. *
  15. * For a full copy of the GNU General Public License see the doc/GPL.txt file.
  16. */
  17. #include "ZaMultiCompPlugin.hpp"
  18. START_NAMESPACE_DISTRHO
  19. // -----------------------------------------------------------------------
  20. ZaMultiCompPlugin::ZaMultiCompPlugin()
  21. : Plugin(paramCount, 1, 0) // 1 program, 0 states
  22. {
  23. // set default values
  24. d_setProgram(0);
  25. // reset
  26. d_deactivate();
  27. }
  28. ZaMultiCompPlugin::~ZaMultiCompPlugin()
  29. {
  30. }
  31. // -----------------------------------------------------------------------
  32. // Init
  33. void ZaMultiCompPlugin::d_initParameter(uint32_t index, Parameter& parameter)
  34. {
  35. switch (index)
  36. {
  37. case paramAttack:
  38. parameter.hints = PARAMETER_IS_AUTOMABLE;
  39. parameter.name = "Attack";
  40. parameter.symbol = "att";
  41. parameter.unit = "ms";
  42. parameter.ranges.def = 10.0f;
  43. parameter.ranges.min = 0.1f;
  44. parameter.ranges.max = 100.0f;
  45. break;
  46. case paramRelease:
  47. parameter.hints = PARAMETER_IS_AUTOMABLE;
  48. parameter.name = "Release";
  49. parameter.symbol = "rel";
  50. parameter.unit = "ms";
  51. parameter.ranges.def = 80.0f;
  52. parameter.ranges.min = 1.0f;
  53. parameter.ranges.max = 500.0f;
  54. break;
  55. case paramKnee:
  56. parameter.hints = PARAMETER_IS_AUTOMABLE;
  57. parameter.name = "Knee";
  58. parameter.symbol = "kn";
  59. parameter.unit = "dB";
  60. parameter.ranges.def = 0.0f;
  61. parameter.ranges.min = 0.0f;
  62. parameter.ranges.max = 9.0f;
  63. break;
  64. case paramRatio:
  65. parameter.hints = PARAMETER_IS_AUTOMABLE;
  66. parameter.name = "Ratio";
  67. parameter.symbol = "rat";
  68. parameter.unit = " ";
  69. parameter.ranges.def = 4.0f;
  70. parameter.ranges.min = 1.0f;
  71. parameter.ranges.max = 20.0f;
  72. break;
  73. case paramThresh:
  74. parameter.hints = PARAMETER_IS_AUTOMABLE;
  75. parameter.name = "Threshold";
  76. parameter.symbol = "thr";
  77. parameter.unit = "dB";
  78. parameter.ranges.def = -16.0f;
  79. parameter.ranges.min = -80.0f;
  80. parameter.ranges.max = 0.0f;
  81. break;
  82. case paramMakeup1:
  83. parameter.hints = PARAMETER_IS_AUTOMABLE;
  84. parameter.name = "Makeup 1";
  85. parameter.symbol = "mak1";
  86. parameter.unit = "dB";
  87. parameter.ranges.def = 0.0f;
  88. parameter.ranges.min = 0.0f;
  89. parameter.ranges.max = 30.0f;
  90. break;
  91. case paramMakeup2:
  92. parameter.hints = PARAMETER_IS_AUTOMABLE;
  93. parameter.name = "Makeup 2";
  94. parameter.symbol = "mak2";
  95. parameter.unit = "dB";
  96. parameter.ranges.def = 0.0f;
  97. parameter.ranges.min = 0.0f;
  98. parameter.ranges.max = 30.0f;
  99. break;
  100. case paramMakeup3:
  101. parameter.hints = PARAMETER_IS_AUTOMABLE;
  102. parameter.name = "Makeup 3";
  103. parameter.symbol = "mak3";
  104. parameter.unit = "dB";
  105. parameter.ranges.def = 0.0f;
  106. parameter.ranges.min = 0.0f;
  107. parameter.ranges.max = 30.0f;
  108. break;
  109. case paramGainR1:
  110. parameter.hints = PARAMETER_IS_OUTPUT;
  111. parameter.name = "Gain Reduction 1";
  112. parameter.symbol = "gr1";
  113. parameter.unit = "dB";
  114. parameter.ranges.def = 0.0f;
  115. parameter.ranges.min = 0.0f;
  116. parameter.ranges.max = 20.0f;
  117. break;
  118. case paramGainR2:
  119. parameter.hints = PARAMETER_IS_OUTPUT;
  120. parameter.name = "Gain Reduction 2";
  121. parameter.symbol = "gr2";
  122. parameter.unit = "dB";
  123. parameter.ranges.def = 0.0f;
  124. parameter.ranges.min = 0.0f;
  125. parameter.ranges.max = 20.0f;
  126. break;
  127. case paramGainR3:
  128. parameter.hints = PARAMETER_IS_OUTPUT;
  129. parameter.name = "Gain Reduction 3";
  130. parameter.symbol = "gr3";
  131. parameter.unit = "dB";
  132. parameter.ranges.def = 0.0f;
  133. parameter.ranges.min = 0.0f;
  134. parameter.ranges.max = 20.0f;
  135. break;
  136. case paramXover1:
  137. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_LOGARITHMIC;
  138. parameter.name = "Crossover freq 1";
  139. parameter.symbol = "xover1";
  140. parameter.unit = "Hz";
  141. parameter.ranges.def = 250.0f;
  142. parameter.ranges.min = 20.0f;
  143. parameter.ranges.max = 1400.0f;
  144. break;
  145. case paramXover2:
  146. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_LOGARITHMIC;
  147. parameter.name = "Crossover freq 2";
  148. parameter.symbol = "xover2";
  149. parameter.unit = "Hz";
  150. parameter.ranges.def = 1400.0f;
  151. parameter.ranges.min = 1400.0f;
  152. parameter.ranges.max = 14000.0f;
  153. break;
  154. case paramToggle1:
  155. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  156. parameter.name = "ZamComp 1 ON";
  157. parameter.symbol = "toggle1";
  158. parameter.unit = " ";
  159. parameter.ranges.def = 0.0f;
  160. parameter.ranges.min = 0.0f;
  161. parameter.ranges.max = 1.0f;
  162. break;
  163. case paramToggle2:
  164. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  165. parameter.name = "ZamComp 2 ON";
  166. parameter.symbol = "toggle2";
  167. parameter.unit = " ";
  168. parameter.ranges.def = 0.0f;
  169. parameter.ranges.min = 0.0f;
  170. parameter.ranges.max = 1.0f;
  171. break;
  172. case paramToggle3:
  173. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  174. parameter.name = "ZamComp 3 ON";
  175. parameter.symbol = "toggle3";
  176. parameter.unit = " ";
  177. parameter.ranges.def = 0.0f;
  178. parameter.ranges.min = 0.0f;
  179. parameter.ranges.max = 1.0f;
  180. break;
  181. case paramListen1:
  182. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  183. parameter.name = "Listen 1";
  184. parameter.symbol = "listen1";
  185. parameter.unit = " ";
  186. parameter.ranges.def = 0.0f;
  187. parameter.ranges.min = 0.0f;
  188. parameter.ranges.max = 1.0f;
  189. break;
  190. case paramListen2:
  191. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  192. parameter.name = "Listen 2";
  193. parameter.symbol = "listen2";
  194. parameter.unit = " ";
  195. parameter.ranges.def = 0.0f;
  196. parameter.ranges.min = 0.0f;
  197. parameter.ranges.max = 1.0f;
  198. break;
  199. case paramListen3:
  200. parameter.hints = PARAMETER_IS_AUTOMABLE | PARAMETER_IS_BOOLEAN;
  201. parameter.name = "Listen 3";
  202. parameter.symbol = "listen3";
  203. parameter.unit = " ";
  204. parameter.ranges.def = 0.0f;
  205. parameter.ranges.min = 0.0f;
  206. parameter.ranges.max = 1.0f;
  207. break;
  208. case paramGlobalGain:
  209. parameter.hints = PARAMETER_IS_AUTOMABLE;
  210. parameter.name = "Master Trim";
  211. parameter.symbol = "globalgain";
  212. parameter.unit = "dB";
  213. parameter.ranges.def = 0.0f;
  214. parameter.ranges.min = -12.0f;
  215. parameter.ranges.max = 12.0f;
  216. break;
  217. case paramOutputLevel:
  218. parameter.hints = PARAMETER_IS_OUTPUT;
  219. parameter.name = "Output Level";
  220. parameter.symbol = "outlevel";
  221. parameter.unit = "dB";
  222. parameter.ranges.def = -45.0f;
  223. parameter.ranges.min = -45.0f;
  224. parameter.ranges.max = 20.0f;
  225. break;
  226. }
  227. }
  228. void ZaMultiCompPlugin::d_initProgramName(uint32_t index, d_string& programName)
  229. {
  230. if (index != 0)
  231. return;
  232. programName = "Default";
  233. }
  234. // -----------------------------------------------------------------------
  235. // Internal data
  236. float ZaMultiCompPlugin::d_getParameterValue(uint32_t index) const
  237. {
  238. switch (index)
  239. {
  240. case paramAttack:
  241. return attack;
  242. break;
  243. case paramRelease:
  244. return release;
  245. break;
  246. case paramKnee:
  247. return knee;
  248. break;
  249. case paramRatio:
  250. return ratio;
  251. break;
  252. case paramThresh:
  253. return thresdb;
  254. break;
  255. case paramMakeup1:
  256. return makeup[0];
  257. break;
  258. case paramMakeup2:
  259. return makeup[1];
  260. break;
  261. case paramMakeup3:
  262. return makeup[2];
  263. break;
  264. case paramGainR1:
  265. return gainr[0];
  266. break;
  267. case paramGainR2:
  268. return gainr[1];
  269. break;
  270. case paramGainR3:
  271. return gainr[2];
  272. break;
  273. case paramXover1:
  274. return xover1;
  275. break;
  276. case paramXover2:
  277. return xover2;
  278. break;
  279. case paramToggle1:
  280. return toggle[0];
  281. break;
  282. case paramToggle2:
  283. return toggle[1];
  284. break;
  285. case paramToggle3:
  286. return toggle[2];
  287. break;
  288. case paramListen1:
  289. return listen[0];
  290. break;
  291. case paramListen2:
  292. return listen[1];
  293. break;
  294. case paramListen3:
  295. return listen[2];
  296. break;
  297. case paramGlobalGain:
  298. return globalgain;
  299. break;
  300. case paramOutputLevel:
  301. return outlevel;
  302. break;
  303. default:
  304. return 0.0f;
  305. }
  306. }
  307. void ZaMultiCompPlugin::d_setParameterValue(uint32_t index, float value)
  308. {
  309. switch (index)
  310. {
  311. case paramAttack:
  312. attack = value;
  313. break;
  314. case paramRelease:
  315. release = value;
  316. break;
  317. case paramKnee:
  318. knee = value;
  319. break;
  320. case paramRatio:
  321. ratio = value;
  322. break;
  323. case paramThresh:
  324. thresdb = value;
  325. break;
  326. case paramMakeup1:
  327. makeup[0] = value;
  328. break;
  329. case paramMakeup2:
  330. makeup[1] = value;
  331. break;
  332. case paramMakeup3:
  333. makeup[2] = value;
  334. break;
  335. case paramGainR1:
  336. gainr[0] = value;
  337. break;
  338. case paramGainR2:
  339. gainr[1] = value;
  340. break;
  341. case paramGainR3:
  342. gainr[2] = value;
  343. break;
  344. case paramXover1:
  345. xover1 = value;
  346. break;
  347. case paramXover2:
  348. xover2 = value;
  349. break;
  350. case paramToggle1:
  351. toggle[0] = value;
  352. if (value == 0.f)
  353. gainr[0] = 0.f;
  354. break;
  355. case paramToggle2:
  356. toggle[1] = value;
  357. if (value == 0.f)
  358. gainr[1] = 0.f;
  359. break;
  360. case paramToggle3:
  361. toggle[2] = value;
  362. if (value == 0.f)
  363. gainr[2] = 0.f;
  364. break;
  365. case paramListen1:
  366. listen[0] = value;
  367. if (value == 0.f)
  368. gainr[0] = 0.f;
  369. break;
  370. case paramListen2:
  371. listen[1] = value;
  372. if (value == 0.f)
  373. gainr[1] = 0.f;
  374. break;
  375. case paramListen3:
  376. listen[2] = value;
  377. if (value == 0.f)
  378. gainr[2] = 0.f;
  379. break;
  380. case paramGlobalGain:
  381. globalgain = value;
  382. break;
  383. case paramOutputLevel:
  384. outlevel = value;
  385. break;
  386. }
  387. }
  388. void ZaMultiCompPlugin::d_setProgram(uint32_t index)
  389. {
  390. if (index != 0)
  391. return;
  392. /* Default parameter values */
  393. attack = 10.0f;
  394. release = 80.0f;
  395. knee = 0.0f;
  396. ratio = 4.0f;
  397. thresdb = -16.0f;
  398. makeup[0] = 0.0f;
  399. makeup[1] = 0.0f;
  400. makeup[2] = 0.0f;
  401. gainr[0] = 0.0f;
  402. gainr[1] = 0.0f;
  403. gainr[2] = 0.0f;
  404. xover1 = 250.0f;
  405. xover2 = 1400.0f;
  406. toggle[0] = 0.0f;
  407. toggle[1] = 0.0f;
  408. toggle[2] = 0.0f;
  409. listen[0] = 0.0f;
  410. listen[1] = 0.0f;
  411. listen[2] = 0.0f;
  412. globalgain = 0.0f;
  413. outlevel = -45.0f;
  414. /* Default variable values */
  415. /* reset filter values */
  416. d_activate();
  417. }
  418. // -----------------------------------------------------------------------
  419. // Process
  420. void ZaMultiCompPlugin::d_activate()
  421. {
  422. int i;
  423. for (i = 0; i < MAX_COMP; i++) {
  424. old_yl[i]=old_y1[i]=0.f;
  425. }
  426. for (i = 0; i < MAX_FILT; i++) {
  427. a0[i] = a1[i] = a2[i] = 0.f;
  428. b1[i] = b2[i] = 0.f;
  429. w1[i] = w2[i] = 0.f;
  430. z1[i] = z2[i] = 0.f;
  431. }
  432. }
  433. void ZaMultiCompPlugin::d_deactivate()
  434. {
  435. // all values to zero
  436. }
  437. float ZaMultiCompPlugin::run_filter(int i, float in)
  438. {
  439. in = sanitize_denormal(in);
  440. w1[i] = sanitize_denormal(w1[i]);
  441. w2[i] = sanitize_denormal(w2[i]);
  442. z1[i] = sanitize_denormal(z1[i]);
  443. z2[i] = sanitize_denormal(z2[i]);
  444. float out = in * a0[i] + w1[i] * a1[i] + w2[i] * a2[i]
  445. - z1[i] * b1[i] - z2[i] * b2[i];
  446. out = sanitize_denormal(out);
  447. w2[i] = w1[i];
  448. z2[i] = z1[i];
  449. w1[i] = in;
  450. z1[i] = out;
  451. return out;
  452. }
  453. void ZaMultiCompPlugin::set_lp_coeffs(float fc, float q, float sr, int i, float gain=1.0)
  454. {
  455. float omega=(float)(2.f*M_PI*fc/sr);
  456. float sn=sin(omega);
  457. float cs=cos(omega);
  458. float alpha=(float)(sn/(2.f*q));
  459. float inv=(float)(1.0/(1.0+alpha));
  460. a2[i] = a0[i] = (float)(gain*inv*(1.f - cs)*0.5f);
  461. a1[i] = a0[i] + a0[i];
  462. b1[i] = (float)(-2.f*cs*inv);
  463. b2[i] = (float)((1.f - alpha)*inv);
  464. }
  465. void ZaMultiCompPlugin::set_hp_coeffs(float fc, float q, float sr, int i, float gain=1.0)
  466. {
  467. float omega=(float)(2.f*M_PI*fc/sr);
  468. float sn=sin(omega);
  469. float cs=cos(omega);
  470. float alpha=(float)(sn/(2.f*q));
  471. float inv=(float)(1.f/(1.f+alpha));
  472. a0[i] = (float)(gain*inv*(1.f + cs)/2.f);
  473. a1[i] = -2.f * a0[i];
  474. a2[i] = a0[i];
  475. b1[i] = (float)(-2.f*cs*inv);
  476. b2[i] = (float)((1.f - alpha)*inv);
  477. }
  478. float ZaMultiCompPlugin::run_comp(int k, float in)
  479. {
  480. float srate = d_getSampleRate();
  481. float width=(knee-0.99f)*6.f;
  482. float attack_coeff = exp(-1000.f/(attack * srate));
  483. float release_coeff = exp(-1000.f/(release * srate));
  484. float cdb=0.f;
  485. float gain = 1.f;
  486. float xg, xl, yg, yl, y1;
  487. float out;
  488. yg=0.f;
  489. in = sanitize_denormal(in);
  490. xg = (in==0.f) ? -160.f : to_dB(fabs(in));
  491. xg = sanitize_denormal(xg);
  492. if (2.f*(xg-thresdb)<-width) {
  493. yg = xg;
  494. } else if (2.f*fabs(xg-thresdb)<=width) {
  495. yg = xg + (1.f/ratio-1.f)*(xg-thresdb+width/2.f)*(xg-thresdb+width/2.f)/(2.f*width);
  496. } else if (2.f*(xg-thresdb)>width) {
  497. yg = thresdb + (xg-thresdb)/ratio;
  498. }
  499. yg = sanitize_denormal(yg);
  500. xl = xg - yg;
  501. old_y1[k] = sanitize_denormal(old_y1[k]);
  502. old_yl[k] = sanitize_denormal(old_yl[k]);
  503. y1 = fmaxf(xl, release_coeff * old_y1[k]+(1.f-release_coeff)*xl);
  504. yl = attack_coeff * old_yl[k]+(1.f-attack_coeff)*y1;
  505. y1 = sanitize_denormal(y1);
  506. yl = sanitize_denormal(yl);
  507. cdb = -yl;
  508. gain = from_dB(cdb);
  509. gainr[k] = yl;
  510. out = in;
  511. out *= gain;
  512. old_yl[k] = yl;
  513. old_y1[k] = y1;
  514. return sanitize_denormal(out);
  515. }
  516. void ZaMultiCompPlugin::d_run(float** inputs, float** outputs, uint32_t frames)
  517. {
  518. float srate = d_getSampleRate();
  519. float max = 0.f;
  520. int tog1 = (toggle[0] > 0.5f) ? 1 : 0;
  521. int tog2 = (toggle[1] > 0.5f) ? 1 : 0;
  522. int tog3 = (toggle[2] > 0.5f) ? 1 : 0;
  523. int listen1 = (listen[0] > 0.5f) ? 1 : 0;
  524. int listen2 = (listen[1] > 0.5f) ? 1 : 0;
  525. int listen3 = (listen[2] > 0.5f) ? 1 : 0;
  526. set_lp_coeffs(xover1, ONEOVERROOT2, srate, 0);
  527. set_lp_coeffs(xover1, ONEOVERROOT2, srate, 1);
  528. set_hp_coeffs(xover1, ONEOVERROOT2, srate, 2);
  529. set_hp_coeffs(xover1, ONEOVERROOT2, srate, 3);
  530. set_lp_coeffs(xover2, ONEOVERROOT2, srate, 4);
  531. set_lp_coeffs(xover2, ONEOVERROOT2, srate, 5);
  532. set_hp_coeffs(xover2, ONEOVERROOT2, srate, 6);
  533. set_hp_coeffs(xover2, ONEOVERROOT2, srate, 7);
  534. for (uint32_t i = 0; i < frames; ++i) {
  535. float tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, fil1, fil2, fil3, fil4;
  536. float cmp1, cmp2, cmp3, in;
  537. int listenmode = 0;
  538. in = sanitize_denormal(inputs[0][i]);
  539. in = (fabs(in) < DANGER) ? in : 0.f;
  540. fil1 = run_filter(0, in);
  541. tmp1 = run_filter(1, fil1);
  542. cmp1 = (!tog1 && !listen1) ? 0.f : run_comp(0, tmp1);
  543. tmp2 = tog1 ? cmp1 * from_dB(makeup[0]) : tmp1;
  544. fil2 = run_filter(2, in);
  545. tmp3 = run_filter(3, fil2);
  546. fil3 = run_filter(4, tmp3);
  547. tmp4 = run_filter(5, fil3);
  548. cmp2 = (!tog2 && !listen2) ? 0.f : run_comp(1, tmp4);
  549. tmp3 = (tog2) ? cmp2 * from_dB(makeup[1]) : tmp4;
  550. fil4 = run_filter(6, in);
  551. tmp5 = run_filter(7, fil4);
  552. cmp3 = (!tog3 && !listen3) ? 0.f : run_comp(2, tmp5);
  553. tmp6 = (tog3) ? cmp3 * from_dB(makeup[2]) : tmp5;
  554. outputs[0][i] = 0.f;
  555. if (listen1) {
  556. listenmode = 1;
  557. outputs[0][i] += cmp1 * tog1*from_dB(makeup[0])
  558. + (1.-tog1) * tmp1;
  559. }
  560. if (listen2) {
  561. listenmode = 1;
  562. outputs[0][i] += cmp2 * tog2*from_dB(makeup[1])
  563. + (1.-tog2) * tmp4;
  564. }
  565. if (listen3) {
  566. listenmode = 1;
  567. outputs[0][i] += cmp3 * tog3*from_dB(makeup[2])
  568. + (1.-tog3) * tmp5;
  569. }
  570. if (!listenmode) {
  571. outputs[0][i] = 0.f;
  572. outputs[0][i] += tmp2;
  573. outputs[0][i] += tmp3;
  574. outputs[0][i] += tmp6;
  575. }
  576. outputs[0][i] = sanitize_denormal(outputs[0][i]);
  577. outputs[0][i] *= from_dB(globalgain);
  578. max = (fabsf(outputs[0][i]) > max) ? fabsf(outputs[0][i]) : sanitize_denormal(max);
  579. }
  580. outlevel = (max == 0.f) ? -45.f : to_dB(max);
  581. }
  582. // -----------------------------------------------------------------------
  583. Plugin* createPlugin()
  584. {
  585. return new ZaMultiCompPlugin();
  586. }
  587. // -----------------------------------------------------------------------
  588. END_NAMESPACE_DISTRHO