PageRenderTime 87ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 0ms

/_main.pd

http://github.com/djiamnot/Re-Collect
Unknown | 512 lines | 512 code | 0 blank | 0 comment | 0 complexity | 2cc916423783113150f4c25da452b78b MD5 | raw file
  1. #N canvas 108 8 911 661 10;
  2. #X declare -path .;
  3. #X declare -path ./pd;
  4. #X declare -path ./rj;
  5. #X declare -path ./abs;
  6. #X declare -path ./ext;
  7. #X declare -path ./mtl;
  8. #X obj 41 552 soundoutput;
  9. #X obj 698 26 declare -path .;
  10. #X obj 698 64 declare -path ./pd;
  11. #X obj 698 45 declare -path ./rj;
  12. #X obj 214 17 sensor_in;
  13. #X obj 87 19 soundinput;
  14. #X obj 698 83 declare -path ./abs;
  15. #X msg 317 517 sr 44100;
  16. #X obj 317 498 loadbang;
  17. #X obj 254 537 s_playtable;
  18. #N canvas 19 375 450 300 meters 0;
  19. #X obj 46 56 meter1~;
  20. #X obj 58 56 meter1~;
  21. #X obj 70 56 meter1~;
  22. #X obj 82 56 meter1~;
  23. #X obj 94 56 meter1~;
  24. #X obj 106 56 meter1~;
  25. #X obj 118 56 meter1~;
  26. #X obj 130 56 meter1~;
  27. #X obj 38 20 inlet~;
  28. #X obj 82 20 inlet~;
  29. #X obj 125 20 inlet~;
  30. #X obj 168 21 inlet~;
  31. #X obj 211 21 inlet~;
  32. #X obj 256 18 inlet~;
  33. #X obj 299 19 inlet~;
  34. #X obj 344 16 inlet~;
  35. #X connect 8 0 0 0;
  36. #X connect 9 0 1 0;
  37. #X connect 10 0 2 0;
  38. #X connect 11 0 3 0;
  39. #X connect 12 0 4 0;
  40. #X connect 13 0 5 0;
  41. #X connect 14 0 6 0;
  42. #X connect 15 0 7 0;
  43. #X restore 198 78 pd meters ------------;
  44. #X floatatom 569 252 5 0 0 0 - - -;
  45. #X obj 519 271 i;
  46. #X obj 519 253 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  47. -1 -1;
  48. #X msg 520 305 \; trigger_rec_ch\$1 bang;
  49. #X obj 547 85 until;
  50. #X msg 547 25 8;
  51. #X obj 547 106 f;
  52. #X obj 572 105 + 1;
  53. #X obj 547 44 t f b;
  54. #X msg 574 65 1;
  55. #X text 580 20 Clear arrays;
  56. #X obj 436 32 r trig1;
  57. #X obj 436 53 change;
  58. #X obj 436 74 sel 1;
  59. #X obj 436 94 f;
  60. #X obj 463 94 + 1;
  61. #X obj 436 114 % 8;
  62. #X obj 436 135 + 1;
  63. #X obj 386 88 r trig2;
  64. #X obj 386 107 change;
  65. #X obj 386 126 sel 1;
  66. #X obj 93 347 catch~ outBus1;
  67. #X obj 189 349 catch~ outBus2;
  68. #X obj 288 349 catch~ outBus3;
  69. #X obj 85 456 catch~ outBus4;
  70. #X obj 101 475 catch~ outBus5;
  71. #X obj 115 494 catch~ outBus6;
  72. #X obj 130 513 catch~ outBus7;
  73. #X obj 435 385 catch~ outBus8;
  74. #X obj 698 102 declare -path ./ext;
  75. #X msg 254 517 ch1_buf;
  76. #X msg 547 126 \; ch\$1_buf const 0;
  77. #X obj 376 587 tgl 15 0 empty trigger_rec_ch1 empty 17 7 0 10 -262144
  78. -1 -1 0 1;
  79. #X obj 394 587 tgl 15 0 empty trigger_rec_ch2 empty 17 7 0 10 -262144
  80. -1 -1 0 1;
  81. #X obj 412 587 tgl 15 0 empty trigger_rec_ch3 empty 17 7 0 10 -262144
  82. -1 -1 1 1;
  83. #X obj 430 587 tgl 15 0 empty trigger_rec_ch4 empty 17 7 0 10 -262144
  84. -1 -1 0 1;
  85. #X obj 448 587 tgl 15 0 empty trigger_rec_ch5 empty 17 7 0 10 -262144
  86. -1 -1 0 1;
  87. #X obj 466 587 tgl 15 0 empty trigger_rec_ch6 empty 17 7 0 10 -262144
  88. -1 -1 0 1;
  89. #X obj 484 587 tgl 15 0 empty trigger_rec_ch7 empty 17 7 0 10 -262144
  90. -1 -1 0 1;
  91. #X obj 502 587 tgl 15 0 empty trigger_rec_ch8 empty 17 7 0 10 -262144
  92. -1 -1 0 1;
  93. #X text 375 566 currently recording...:;
  94. #X obj 243 184 input~ ch1;
  95. #X obj 747 225 +;
  96. #X obj 747 245 == 2;
  97. #X obj 735 301 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
  98. 1;
  99. #X obj 755 205 t b f;
  100. #X obj 747 163 r trig1;
  101. #X obj 755 185 r trig2;
  102. #N canvas 62 216 675 431 presence 0;
  103. #X obj 55 53 r sonar1;
  104. #X obj 153 55 r sonar2;
  105. #X obj 256 55 r sonar3;
  106. #X obj 55 110 > 40;
  107. #X obj 55 73 t f f;
  108. #X obj 87 109 < 50;
  109. #X obj 55 135 +;
  110. #X obj 55 160 > 1;
  111. #X obj 55 183 change;
  112. #X obj 55 209 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  113. 1;
  114. #X obj 153 113 > 40;
  115. #X obj 153 76 t f f;
  116. #X obj 185 112 < 50;
  117. #X obj 153 138 +;
  118. #X obj 153 163 > 1;
  119. #X obj 153 186 change;
  120. #X obj 153 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  121. 1;
  122. #X obj 256 114 > 40;
  123. #X obj 256 77 t f f;
  124. #X obj 288 113 < 50;
  125. #X obj 256 139 +;
  126. #X obj 256 164 > 1;
  127. #X obj 256 187 change;
  128. #X obj 256 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  129. 1;
  130. #X connect 0 0 4 0;
  131. #X connect 1 0 11 0;
  132. #X connect 2 0 18 0;
  133. #X connect 3 0 6 0;
  134. #X connect 4 0 3 0;
  135. #X connect 4 1 5 0;
  136. #X connect 5 0 6 1;
  137. #X connect 6 0 7 0;
  138. #X connect 7 0 8 0;
  139. #X connect 8 0 9 0;
  140. #X connect 10 0 13 0;
  141. #X connect 11 0 10 0;
  142. #X connect 11 1 12 0;
  143. #X connect 12 0 13 1;
  144. #X connect 13 0 14 0;
  145. #X connect 14 0 15 0;
  146. #X connect 15 0 16 0;
  147. #X connect 17 0 20 0;
  148. #X connect 18 0 17 0;
  149. #X connect 18 1 19 0;
  150. #X connect 19 0 20 1;
  151. #X connect 20 0 21 0;
  152. #X connect 21 0 22 0;
  153. #X connect 22 0 23 0;
  154. #X restore 398 187 pd presence calc;
  155. #X obj 268 164 input~ ch2;
  156. #X obj 291 140 input~ ch3;
  157. #N canvas 40 353 450 300 meters 0;
  158. #X obj 46 56 meter1~;
  159. #X obj 58 56 meter1~;
  160. #X obj 70 56 meter1~;
  161. #X obj 82 56 meter1~;
  162. #X obj 94 56 meter1~;
  163. #X obj 106 56 meter1~;
  164. #X obj 118 56 meter1~;
  165. #X obj 130 56 meter1~;
  166. #X obj 38 20 inlet~;
  167. #X obj 82 20 inlet~;
  168. #X obj 125 20 inlet~;
  169. #X obj 168 21 inlet~;
  170. #X obj 211 21 inlet~;
  171. #X obj 256 18 inlet~;
  172. #X obj 299 19 inlet~;
  173. #X obj 344 16 inlet~;
  174. #X connect 8 0 0 0;
  175. #X connect 9 0 1 0;
  176. #X connect 10 0 2 0;
  177. #X connect 11 0 3 0;
  178. #X connect 12 0 4 0;
  179. #X connect 13 0 5 0;
  180. #X connect 14 0 6 0;
  181. #X connect 15 0 7 0;
  182. #X restore 265 426 pd meters ------------;
  183. #X msg 145 216 play 1 1 0;
  184. #X msg 144 241 play 1 0.5 0;
  185. #X msg 159 262 play 1 1 0;
  186. #X obj 222 46 adc~ 3 4 5;
  187. #X obj 178 564 dac~ 1 2 3;
  188. #X obj 699 123 declare -path ./mtl;
  189. #X obj 16 112 mis.record ch1;
  190. #X obj 735 413 random 3;
  191. #X obj 735 433 + 1;
  192. #X obj 746 270 change;
  193. #X msg 712 509 \; trigger_rec_ch\$1 \$2;
  194. #X obj 735 475 pack;
  195. #X obj 725 456 f;
  196. #X obj 715 360 sel 0 1;
  197. #X obj 727 567 prepend set;
  198. #X msg 725 593 3 1;
  199. #X obj 735 322 t f f;
  200. #N canvas 0 0 450 300 random 0;
  201. #X obj 58 24 r sonar1;
  202. #X obj 57 46 > 10;
  203. #X obj 55 93 sel 1;
  204. #X obj 56 69 change;
  205. #X obj 180 43 > 10;
  206. #X obj 178 90 sel 1;
  207. #X obj 179 66 change;
  208. #X obj 254 47 > 10;
  209. #X obj 252 94 sel 1;
  210. #X obj 253 70 change;
  211. #X obj 181 21 r sonar2;
  212. #X obj 254 24 r sonar3;
  213. #X obj 55 121 rand_play chan1;
  214. #X obj 176 172 rand_play chan2;
  215. #X obj 257 119 rand_play chan1;
  216. #X connect 0 0 1 0;
  217. #X connect 1 0 3 0;
  218. #X connect 2 0 12 0;
  219. #X connect 3 0 2 0;
  220. #X connect 4 0 6 0;
  221. #X connect 5 0 13 0;
  222. #X connect 6 0 5 0;
  223. #X connect 7 0 9 0;
  224. #X connect 8 0 14 0;
  225. #X connect 9 0 8 0;
  226. #X connect 10 0 4 0;
  227. #X connect 11 0 7 0;
  228. #X restore 533 404 pd random players;
  229. #N canvas 0 0 450 300 random 0;
  230. #X obj 58 24 r sonar1;
  231. #X obj 57 46 > 10;
  232. #X obj 55 93 sel 1;
  233. #X obj 56 69 change;
  234. #X obj 180 43 > 10;
  235. #X obj 178 90 sel 1;
  236. #X obj 179 66 change;
  237. #X obj 254 47 > 10;
  238. #X obj 252 94 sel 1;
  239. #X obj 253 70 change;
  240. #X obj 181 21 r sonar2;
  241. #X obj 254 24 r sonar3;
  242. #X obj 55 121 rand_play chan2;
  243. #X obj 232 149 rand_play chan2;
  244. #X obj 264 172 rand_play chan1;
  245. #X connect 0 0 1 0;
  246. #X connect 1 0 3 0;
  247. #X connect 2 0 12 0;
  248. #X connect 3 0 2 0;
  249. #X connect 4 0 6 0;
  250. #X connect 5 0 13 0;
  251. #X connect 6 0 5 0;
  252. #X connect 7 0 9 0;
  253. #X connect 8 0 14 0;
  254. #X connect 9 0 8 0;
  255. #X connect 10 0 4 0;
  256. #X connect 11 0 7 0;
  257. #X restore 534 425 pd random players;
  258. #X obj 602 188 metro 3000;
  259. #X obj 603 218 t b b;
  260. #X obj 666 246 + 1000;
  261. #X obj 603 170 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  262. 1;
  263. #X obj 542 167 loadbang;
  264. #X msg 541 191 1;
  265. #X obj 665 225 random 16000;
  266. #X msg 239 221 stop;
  267. #N canvas 59 274 901 378 mixer 0;
  268. #X obj 40 30 catch~ chan1;
  269. #X obj 213 28 catch~ chan2;
  270. #X obj 40 72 g_channelstrip chan1;
  271. #X obj 212 70 g_channelstrip chan2;
  272. #X obj 41 323 throw~ outBus1;
  273. #X obj 74 298 throw~ outBus2;
  274. #X obj 211 319 throw~ outBus2;
  275. #X obj 248 292 throw~ outBus3;
  276. #N canvas 0 0 450 300 store 0;
  277. #X msg 155 128 pan 0.519685 \, level 110 \, mute 0 \,;
  278. #X obj 155 98 inlet;
  279. #X obj 88 128 outlet;
  280. #X obj 208 97 loadbang;
  281. #X connect 0 0 2 0;
  282. #X connect 1 0 0 0;
  283. #X connect 3 0 0 0;
  284. #X restore 356 46 pd store;
  285. #N canvas 0 0 450 300 store 0;
  286. #X msg 155 128 pan 0.527559 \, level 110 \, mute 0 \,;
  287. #X obj 155 98 inlet;
  288. #X obj 88 128 outlet;
  289. #X obj 208 97 loadbang;
  290. #X connect 0 0 2 0;
  291. #X connect 1 0 0 0;
  292. #X connect 3 0 0 0;
  293. #X restore 183 48 pd store;
  294. #X obj 431 323 throw~ outBus1;
  295. #X obj 464 298 throw~ outBus2;
  296. #X obj 601 319 throw~ outBus2;
  297. #X obj 638 292 throw~ outBus3;
  298. #N canvas 0 0 450 300 store 0;
  299. #X msg 155 128 pan 0.637795 \, level 110 \, mute 0 \,;
  300. #X obj 155 98 inlet;
  301. #X obj 88 128 outlet;
  302. #X obj 208 97 loadbang;
  303. #X connect 0 0 2 0;
  304. #X connect 1 0 0 0;
  305. #X connect 3 0 0 0;
  306. #X restore 746 46 pd store;
  307. #N canvas 0 0 450 300 store 0;
  308. #X msg 155 128 pan 0.393701 \, level 110 \, mute 0 \,;
  309. #X obj 155 98 inlet;
  310. #X obj 88 128 outlet;
  311. #X obj 208 97 loadbang;
  312. #X connect 0 0 2 0;
  313. #X connect 1 0 0 0;
  314. #X connect 3 0 0 0;
  315. #X restore 573 48 pd store;
  316. #X obj 430 30 catch~ chan3;
  317. #X obj 430 72 g_channelstrip chan3;
  318. #X obj 602 70 g_channelstrip chan4;
  319. #X obj 603 28 catch~ chan4;
  320. #X obj 156 340 throw~ \$0-grains;
  321. #X connect 0 0 2 0;
  322. #X connect 1 0 3 0;
  323. #X connect 2 0 4 0;
  324. #X connect 2 1 5 0;
  325. #X connect 2 2 20 0;
  326. #X connect 2 4 9 0;
  327. #X connect 3 0 6 0;
  328. #X connect 3 1 7 0;
  329. #X connect 3 2 20 0;
  330. #X connect 3 4 8 0;
  331. #X connect 8 0 3 1;
  332. #X connect 9 0 2 1;
  333. #X connect 14 0 18 1;
  334. #X connect 15 0 17 1;
  335. #X connect 16 0 17 0;
  336. #X connect 17 0 10 0;
  337. #X connect 17 1 11 0;
  338. #X connect 17 2 20 0;
  339. #X connect 17 4 15 0;
  340. #X connect 18 0 12 0;
  341. #X connect 18 1 13 0;
  342. #X connect 18 2 20 0;
  343. #X connect 18 4 14 0;
  344. #X connect 19 0 18 0;
  345. #X restore 446 439 pd mixer;
  346. #X obj 29 310 mis.play ch2 chan3;
  347. #X obj 27 268 mis.play ch1 chan4;
  348. #X obj 226 284 mis.play ch2 chan3;
  349. #X obj 26 290 mis.play ch1 chan4;
  350. #X obj 16 130 mis.record ch2;
  351. #X obj 16 150 mis.record ch3;
  352. #N canvas 0 0 450 300 dsp 0;
  353. #N canvas 175 140 608 390 grainsdelay 0;
  354. #X obj 404 109 s \$0-GRAIN;
  355. #X obj 404 63 r \$0-SET-GRAIN;
  356. #N canvas 402 181 518 421 e_graindelread-GUI 0;
  357. #N canvas 0 0 586 607 GUI 0;
  358. #X obj 124 128 g_hsl pan-r 0 1;
  359. #X obj 124 159 g_hsl vol 0 1;
  360. #X obj 124 225 g_nbx delay;
  361. #X obj 194 225 g_nbx delay-r;
  362. #X obj 124 260 g_nbx size;
  363. #X obj 194 260 g_nbx size-r;
  364. #X obj 124 295 g_nbx bw;
  365. #X obj 194 295 g_nbx grain-rate;
  366. #X obj 124 190 g_hsl vol-r 0 1;
  367. #X obj 124 68 inlet;
  368. #X obj 194 369 outlet;
  369. #X msg 124 405 phase-rand bang;
  370. #X obj 124 326 bng 15 250 50 0 empty empty phase-rand 17 7 1 10 -262144
  371. -1 -1;
  372. #X text 267 132 random panning width;
  373. #X text 267 162 base volume;
  374. #X text 268 193 random volume width;
  375. #X text 270 230 delay \, random delay variation;
  376. #X text 272 266 grain size and its variation;
  377. #X text 272 326 randomize the phase;
  378. #X connect 0 0 1 0;
  379. #X connect 1 0 8 0;
  380. #X connect 2 0 3 0;
  381. #X connect 3 0 5 0;
  382. #X connect 4 0 6 0;
  383. #X connect 5 0 4 0;
  384. #X connect 6 0 7 0;
  385. #X connect 7 0 10 0;
  386. #X connect 8 0 2 0;
  387. #X connect 9 0 0 0;
  388. #X connect 11 0 10 0;
  389. #X connect 12 0 11 0;
  390. #X coords 0 -1 1 1 380 250 1 100 100;
  391. #X restore 30 56 pd GUI;
  392. #X obj 30 31 inlet;
  393. #X obj 30 313 outlet;
  394. #X connect 0 0 2 0;
  395. #X connect 1 0 0 0;
  396. #X restore 404 86 pd e_graindelread-GUI;
  397. #X msg 274 115 help;
  398. #X msg 305 145 save;
  399. #X obj 305 168 t a b;
  400. #X obj 263 217 u_cocollect;
  401. #X msg 193 270 pan-r 0.787402 \, delay-r 400 \, delay 500 \, size-r
  402. 0 \, size 100 \, vol-r 0.133858 \, vol 0.409449 \, bw 1 \, phase 0.4819
  403. \, grain-rate 30 \,;
  404. #X obj 193 319 s \$0-SET-GRAIN;
  405. #X text 63 165 Args: <NAME> <delayline>;
  406. #X obj 263 93 r \$0-GRAIN;
  407. #X obj 193 217 loadbang;
  408. #X text 349 148 saving;
  409. #X text 390 41 Slider controls inside:;
  410. #X obj 38 335 outlet~;
  411. #X obj 101 337 outlet~;
  412. #X obj 10 51 inlet~;
  413. #X obj 77 191 e_graindelread TAG \$0-delay;
  414. #X obj 10 93 delwrite~ \$0-delay 2000;
  415. #X connect 1 0 2 0;
  416. #X connect 2 0 0 0;
  417. #X connect 3 0 17 1;
  418. #X connect 4 0 5 0;
  419. #X connect 5 0 17 1;
  420. #X connect 5 1 6 1;
  421. #X connect 6 0 7 0;
  422. #X connect 7 0 8 0;
  423. #X connect 10 0 17 1;
  424. #X connect 11 0 7 0;
  425. #X connect 16 0 18 0;
  426. #X connect 17 0 14 0;
  427. #X connect 17 1 15 0;
  428. #X connect 17 2 6 0;
  429. #X restore 111 81 pd grainsdelay;
  430. #X obj 110 44 catch~ \$0-grains;
  431. #X obj 109 115 throw~ outBus1;
  432. #X connect 0 0 2 0;
  433. #X connect 1 0 0 0;
  434. #X restore 445 471 pd dsp;
  435. #X connect 7 0 9 1;
  436. #X connect 8 0 7 0;
  437. #X connect 9 0 0 1;
  438. #X connect 11 0 12 1;
  439. #X connect 12 0 14 0;
  440. #X connect 13 0 12 0;
  441. #X connect 15 0 17 0;
  442. #X connect 16 0 19 0;
  443. #X connect 17 0 18 0;
  444. #X connect 17 0 42 0;
  445. #X connect 18 0 17 1;
  446. #X connect 19 0 15 0;
  447. #X connect 19 1 20 0;
  448. #X connect 20 0 17 1;
  449. #X connect 22 0 23 0;
  450. #X connect 23 0 24 0;
  451. #X connect 24 0 25 0;
  452. #X connect 25 0 26 0;
  453. #X connect 25 0 27 0;
  454. #X connect 26 0 25 1;
  455. #X connect 27 0 28 0;
  456. #X connect 29 0 30 0;
  457. #X connect 30 0 31 0;
  458. #X connect 32 0 62 0;
  459. #X connect 32 0 67 0;
  460. #X connect 33 0 62 1;
  461. #X connect 33 0 67 1;
  462. #X connect 34 0 62 2;
  463. #X connect 34 0 67 2;
  464. #X connect 35 0 62 3;
  465. #X connect 36 0 62 4;
  466. #X connect 37 0 62 5;
  467. #X connect 38 0 62 6;
  468. #X connect 39 0 62 7;
  469. #X connect 41 0 9 0;
  470. #X connect 53 0 54 0;
  471. #X connect 54 0 72 0;
  472. #X connect 55 0 79 0;
  473. #X connect 56 0 53 0;
  474. #X connect 56 1 53 1;
  475. #X connect 57 0 53 0;
  476. #X connect 58 0 56 0;
  477. #X connect 63 0 92 0;
  478. #X connect 64 0 93 0;
  479. #X connect 64 0 94 0;
  480. #X connect 65 0 91 0;
  481. #X connect 66 0 10 0;
  482. #X connect 66 0 52 0;
  483. #X connect 66 1 10 1;
  484. #X connect 66 1 60 0;
  485. #X connect 66 2 10 2;
  486. #X connect 66 2 61 0;
  487. #X connect 69 1 63 0;
  488. #X connect 69 1 64 0;
  489. #X connect 70 0 71 0;
  490. #X connect 71 0 75 0;
  491. #X connect 72 0 55 0;
  492. #X connect 74 0 73 0;
  493. #X connect 74 0 77 0;
  494. #X connect 75 0 74 0;
  495. #X connect 76 0 75 0;
  496. #X connect 76 1 70 0;
  497. #X connect 77 0 78 0;
  498. #X connect 79 0 76 0;
  499. #X connect 79 1 74 1;
  500. #X connect 82 0 83 0;
  501. #X connect 83 0 55 0;
  502. #X connect 83 1 88 0;
  503. #X connect 84 0 82 1;
  504. #X connect 85 0 82 0;
  505. #X connect 86 0 87 0;
  506. #X connect 88 0 84 0;
  507. #X connect 89 0 91 0;
  508. #X connect 89 0 92 0;
  509. #X connect 89 0 93 0;
  510. #X connect 89 0 94 0;
  511. #X connect 95 1 64 0;
  512. #X connect 96 1 65 0;