/grandel/grandelback.pd

http://github.com/jpburstrom/neu · Unknown · 299 lines · 299 code · 0 blank · 0 comment · 0 complexity · a1face297d50a04215a919f081486d5e MD5 · raw file 

    

  1. #N canvas 44 67 931 693 10;
    2. 

  2. #X obj 573 297 winfader \$0;
    3. 

  3. #X obj 282 169 s \$0-gdcell;
    4. 

  4. #X obj 282 147 list trim;
    5. 

  5. #N canvas 306 27 554 506 grains 1;
    6. 

  6. #X obj 49 17 gdcell \$0 1 3000;
    7. 

  7. #N canvas 0 0 659 417 switch 0;
    8. 

  8. #X obj 59 37 gdcell \$0 2 3000;
    9. 

  9. #X obj 69 57 gdcell \$0 3 3000;
    10. 

  10. #X obj 79 77 gdcell \$0 4 3000;
    11. 

  11. #X obj 89 97 gdcell \$0 5 3000;
    12. 

  12. #X obj 99 117 gdcell \$0 6 3000;
    13. 

  13. #X obj 111 137 gdcell \$0 7 3000;
    14. 

  14. #X obj 119 157 gdcell \$0 8 3000;
    15. 

  15. #X obj 60 196 gdcell \$0 9 3000;
    16. 

  16. #X obj 70 216 gdcell \$0 10 3000;
    17. 

  17. #X obj 80 236 gdcell \$0 11 3000;
    18. 

  18. #X obj 90 256 gdcell \$0 12 3000;
    19. 

  19. #X obj 100 276 gdcell \$0 13 3000;
    20. 

  20. #X obj 110 296 gdcell \$0 14 3000;
    21. 

  21. #X obj 122 316 gdcell \$0 15 3000;
    22. 

  22. #X obj 130 336 gdcell \$0 16 3000;
    23. 

  23. #X obj 249 17 gdcell \$0 17 3000;
    24. 

  24. #X obj 260 38 gdcell \$0 18 3000;
    25. 

  25. #X obj 269 57 gdcell \$0 19 3000;
    26. 

  26. #X obj 279 77 gdcell \$0 20 3000;
    27. 

  27. #X obj 289 97 gdcell \$0 21 3000;
    28. 

  28. #X obj 299 117 gdcell \$0 22 3000;
    29. 

  29. #X obj 311 137 gdcell \$0 23 3000;
    30. 

  30. #X obj 319 157 gdcell \$0 24 3000;
    31. 

  31. #X obj 260 196 gdcell \$0 25 3000;
    32. 

  32. #X obj 270 216 gdcell \$0 26 3000;
    33. 

  33. #X obj 280 236 gdcell \$0 27 3000;
    34. 

  34. #X obj 290 256 gdcell \$0 28 3000;
    35. 

  35. #X obj 300 276 gdcell \$0 29 3000;
    36. 

  36. #X obj 310 296 gdcell \$0 30 3000;
    37. 

  37. #X obj 322 316 gdcell \$0 31 3000;
    38. 

  38. #X obj 330 336 gdcell \$0 32 3000;
    39. 

  39. #X restore 224 87 pd switch;
    40. 

  40. #X restore 761 224 pd grains;
    41. 

  41. #X obj 644 530 catch~ \$0-L;
    42. 

  42. #X obj 728 535 catch~ \$0-R;
    43. 

  43. #X msg 283 105 pan 0.5;
    44. 

  44. #X msg 177 71 1 1;
    45. 

  45. #X msg 190 167 symbol trig;
    46. 

  46. #X obj 162 125 stripnote;
    47. 

  47. #X obj 158 193 pack f s 1;
    48. 

  48. #X obj 283 127 list prepend global;
    49. 

  49. #X obj 598 99 == 0;
    50. 

  50. #X obj 502 98 volctl~ 0 10;
    51. 

  51. #X obj 530 186 volctl~ 0 10;
    52. 

  52. #X text 28 7 TODO: randomize parameters (gaussian) \, density function
    53. 

  53. \, bpfilter (or similar) \, feedback.;
    54. 

  54. #X text 63 46 BUGS: CPU hogging. denormals?;
    55. 

  55. #X obj 548 74 init 1;
    56. 

  56. #X obj 58 433 s \$0-speed;
    57. 

  57. #X obj 161 216 t l l;
    58. 

  58. #X msg 205 215 \$1;
    59. 

  59. #X obj 312 303 list trim;
    60. 

  60. #X obj 58 233 t b b b;
    61. 

  61. #X obj 311 194 list;
    62. 

  62. #N canvas 420 109 450 300 setsize 0;
    63. 

  63. #X msg 33 151 size \$1;
    64. 

  64. #X obj 69 128 r \$0-speed;
    65. 

  65. #X obj 34 109 / 100;
    66. 

  66. #X obj 34 130 *;
    67. 

  67. #X obj -11 17 inlet;
    68. 

  68. #X obj 31 173 s \$0-pretrigsize;
    69. 

  69. #X obj 130 23 inlet;
    70. 

  70. #X obj 172 24 inlet;
    71. 

  71. #X obj 215 30 inlet;
    72. 

  72. #X obj 34 66 mrrandom 5 800;
    73. 

  73. #X connect 0 0 5 0;
    74. 

  74. #X connect 1 0 3 1;
    75. 

  75. #X connect 2 0 3 0;
    76. 

  76. #X connect 3 0 0 0;
    77. 

  77. #X connect 4 0 9 0;
    78. 

  78. #X connect 6 0 9 1;
    79. 

  79. #X connect 7 0 9 2;
    80. 

  80. #X connect 8 0 9 3;
    81. 

  81. #X connect 9 0 2 0;
    82. 

  82. #X coords 0 0 1 1 85 60 0;
    83. 

  83. #X restore 295 576 pd setsize;
    84. 

  84. #N canvas 312 147 450 300 settransp 0;
    85. 

  85. #X obj 12 6 inlet;
    86. 

  86. #X msg 56 140 transpose \$1;
    87. 

  87. #X obj 54 162 s \$0-pretrigtransp;
    88. 

  88. #X obj 130 23 inlet;
    89. 

  89. #X obj 172 24 inlet;
    90. 

  90. #X obj 215 30 inlet;
    91. 

  91. #X obj 57 55 mrrandom -36 36;
    92. 

  92. #X connect 0 0 6 0;
    93. 

  93. #X connect 1 0 2 0;
    94. 

  94. #X connect 3 0 6 1;
    95. 

  95. #X connect 4 0 6 2;
    96. 

  96. #X connect 5 0 6 3;
    97. 

  97. #X connect 6 0 1 0;
    98. 

  98. #X restore 285 522 pd settransp;
    99. 

  99. #X obj 311 215 list;
    100. 

  100. #X obj 343 214 r \$0-pretrigsize;
    101. 

  101. #X obj 343 194 r \$0-pretrigtransp;
    102. 

  102. #N canvas 64 178 450 300 setdelay 0;
    103. 

  103. #X obj 19 17 inlet;
    104. 

  104. #X msg 63 151 delay \$1;
    105. 

  105. #X obj 61 173 s \$0-pretrigdelay;
    106. 

  106. #X obj 139 2 inlet;
    107. 

  107. #X obj 181 3 inlet;
    108. 

  108. #X obj 224 9 inlet;
    109. 

  109. #X obj 63 90 mrrandom 0 5000;
    110. 

  110. #X obj 80 14 * 10;
    111. 

  111. #X obj 131 34 * 10;
    112. 

  112. #X obj 67 61 anytoquartic 0 5000;
    113. 

  113. #X connect 0 0 6 0;
    114. 

  114. #X connect 1 0 2 0;
    115. 

  115. #X connect 3 0 7 0;
    116. 

  116. #X connect 4 0 8 0;
    117. 

  117. #X connect 5 0 6 3;
    118. 

  118. #X connect 6 0 1 0;
    119. 

  119. #X connect 7 0 9 0;
    120. 

  120. #X connect 8 0 6 2;
    121. 

  121. #X connect 9 0 6 1;
    122. 

  122. #X restore 287 473 pd setdelay;
    123. 

  123. #X obj 311 235 list;
    124. 

  124. #X obj 343 234 r \$0-pretrigdelay;
    125. 

  125. #X obj 98 187 r \$0-speed;
    126. 

  126. #N canvas 0 0 587 345 setpan 0;
    127. 

  127. #X obj 199 17 inlet;
    128. 

  128. #X obj 244 66 mrrandom 0 100;
    129. 

  129. #X obj 245 127 / 100;
    130. 

  130. #X msg 243 151 pan \$1;
    131. 

  131. #X obj 241 173 s \$0-pretrigpan;
    132. 

  132. #X obj 297 -7 inlet;
    133. 

  133. #X obj 339 -6 inlet;
    134. 

  134. #X obj 382 0 inlet;
    135. 

  135. #X connect 0 0 1 0;
    136. 

  136. #X connect 1 0 2 0;
    137. 

  137. #X connect 2 0 3 0;
    138. 

  138. #X connect 3 0 4 0;
    139. 

  139. #X connect 5 0 1 1;
    140. 

  140. #X connect 6 0 1 2;
    141. 

  141. #X connect 7 0 1 3;
    142. 

  142. #X restore 211 403 pd setpan;
    143. 

  143. #X obj 311 255 list;
    144. 

  144. #X obj 342 254 r \$0-pretrigpan;
    145. 

  145. #X obj 178 94 poly 32 1;
    146. 

  146. #N canvas 0 0 727 328 setvol 0;
    147. 

  147. #X obj 199 17 inlet;
    148. 

  148. #X obj 244 66 mrrandom 0 100;
    149. 

  149. #X obj 245 127 / 100;
    150. 

  150. #X msg 243 151 vol \$1;
    151. 

  151. #X obj 241 173 s \$0-pretrigvol;
    152. 

  152. #X obj 310 -7 inlet;
    153. 

  153. #X obj 352 -6 inlet;
    154. 

  154. #X obj 395 0 inlet;
    155. 

  155. #X connect 0 0 1 0;
    156. 

  156. #X connect 1 0 2 0;
    157. 

  157. #X connect 2 0 3 0;
    158. 

  158. #X connect 3 0 4 0;
    159. 

  159. #X connect 5 0 1 1;
    160. 

  160. #X connect 6 0 1 2;
    161. 

  161. #X connect 7 0 1 3;
    162. 

  162. #X restore 288 428 pd setvol;
    163. 

  163. #X obj 312 272 list;
    164. 

  164. #X obj 342 272 r \$0-pretrigvol;
    165. 

  165. #X obj 573 320 list prepend /grandel/ui/window;
    166. 

  166. #X obj 573 368 s UI;
    167. 

  167. #X obj 573 343 list trim;
    168. 

  168. #X obj 297 406 OSCroute /vol /voldev /voldevfb;
    169. 

  169. #X obj 299 449 OSCroute /delay /delaydev /delaydevfb;
    170. 

  170. #X obj 298 495 OSCroute /transp /transpdev /transpdevfb;
    171. 

  171. #X obj 298 545 OSCroute /size /sizedev /sizedevfb;
    172. 

  172. #X obj 75 366 OSCroute /speed /speeddev /speeddevfb /pan /pandev /pandevfb
    173. 

  173. ;
    174. 

  174. #X obj 446 345 OSCroute /onoff;
    175. 

  175. #X obj 608 442 switchdelay 20;
    176. 

  176. #X obj 727 569 volctl~ 0 20;
    177. 

  177. #X obj 644 560 volctl~ 0 20;
    178. 

  178. #X obj 643 468 switch~;
    179. 

  179. #X obj 466 247 r OSC;
    180. 

  180. #X obj 447 280 OSCroute /grandel;
    181. 

  181. #X obj 550 648 delwrite~ \$0-k 5000;
    182. 

  182. #X obj 529 165 delread~ \$0-k 5000;
    183. 

  183. #X obj 501 22 inlet~;
    184. 

  184. #X obj 645 584 outlet~;
    185. 

  185. #X obj 730 590 outlet~;
    186. 

  186. #X obj 431 306 OSCroute /global \$1;
    187. 

  187. #X obj 565 609 _j/undenormal~;
    188. 

  188. #X obj 712 104 singleton win512 windowing 512;
    189. 

  189. #X obj 640 194 t f f;
    190. 

  190. #X obj 640 214 sel 0;
    191. 

  191. #X obj 576 276 OSCroute /window1 /window2 /winmix /freeze /feedbk;
    192. 

  192. #X obj 809 301 / 100;
    193. 

  193. #X obj 809 326 01toquartic;
    194. 

  194. #X obj 640 237 0;
    195. 

  195. #X obj 585 232 spigot;
    196. 

  196. #X obj 58 410 mrrandom 1 5000;
    197. 

  197. #X obj 75 390 anytoquartic 1 5000;
    198. 

  198. #X obj 58 210 metro 200;
    199. 

  199. #X connect 0 0 40 0;
    200. 

  200. #X connect 2 0 1 0;
    201. 

  201. #X connect 4 0 51 0;
    202. 

  202. #X connect 5 0 50 0;
    203. 

  203. #X connect 6 0 11 0;
    204. 

  204. #X connect 7 0 36 0;
    205. 

  205. #X connect 8 0 10 1;
    206. 

  206. #X connect 9 0 10 0;
    207. 

  207. #X connect 10 0 19 0;
    208. 

  208. #X connect 11 0 2 0;
    209. 

  209. #X connect 12 0 13 1;
    210. 

  210. #X connect 13 0 55 0;
    211. 

  211. #X connect 14 0 55 0;
    212. 

  212. #X connect 17 0 13 1;
    213. 

  213. #X connect 19 0 1 0;
    214. 

  214. #X connect 19 1 20 0;
    215. 

  215. #X connect 20 0 23 0;
    216. 

  216. #X connect 20 0 26 0;
    217. 

  217. #X connect 20 0 30 0;
    218. 

  218. #X connect 20 0 34 0;
    219. 

  219. #X connect 20 0 38 0;
    220. 

  220. #X connect 21 0 1 0;
    221. 

  221. #X connect 22 0 70 0;
    222. 

  222. #X connect 22 1 7 0;
    223. 

  223. #X connect 22 2 24 0;
    224. 

  224. #X connect 22 2 25 0;
    225. 

  225. #X connect 22 2 29 0;
    226. 

  226. #X connect 22 2 33 0;
    227. 

  227. #X connect 22 2 37 0;
    228. 

  228. #X connect 23 0 21 0;
    229. 

  229. #X connect 26 0 21 0;
    230. 

  230. #X connect 27 0 26 1;
    231. 

  231. #X connect 28 0 23 1;
    232. 

  232. #X connect 30 0 21 0;
    233. 

  233. #X connect 31 0 30 1;
    234. 

  234. #X connect 32 0 72 1;
    235. 

  235. #X connect 34 0 21 0;
    236. 

  236. #X connect 35 0 34 1;
    237. 

  237. #X connect 36 0 9 0;
    238. 

  238. #X connect 36 1 8 0;
    239. 

  239. #X connect 36 2 9 1;
    240. 

  240. #X connect 38 0 21 0;
    241. 

  241. #X connect 39 0 38 1;
    242. 

  242. #X connect 40 0 42 0;
    243. 

  243. #X connect 42 0 41 0;
    244. 

  244. #X connect 43 0 37 1;
    245. 

  245. #X connect 43 1 37 2;
    246. 

  246. #X connect 43 2 37 3;
    247. 

  247. #X connect 43 3 44 0;
    248. 

  248. #X connect 44 0 29 1;
    249. 

  249. #X connect 44 1 29 2;
    250. 

  250. #X connect 44 2 29 3;
    251. 

  251. #X connect 44 3 45 0;
    252. 

  252. #X connect 45 0 25 1;
    253. 

  253. #X connect 45 1 25 2;
    254. 

  254. #X connect 45 2 25 3;
    255. 

  255. #X connect 45 3 46 0;
    256. 

  256. #X connect 46 0 24 1;
    257. 

  257. #X connect 46 1 24 2;
    258. 

  258. #X connect 46 2 24 3;
    259. 

  259. #X connect 47 0 71 0;
    260. 

  260. #X connect 47 1 70 2;
    261. 

  261. #X connect 47 2 70 3;
    262. 

  262. #X connect 47 3 33 1;
    263. 

  263. #X connect 47 4 33 2;
    264. 

  264. #X connect 47 5 33 3;
    265. 

  265. #X connect 47 6 43 0;
    266. 

  266. #X connect 48 0 49 0;
    267. 

  267. #X connect 48 0 50 1;
    268. 

  268. #X connect 48 0 51 1;
    269. 

  269. #X connect 48 0 72 0;
    270. 

  270. #X connect 48 1 65 0;
    271. 

  271. #X connect 49 0 52 0;
    272. 

  272. #X connect 50 0 59 0;
    273. 

  273. #X connect 51 0 58 0;
    274. 

  274. #X connect 53 0 54 0;
    275. 

  275. #X connect 54 0 60 0;
    276. 

  276. #X connect 56 0 14 0;
    277. 

  277. #X connect 57 0 13 0;
    278. 

  278. #X connect 60 0 48 0;
    279. 

  279. #X connect 60 0 47 0;
    280. 

  280. #X connect 60 1 48 0;
    281. 

  281. #X connect 60 1 47 0;
    282. 

  282. #X connect 61 0 55 0;
    283. 

  283. #X connect 63 0 64 0;
    284. 

  284. #X connect 63 1 14 1;
    285. 

  285. #X connect 63 1 69 1;
    286. 

  286. #X connect 64 0 68 0;
    287. 

  287. #X connect 65 0 0 0;
    288. 

  288. #X connect 65 1 0 1;
    289. 

  289. #X connect 65 2 0 2;
    290. 

  290. #X connect 65 3 12 0;
    291. 

  291. #X connect 65 3 63 0;
    292. 

  292. #X connect 65 4 66 0;
    293. 

  293. #X connect 66 0 67 0;
    294. 

  294. #X connect 67 0 68 0;
    295. 

  295. #X connect 68 0 69 0;
    296. 

  296. #X connect 69 0 14 1;
    297. 

  297. #X connect 70 0 18 0;
    298. 

  298. #X connect 71 0 70 1;
    299. 

  299. #X connect 72 0 22 0;
    300.