fi.bandpass~.pd 10.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445
  1. #N canvas 1076 342 401 151 10;
  2. #N canvas 893 236 706 387 bandpass2.coeffs 0;
  3. #X obj 313 72 clip~ 0.1 100;
  4. #X obj 298 94 sig~ 1;
  5. #X obj 298 116 /~;
  6. #X obj 283 138 *~;
  7. #X obj 283 160 *~ 0.5;
  8. #X obj 12 259 sig~ 1;
  9. #X obj 12 281 /~;
  10. #X obj 122 297 *~;
  11. #X obj 242 297 *~;
  12. #X obj 302 297 *~;
  13. #X obj 317 231 *~ -2;
  14. #X obj 377 231 sig~ 1;
  15. #X obj 377 253 -~;
  16. #X obj 362 297 *~;
  17. #X obj 57 265 +~ 1;
  18. #X text 363 162 w0 = 2*pi*f0*Fs;
  19. #X text 363 182 alpha = sin(w0)/(2*Q);
  20. #X text 527 237 a2 = 1 - alpha;
  21. #X text 527 217 a1 = -2*cos(w0);
  22. #X text 392 72 H(z) = -----------------------------------------;
  23. #X text 392 32 Audio-Cookbook:;
  24. #X text 392 112 http://musicdsp.org/files/Audio-EQ-Cookbook.txt;
  25. #X text 434 87 1 + (a1/a0)*z^(-1) + (a2/a0)*z^(-2);
  26. #X text 434 57 (b0/a0) + (b1/a0)*z^(-1) + (b2/a0)*z^(-2);
  27. #X text 527 197 a0 = 1 + alpha;
  28. #X text 517 177 LPF:;
  29. #X text 527 257 b0 = alpha;
  30. #X text 527 277 b1 = 0;
  31. #X text 527 297 b2 = -alpha;
  32. #X obj 257 253 *~ -1;
  33. #X obj 182 297 sig~ 0;
  34. #X obj 313 50 inlet~;
  35. #X obj 122 319 outlet~;
  36. #X obj 182 319 outlet~;
  37. #X obj 242 319 outlet~;
  38. #X obj 302 319 outlet~;
  39. #X obj 362 319 outlet~;
  40. #X obj 42 63 clip~ 20 20000;
  41. #X obj 42 41 inlet~;
  42. #X obj 42 106 *~ 6.28319;
  43. #X obj 42 84 /~ 44100;
  44. #X obj 140 47 loadbang;
  45. #X obj 140 68 samplerate~;
  46. #X obj 152 122 expr~ sin($v1);
  47. #X obj 42 215 expr~ cos($v1);
  48. #X text 122 339 (O1) b0;
  49. #X text 182 339 (O2) b1;
  50. #X text 242 339 (O3) b2;
  51. #X text 302 339 (O4) a1;
  52. #X text 362 339 (O5) a2;
  53. #X connect 0 0 2 1;
  54. #X connect 1 0 2 0;
  55. #X connect 2 0 3 1;
  56. #X connect 3 0 4 0;
  57. #X connect 4 0 12 1;
  58. #X connect 4 0 14 0;
  59. #X connect 4 0 29 0;
  60. #X connect 4 0 7 1;
  61. #X connect 5 0 6 0;
  62. #X connect 6 0 7 0;
  63. #X connect 6 0 8 0;
  64. #X connect 6 0 9 0;
  65. #X connect 6 0 13 0;
  66. #X connect 7 0 32 0;
  67. #X connect 8 0 34 0;
  68. #X connect 9 0 35 0;
  69. #X connect 10 0 9 1;
  70. #X connect 11 0 12 0;
  71. #X connect 12 0 13 1;
  72. #X connect 13 0 36 0;
  73. #X connect 14 0 6 1;
  74. #X connect 29 0 8 1;
  75. #X connect 30 0 33 0;
  76. #X connect 31 0 0 0;
  77. #X connect 37 0 40 0;
  78. #X connect 38 0 37 0;
  79. #X connect 39 0 43 0;
  80. #X connect 39 0 44 0;
  81. #X connect 40 0 39 0;
  82. #X connect 41 0 42 0;
  83. #X connect 42 0 40 1;
  84. #X connect 43 0 3 0;
  85. #X connect 44 0 10 0;
  86. #X restore 82 52 pd bandpass2.coeffs;
  87. #X obj 12 109 outlet~;
  88. #N canvas 776 547 365 190 @hv_obj 0;
  89. #X obj 12 31 inlet~;
  90. #N canvas 1097 522 303 331 zeros 0;
  91. #X obj 12 217 czero~;
  92. #X obj 12 273 czero~;
  93. #X obj 12 299 outlet~;
  94. #X obj 75 299 outlet~;
  95. #X obj 12 31 inlet~;
  96. #X obj 47 122 *~ -1;
  97. #X obj 47 143 *~ 0.5;
  98. #X obj 132 58 *~;
  99. #X obj 132 92 -~;
  100. #X obj 187 78 *~ 4;
  101. #X obj 187 57 *~;
  102. #X obj 132 113 abs~;
  103. #X obj 132 155 *~ 0.5;
  104. #X obj 132 176 /~;
  105. #N canvas 773 235 262 212 location 0;
  106. #X obj 12 12 inlet~;
  107. #X obj 62 12 inlet~;
  108. #X obj 207 12 inlet~;
  109. #X obj 12 174 outlet~;
  110. #X obj 72 174 outlet~;
  111. #X obj 132 174 outlet~;
  112. #X obj 192 174 outlet~;
  113. #N canvas 725 189 180 137 gte 0;
  114. #X obj 117 12 inlet~;
  115. #X obj 12 12 inlet~;
  116. #X obj 12 100 outlet~;
  117. #N canvas 758 270 144 76 @hv_obj 0;
  118. #X obj 62 12 inlet~;
  119. #X obj 12 12 inlet~;
  120. #X obj 12 34 outlet~;
  121. #X connect 1 0 2 0;
  122. #X restore 12 78 pd @hv_obj __and~f;
  123. #X obj 117 56 sig~ 1;
  124. #N canvas 945 362 136 178 @hv_obj 0;
  125. #X obj 12 56 -~;
  126. #X obj 12 78 clip~ -1e-37 0;
  127. #X obj 12 12 inlet~;
  128. #X obj 62 12 inlet~;
  129. #X obj 12 144 outlet~;
  130. #X obj 12 122 *~ 1e+37;
  131. #X obj 12 34 min~;
  132. #X obj 12 100 +~ 1e-37;
  133. #X connect 0 0 1 0;
  134. #X connect 1 0 7 0;
  135. #X connect 2 0 6 0;
  136. #X connect 3 0 6 1;
  137. #X connect 3 0 0 1;
  138. #X connect 5 0 4 0;
  139. #X connect 6 0 0 0;
  140. #X connect 7 0 5 0;
  141. #X restore 12 34 pd @hv_obj __gte~f;
  142. #X connect 0 0 5 1;
  143. #X connect 1 0 5 0;
  144. #X connect 3 0 2 0;
  145. #X connect 4 0 3 1;
  146. #X connect 5 0 3 0;
  147. #X restore 62 49 pd gte;
  148. #N canvas 845 375 187 138 lte 0;
  149. #X obj 117 12 inlet~;
  150. #X obj 12 12 inlet~;
  151. #X obj 12 100 outlet~;
  152. #N canvas 467 216 140 82 @hv_obj 0;
  153. #X obj 72 12 inlet~;
  154. #X obj 12 12 inlet~;
  155. #X obj 12 39 outlet~;
  156. #X connect 1 0 2 0;
  157. #X restore 12 78 pd @hv_obj __and~f;
  158. #X obj 117 56 sig~ 1;
  159. #N canvas 715 101 137 184 @hv_obj 0;
  160. #X obj 12 56 -~;
  161. #X obj 12 78 clip~ -1e-37 0;
  162. #X obj 12 12 inlet~;
  163. #X obj 62 12 inlet~;
  164. #X obj 12 144 outlet~;
  165. #X obj 12 122 *~ 1e+37;
  166. #X obj 12 34 min~;
  167. #X obj 12 100 +~ 1e-37;
  168. #X connect 0 0 1 0;
  169. #X connect 1 0 7 0;
  170. #X connect 2 0 6 0;
  171. #X connect 2 0 0 1;
  172. #X connect 3 0 6 1;
  173. #X connect 5 0 4 0;
  174. #X connect 6 0 0 0;
  175. #X connect 7 0 5 0;
  176. #X restore 12 34 pd @hv_obj __lte~f;
  177. #X connect 0 0 5 1;
  178. #X connect 1 0 5 0;
  179. #X connect 3 0 2 0;
  180. #X connect 4 0 3 1;
  181. #X connect 5 0 3 0;
  182. #X restore 127 49 pd lte;
  183. #X obj 12 152 +~;
  184. #X obj 160 22 sig~ 0;
  185. #X obj 147 125 *~;
  186. #X obj 192 125 *~;
  187. #X obj 132 152 -~;
  188. #X obj 192 152 *~ -1;
  189. #X connect 0 0 9 0;
  190. #X connect 0 0 13 0;
  191. #X connect 1 0 7 0;
  192. #X connect 1 0 8 0;
  193. #X connect 2 0 11 1;
  194. #X connect 2 0 12 1;
  195. #X connect 7 0 11 0;
  196. #X connect 8 0 12 0;
  197. #X connect 9 0 3 0;
  198. #X connect 10 0 7 1;
  199. #X connect 10 0 8 1;
  200. #X connect 11 0 9 1;
  201. #X connect 11 0 13 1;
  202. #X connect 12 0 4 0;
  203. #X connect 12 0 14 0;
  204. #X connect 13 0 5 0;
  205. #X connect 14 0 6 0;
  206. #X restore 34 190 pd location;
  207. #X obj 132 134 sqrt~;
  208. #X obj 47 164 /~;
  209. #X obj 252 203 inlet;
  210. #X text 62 11 b0;
  211. #X text 132 11 b1;
  212. #X text 202 11 b2;
  213. #X obj 202 31 inlet~;
  214. #X obj 132 31 inlet~;
  215. #X obj 62 31 inlet~;
  216. #X text 252 183 clear;
  217. #X connect 0 0 1 0;
  218. #X connect 0 1 1 1;
  219. #X connect 1 0 2 0;
  220. #X connect 1 1 3 0;
  221. #X connect 4 0 0 0;
  222. #X connect 5 0 6 0;
  223. #X connect 6 0 16 0;
  224. #X connect 7 0 8 0;
  225. #X connect 8 0 11 0;
  226. #X connect 8 0 14 1;
  227. #X connect 9 0 8 1;
  228. #X connect 10 0 9 0;
  229. #X connect 11 0 15 0;
  230. #X connect 12 0 13 0;
  231. #X connect 13 0 14 2;
  232. #X connect 14 0 0 2;
  233. #X connect 14 1 0 3;
  234. #X connect 14 2 1 2;
  235. #X connect 14 3 1 3;
  236. #X connect 15 0 12 0;
  237. #X connect 16 0 14 0;
  238. #X connect 17 0 0 0;
  239. #X connect 17 0 1 0;
  240. #X connect 21 0 10 1;
  241. #X connect 22 0 5 0;
  242. #X connect 22 0 7 1;
  243. #X connect 22 0 7 0;
  244. #X connect 23 0 10 0;
  245. #X connect 23 0 13 1;
  246. #X connect 23 0 16 1;
  247. #X restore 12 89 pd zeros;
  248. #X obj 12 52 *~;
  249. #N canvas 1083 390 288 282 poles 0;
  250. #X obj 12 181 cpole~;
  251. #X obj 12 228 cpole~;
  252. #X obj 12 249 outlet~;
  253. #X obj 12 31 inlet~;
  254. #X obj 62 31 inlet~;
  255. #N canvas 739 258 279 198 location 0;
  256. #X obj 12 12 inlet~;
  257. #X obj 127 12 inlet~;
  258. #X obj 222 49 inlet~;
  259. #X obj 12 155 outlet~;
  260. #X obj 62 155 outlet~;
  261. #X obj 112 155 outlet~;
  262. #X obj 172 155 outlet~;
  263. #N canvas 796 341 183 142 gte 0;
  264. #X obj 117 12 inlet~;
  265. #X obj 12 12 inlet~;
  266. #X obj 12 100 outlet~;
  267. #N canvas 679 326 140 75 @hv_obj 0;
  268. #X obj 72 12 inlet~;
  269. #X obj 12 12 inlet~;
  270. #X obj 12 34 outlet~;
  271. #X connect 1 0 2 0;
  272. #X restore 12 78 pd @hv_obj __and~f;
  273. #X obj 117 56 sig~ 1;
  274. #N canvas 754 439 132 184 @hv_obj 0;
  275. #X obj 12 56 -~;
  276. #X obj 12 78 clip~ -1e-37 0;
  277. #X obj 12 12 inlet~;
  278. #X obj 62 12 inlet~;
  279. #X obj 12 144 outlet~;
  280. #X obj 12 122 *~ 1e+37;
  281. #X obj 12 34 min~;
  282. #X obj 12 100 +~ 1e-37;
  283. #X connect 0 0 1 0;
  284. #X connect 1 0 7 0;
  285. #X connect 2 0 6 0;
  286. #X connect 3 0 6 1;
  287. #X connect 3 0 0 1;
  288. #X connect 5 0 4 0;
  289. #X connect 6 0 0 0;
  290. #X connect 7 0 5 0;
  291. #X restore 12 34 pd @hv_obj __gte~f;
  292. #X connect 0 0 5 1;
  293. #X connect 1 0 5 0;
  294. #X connect 3 0 2 0;
  295. #X connect 4 0 3 1;
  296. #X connect 5 0 3 0;
  297. #X restore 127 39 pd gte;
  298. #N canvas 816 493 187 138 lte 0;
  299. #X obj 117 12 inlet~;
  300. #X obj 12 12 inlet~;
  301. #X obj 12 100 outlet~;
  302. #N canvas 467 216 142 76 @hv_obj 0;
  303. #X obj 72 12 inlet~;
  304. #X obj 12 12 inlet~;
  305. #X obj 12 34 outlet~;
  306. #X connect 1 0 2 0;
  307. #X restore 12 78 pd @hv_obj __and~f;
  308. #X obj 117 56 sig~ 1;
  309. #N canvas 715 101 131 178 @hv_obj 0;
  310. #X obj 12 56 -~;
  311. #X obj 12 78 clip~ -1e-37 0;
  312. #X obj 12 12 inlet~;
  313. #X obj 62 12 inlet~;
  314. #X obj 12 144 outlet~;
  315. #X obj 12 122 *~ 1e+37;
  316. #X obj 12 34 min~;
  317. #X obj 12 100 +~ 1e-37;
  318. #X connect 0 0 1 0;
  319. #X connect 1 0 7 0;
  320. #X connect 2 0 6 0;
  321. #X connect 2 0 0 1;
  322. #X connect 3 0 6 1;
  323. #X connect 5 0 4 0;
  324. #X connect 6 0 0 0;
  325. #X connect 7 0 5 0;
  326. #X restore 12 34 pd @hv_obj __lte~f;
  327. #X connect 0 0 5 1;
  328. #X connect 1 0 5 0;
  329. #X connect 3 0 2 0;
  330. #X connect 4 0 3 1;
  331. #X connect 5 0 3 0;
  332. #X restore 172 39 pd lte;
  333. #X obj 12 83 +~;
  334. #X obj 205 12 sig~ 0;
  335. #X obj 127 66 *~;
  336. #X obj 172 66 *~;
  337. #X obj 112 133 -~;
  338. #X obj 172 133 *~ -1;
  339. #X connect 0 0 9 0;
  340. #X connect 0 0 13 0;
  341. #X connect 1 0 7 0;
  342. #X connect 1 0 8 0;
  343. #X connect 2 0 11 1;
  344. #X connect 2 0 12 1;
  345. #X connect 7 0 11 0;
  346. #X connect 8 0 12 0;
  347. #X connect 9 0 3 0;
  348. #X connect 10 0 7 1;
  349. #X connect 10 0 8 1;
  350. #X connect 11 0 9 1;
  351. #X connect 11 0 13 1;
  352. #X connect 12 0 4 0;
  353. #X connect 12 0 14 0;
  354. #X connect 13 0 5 0;
  355. #X connect 14 0 6 0;
  356. #X restore 34 155 pd location;
  357. #X obj 72 78 *~ 0.5;
  358. #X obj 122 57 *~;
  359. #X obj 122 78 +~;
  360. #X obj 182 64 *~ 4;
  361. #X obj 122 99 abs~;
  362. #X obj 122 141 *~ 0.5;
  363. #X obj 122 120 sqrt~;
  364. #X obj 232 167 inlet;
  365. #X text 182 11 a2;
  366. #X text 122 11 a1;
  367. #X obj 122 31 inlet~;
  368. #X obj 182 31 inlet~;
  369. #X text 232 147 clear;
  370. #X connect 0 0 1 0;
  371. #X connect 0 1 1 1;
  372. #X connect 1 0 2 0;
  373. #X connect 3 0 0 0;
  374. #X connect 4 0 0 1;
  375. #X connect 5 0 0 2;
  376. #X connect 5 1 0 3;
  377. #X connect 5 2 1 2;
  378. #X connect 5 3 1 3;
  379. #X connect 6 0 5 0;
  380. #X connect 7 0 8 0;
  381. #X connect 8 0 5 1;
  382. #X connect 8 0 10 0;
  383. #X connect 9 0 8 1;
  384. #X connect 10 0 12 0;
  385. #X connect 11 0 5 2;
  386. #X connect 12 0 11 0;
  387. #X connect 13 0 0 0;
  388. #X connect 13 0 1 0;
  389. #X connect 16 0 6 0;
  390. #X connect 16 0 7 0;
  391. #X connect 16 0 7 1;
  392. #X connect 17 0 9 0;
  393. #X restore 12 133 pd poles;
  394. #X obj 12 159 outlet~;
  395. #X obj 212 119 *~ -1;
  396. #X obj 262 119 *~ -1;
  397. #X obj 312 75 inlet;
  398. #X obj 62 31 inlet~;
  399. #X obj 112 31 inlet~;
  400. #X obj 162 31 inlet~;
  401. #X obj 212 31 inlet~;
  402. #X obj 262 31 inlet~;
  403. #X text 62 11 b0;
  404. #X text 112 11 b1;
  405. #X text 162 11 b2;
  406. #X text 212 11 a1;
  407. #X text 262 11 a2;
  408. #X text 312 55 clear;
  409. #X connect 0 0 2 0;
  410. #X connect 1 0 3 0;
  411. #X connect 1 1 3 1;
  412. #X connect 2 0 1 0;
  413. #X connect 3 0 4 0;
  414. #X connect 5 0 3 2;
  415. #X connect 6 0 3 3;
  416. #X connect 7 0 1 4;
  417. #X connect 7 0 3 4;
  418. #X connect 8 0 2 1;
  419. #X connect 8 0 1 1;
  420. #X connect 9 0 1 2;
  421. #X connect 10 0 1 3;
  422. #X connect 11 0 5 0;
  423. #X connect 12 0 6 0;
  424. #X restore 12 88 pd @hv_obj biquad;
  425. #X obj 12 31 inlet~;
  426. #X obj 243 51 inlet;
  427. #X msg 243 72 clear;
  428. #X obj 82 31 inlet~;
  429. #X obj 193 31 inlet~;
  430. #X text 12 11 (I1) Input;
  431. #X text 82 11 (I2) Frequency;
  432. #X text 193 11 (I3) Q Factor;
  433. #X text 243 31 (I4) Clear internal state;
  434. #X text 12 129 (O1) Output;
  435. #X connect 0 0 2 1;
  436. #X connect 0 1 2 2;
  437. #X connect 0 2 2 3;
  438. #X connect 0 3 2 4;
  439. #X connect 0 4 2 5;
  440. #X connect 2 0 1 0;
  441. #X connect 3 0 2 0;
  442. #X connect 4 0 5 0;
  443. #X connect 5 0 2 6;
  444. #X connect 6 0 0 0;
  445. #X connect 7 0 0 1;