PageRenderTime 37ms CodeModel.GetById 18ms app.highlight 9ms RepoModel.GetById 1ms app.codeStats 0ms

/grandel/grandelback2.3-mono.pd

http://github.com/jpburstrom/neu
Unknown | 472 lines | 472 code | 0 blank | 0 comment | 0 complexity | 83224803e00d1974270a4f2f7a9bbd1f MD5 | raw file
  1#N canvas 632 22 766 693 10;
  2#X declare -lib hcs;
  3#X declare -lib list-abs -lib mrpeach;
  4#X declare -lib list-abs -lib mrpeach;
  5#X declare -lib iemlib;
  6#N canvas 0 22 766 714 grains 0;
  7#X obj 160 182 outlet~;
  8#X obj 106 182 outlet~;
  9#X obj 105 142 gdcell2.3-mono \$0 0 3000;
 10#N canvas 0 22 766 714 31-grains 0;
 11#X obj 27 369 outlet~;
 12#X obj 581 213 outlet~;
 13#X obj 49 17 gdcell2.3-mono \$0 1 3000;
 14#X obj 59 37 gdcell2.3-mono \$0 2 3000;
 15#X obj 69 57 gdcell2.3-mono \$0 3 3000;
 16#X obj 79 77 gdcell2.3-mono \$0 4 3000;
 17#X obj 89 97 gdcell2.3-mono \$0 5 3000;
 18#X obj 99 117 gdcell2.3-mono \$0 6 3000;
 19#X obj 111 137 gdcell2.3-mono \$0 7 3000;
 20#X obj 119 157 gdcell2.3-mono \$0 8 3000;
 21#X obj 60 196 gdcell2.3-mono \$0 9 3000;
 22#X obj 70 216 gdcell2.3-mono \$0 10 3000;
 23#X obj 80 236 gdcell2.3-mono \$0 11 3000;
 24#X obj 90 256 gdcell2.3-mono \$0 12 3000;
 25#X obj 100 276 gdcell2.3-mono \$0 13 3000;
 26#X obj 110 296 gdcell2.3-mono \$0 14 3000;
 27#X obj 122 316 gdcell2.3-mono \$0 15 3000;
 28#X obj 130 336 gdcell2.3-mono \$0 16 3000;
 29#X obj 249 17 gdcell2.3-mono \$0 17 3000;
 30#X obj 260 38 gdcell2.3-mono \$0 18 3000;
 31#X obj 269 57 gdcell2.3-mono \$0 19 3000;
 32#X obj 279 77 gdcell2.3-mono \$0 20 3000;
 33#X obj 289 97 gdcell2.3-mono \$0 21 3000;
 34#X obj 299 117 gdcell2.3-mono \$0 22 3000;
 35#X obj 311 137 gdcell2.3-mono \$0 23 3000;
 36#X obj 319 157 gdcell2.3-mono \$0 24 3000;
 37#X obj 260 196 gdcell2.3-mono \$0 25 3000;
 38#X obj 270 216 gdcell2.3-mono \$0 26 3000;
 39#X obj 280 236 gdcell2.3-mono \$0 27 3000;
 40#X obj 290 256 gdcell2.3-mono \$0 28 3000;
 41#X obj 300 276 gdcell2.3-mono \$0 29 3000;
 42#X obj 310 296 gdcell2.3-mono \$0 30 3000;
 43#X obj 322 316 gdcell2.3-mono \$0 31 3000;
 44#X connect 2 0 0 0;
 45#X connect 2 1 1 0;
 46#X connect 3 0 0 0;
 47#X connect 3 1 1 0;
 48#X connect 4 0 0 0;
 49#X connect 4 1 1 0;
 50#X connect 5 0 0 0;
 51#X connect 5 1 1 0;
 52#X connect 6 0 0 0;
 53#X connect 6 1 1 0;
 54#X connect 7 0 0 0;
 55#X connect 7 1 1 0;
 56#X connect 8 0 0 0;
 57#X connect 8 1 1 0;
 58#X connect 9 0 0 0;
 59#X connect 9 1 1 0;
 60#X connect 10 0 0 0;
 61#X connect 10 1 1 0;
 62#X connect 11 0 0 0;
 63#X connect 11 1 1 0;
 64#X connect 12 0 0 0;
 65#X connect 12 1 1 0;
 66#X connect 13 0 0 0;
 67#X connect 13 1 1 0;
 68#X connect 14 0 0 0;
 69#X connect 14 1 1 0;
 70#X connect 15 0 0 0;
 71#X connect 15 1 1 0;
 72#X connect 16 0 0 0;
 73#X connect 16 1 1 0;
 74#X connect 17 0 0 0;
 75#X connect 17 1 1 0;
 76#X connect 18 0 0 0;
 77#X connect 18 1 1 0;
 78#X connect 19 0 0 0;
 79#X connect 19 1 1 0;
 80#X connect 20 0 0 0;
 81#X connect 20 1 1 0;
 82#X connect 21 0 0 0;
 83#X connect 21 1 1 0;
 84#X connect 22 0 0 0;
 85#X connect 22 1 1 0;
 86#X connect 23 0 0 0;
 87#X connect 23 1 1 0;
 88#X connect 24 0 0 0;
 89#X connect 24 1 1 0;
 90#X connect 25 0 0 0;
 91#X connect 25 1 1 0;
 92#X connect 26 0 0 0;
 93#X connect 26 1 1 0;
 94#X connect 27 0 0 0;
 95#X connect 27 1 1 0;
 96#X connect 28 0 0 0;
 97#X connect 28 1 1 0;
 98#X connect 29 0 0 0;
 99#X connect 29 1 1 0;
100#X connect 30 0 0 0;
101#X connect 30 1 1 0;
102#X connect 31 0 0 0;
103#X connect 31 1 1 0;
104#X connect 32 0 0 0;
105#X connect 32 1 1 0;
106#X restore 307 139 pd 31-grains;
107#X connect 2 0 1 0;
108#X connect 2 1 0 0;
109#X connect 3 0 1 0;
110#X connect 3 1 0 0;
111#X restore 286 501 pd grains;
112#X obj 153 165 volctl~ 0 10;
113#X obj 188 252 volctl~ 0 10;
114#X text 28 7 TODO: randomize parameters (gaussian) \, density function
115\, bpfilter (or similar) \, feedback.;
116#X text 63 46 BUGS: CPU hogging. denormals?;
117#X obj 199 141 init 1;
118#X obj 152 89 inlet~;
119#X obj 286 598 outlet~;
120#X obj 337 523 outlet~;
121#X obj 298 260 t f f;
122#X obj 298 283 sel 0;
123#X obj 298 309 0;
124#X obj 418 86 table \$0-trigr 64;
125#N canvas 0 22 610 716 generate 0;
126#X obj 124 21 loadbang;
127#X obj 124 91 0;
128#X obj 154 91 + 1;
129#X msg 124 44 64;
130#X obj 124 68 until;
131#X obj 109 196 tabwrite \$0-trigr;
132#X obj 123 135 t f f;
133#X connect 0 0 3 0;
134#X connect 1 0 2 0;
135#X connect 1 0 6 0;
136#X connect 2 0 1 1;
137#X connect 3 0 4 0;
138#X connect 4 0 1 0;
139#X connect 6 0 5 0;
140#X connect 6 1 5 1;
141#X restore 418 104 pd generate;
142#X obj 189 322 hip~ 5;
143#X obj 338 265 == 0;
144#X obj 239 288 spigot 1;
145#X obj 153 414 delwrite~ \$0-k 10000;
146#X obj 98 515 switch~ 64 1 1;
147#X obj 226 386 winfader-single2 \$0-window;
148#X floatatom 277 191 5 0 0 0 - - -;
149#X obj 249 166 == 0;
150#X obj 187 231 mydelread~ \$0-k 10000;
151#X obj 399 386 mywindowing2 512;
152#X obj 463 311 quartic;
153#X obj 463 290 r \$0-/feedbk;
154#X obj 315 129 r \$0-/freeze;
155#X obj 228 342 r \$0-/window;
156#X obj 99 473 r \$0-/onoff;
157#N canvas 235 76 464 582 speed+size 0;
158#X obj 168 97 *;
159#X obj 168 73 t b f f;
160#X obj 99 347 sel 1;
161#X obj 120 51 noise;
162#X obj 120 112 pow;
163#X obj 120 71 *;
164#X obj 79 83 *;
165#X obj 46 37 t f f f;
166#X msg 120 92 2 \$1;
167#X obj 81 116 max 2;
168#X obj 54 385 0;
169#X obj 68 411 + 1;
170#X obj 71 431 % 32;
171#X obj 54 457 s \$0-trig;
172#X msg 88 369 0;
173#X msg 84 239 stop;
174#X obj 36 209 route 1 0;
175#N canvas 10 66 691 689 master_tempo 0;
176#X obj 150 17 r MASTER_TEMPO;
177#X obj 110 67 spigot;
178#X obj 482 100 spigot 1;
179#X obj 405 70 == 0;
180#X obj 487 61 f;
181#X obj 370 116 sel 0;
182#X obj 255 72 t f f f f;
183#X obj 314 266 outlet;
184#X obj 158 95 0;
185#X obj 241 106 sel 0;
186#X obj 196 161 / 1;
187#X obj 486 14 inlet other_tempo;
188#X obj 127 251 outlet;
189#X obj 111 97 t b b;
190#X obj 206 137 t b f;
191#X obj 124 39 t f f;
192#X obj 242 210 spigot;
193#X obj 283 39 r \$0-/master_tempo;
194#X connect 0 0 15 0;
195#X connect 1 0 13 0;
196#X connect 2 0 7 0;
197#X connect 3 0 2 1;
198#X connect 4 0 2 0;
199#X connect 5 0 4 0;
200#X connect 6 0 1 1;
201#X connect 6 0 16 1;
202#X connect 6 1 9 0;
203#X connect 6 2 5 0;
204#X connect 6 3 3 0;
205#X connect 8 0 1 1;
206#X connect 9 1 14 0;
207#X connect 10 0 16 0;
208#X connect 11 0 4 0;
209#X connect 13 0 12 0;
210#X connect 13 1 8 0;
211#X connect 14 0 10 0;
212#X connect 14 1 10 1;
213#X connect 15 0 1 0;
214#X connect 15 1 10 0;
215#X connect 16 0 7 0;
216#X connect 17 0 6 0;
217#X restore 41 264 pd master_tempo;
218#X obj 125 202 f;
219#X msg 53 298 1;
220#X obj 54 328 metro;
221#X obj 54 349 t b b;
222#N canvas 5 44 764 716 square 0;
223#X obj 123 25 inlet;
224#X obj 123 144 * 1000;
225#X obj 124 173 outlet;
226#X obj 124 97 t f f;
227#X obj 124 120 *;
228#X obj 125 71 + 0.01;
229#X obj 124 46 * 0.98;
230#X connect 0 0 6 0;
231#X connect 1 0 2 0;
232#X connect 3 0 4 0;
233#X connect 3 1 4 1;
234#X connect 4 0 1 0;
235#X connect 5 0 3 0;
236#X connect 6 0 5 0;
237#X restore 45 13 pd square;
238#X obj 45 -9 r \$0-/speed;
239#X obj 101 9 r \$0-/speeddev;
240#X obj 168 48 r \$0-/density;
241#X obj 167 126 s \$0-/size;
242#X obj 39 185 r \$0-/onoff;
243#X obj 102 324 r \$0-/onoff;
244#X floatatom 196 356 5 0 0 0 - - -;
245#X connect 0 0 26 0;
246#X connect 1 0 0 0;
247#X connect 1 1 0 1;
248#X connect 2 0 14 0;
249#X connect 3 0 5 0;
250#X connect 4 0 6 0;
251#X connect 5 0 8 0;
252#X connect 6 0 9 0;
253#X connect 7 0 18 0;
254#X connect 7 1 6 1;
255#X connect 7 2 0 0;
256#X connect 8 0 4 0;
257#X connect 9 0 18 0;
258#X connect 10 0 11 0;
259#X connect 10 0 13 0;
260#X connect 11 0 12 0;
261#X connect 12 0 10 1;
262#X connect 14 0 10 1;
263#X connect 15 0 20 0;
264#X connect 16 0 19 0;
265#X connect 16 1 15 0;
266#X connect 17 0 19 0;
267#X connect 17 1 20 1;
268#X connect 17 1 29 0;
269#X connect 18 0 17 0;
270#X connect 19 0 20 0;
271#X connect 20 0 21 0;
272#X connect 21 0 10 0;
273#X connect 21 1 3 0;
274#X connect 22 0 7 0;
275#X connect 23 0 22 0;
276#X connect 24 0 5 1;
277#X connect 25 0 1 0;
278#X connect 27 0 16 0;
279#X connect 28 0 2 0;
280#X restore 259 457 pd speed+size;
281#X obj 684 180 dispatch \$0 /transp;
282#X obj 684 200 dispatch \$0 /sizedev;
283#X obj 684 220 dispatch \$0 /senddev;
284#X obj 684 240 dispatch \$0 /send;
285#X obj 684 300 dispatch \$0 /feedbk;
286#X obj 684 320 dispatch \$0 /freeze;
287#X obj 684 340 dispatch \$0 /window;
288#X obj 684 360 dispatch \$0 /master_tempo;
289#X obj 684 380 dispatch \$0 /onoff;
290#X obj 684 400 dispatch \$0 /transpdevq;
291#X obj 684 420 dispatch \$0 /gliss;
292#X obj 684 440 dispatch \$0 /delaydev;
293#X obj 684 460 dispatch \$0 /delay;
294#X obj 684 480 dispatch \$0 /density;
295#X obj 684 500 dispatch \$0 /speeddev;
296#X obj 684 520 dispatch \$0 /speed;
297#N canvas 67 23 306 374 \$0-gui 1;
298#X obj 6 -24 cnv 15 270 20 empty empty Grandel~ 1 12 0 14 -261234 -66577
2990;
300#X obj 236 -18 inlet;
301#X obj 240 -18 inlet;
302#X obj 126 254 hradio 15 1 0 10 \$0-/window \$0-/window empty 0 -8
3030 10 -262144 -1 -1 9;
304#X text 73 251 Window;
305#X obj 4 232 hradio 15 1 0 17 \$0-/transpdevq empty empty 0 -8 0 10
306-262144 -1 -1 0;
307#X floatatom 268 234 5 0 0 0 - - -;
308#X obj 142 109 sssad-slider \$0 /transp -12 12;
309#X obj 142 189 sssad-tgl \$0 /freeze;
310#X obj 3 189 sssad-tgl \$0 /onoff;
311#X obj 3 209 sssad-tgl \$0 /gliss;
312#X obj 142 69 sssad-slider \$0 /speeddev 0 1;
313#X obj 142 89 sssad-slider \$0 /density 0 1 log;
314#X obj 3 89 sssad-slider \$0 /sizedev 0 1;
315#X obj 3 109 sssad-slider \$0 /transpdev 0 24;
316#X obj 142 129 sssad-slider \$0 /vol 0 1;
317#X obj 3 129 sssad-slider \$0 /voldev 0 1;
318#X obj 142 149 sssad-slider \$0 /send 0 1;
319#X obj 3 149 sssad-slider \$0 /senddev 0 1;
320#X obj 142 169 sssad-slider \$0 /delay 0 1 log;
321#X obj 3 169 sssad-slider \$0 /delaydev 0 1;
322#X obj 2 68 sssad-slider \$0 /speed 0 1;
323#X obj 42 -1 sssad.presets_ grandel~ \$0;
324#X connect 1 0 22 0;
325#X connect 5 0 6 0;
326#X restore 562 113 pd \$0-gui;
327#N canvas 30 154 450 300 vis 0;
328#X msg 167 237 vis \$1;
329#X obj 167 205 yambc 2;
330#X obj 167 162 route bang float;
331#X obj 184 181 == 0;
332#X obj 164 257 s pd-\$0-gui;
333#X obj 168 134 inlet;
334#X connect 0 0 4 0;
335#X connect 1 1 0 0;
336#X connect 2 0 1 0;
337#X connect 2 1 3 0;
338#X connect 3 0 1 0;
339#X connect 5 0 2 0;
340#X restore 623 113 pd vis;
341#X msg 858 302 Feedback (doesn't work so well right now);
342#X msg 858 122 Volume deviation (0-1) \, 0;
343#X msg 858 162 Transposition deviation (semitones) \, 0;
344#X msg 858 182 Transposition (semitones) \, 0;
345#X msg 858 222 Grain send deviation (0-1) \, 0;
346#X msg 858 242 Grain send fx (0-1) \, 0;
347#X msg 858 322 Freeze current delay line (0/1) \, 0;
348#X msg 858 362 Follow master tempo (not implemented) \, 0;
349#X msg 858 402 Transposition quantization (fractions of deviation)
350\, 0;
351#X msg 859 422 Make transp dev appear as glissandi (0/1) \, 0;
352#X msg 858 502 Speed deviation (0-1) \, 0;
353#X msg 858 482 Density (0-1 \, as fraction of speed) \, 1;
354#X msg 858 462 Delay (0-1 \, representing fraction of 5000 ms) \, 500
355;
356#X msg 858 442 Delay deviation (0-1) \, 0.1;
357#X msg 858 382 Switch \, 0;
358#X msg 858 342 Grain window (int \, 0-9) \, 6;
359#X msg 858 202 Grain size deviation (0-1) \, 0;
360#X msg 859 142 Volume (0-1) \, 0.9;
361#X msg 788 78 init;
362#X obj 685 120 dispatch \$0 /voldev;
363#X obj 684 140 dispatch \$0 /vol;
364#X obj 684 160 dispatch \$0 /transpdev;
365#X msg 858 522 Speed (0-1) \, 0.1;
366#X msg 184 467 1;
367#X obj 684 562 ../sendbus-dispatch \$0;
368#X obj 867 40 sssad-localtoglobal \$0 \$1 /grandel;
369#X obj 225 363 int;
370#X obj 99 494 switchdelay 10020;
371#X obj 562 91 routeOSC /preset /vis;
372#X obj 562 70 inlet;
373#X obj 828 561 FIXME where should this abs be?;
374#X obj 364 584 # Stereo out;
375#X obj 391 520 # Per-grain send;
376#X msg 558 215 /feedbk \$1;
377#X floatatom 557 189 5 0 0 0 - - -;
378#X msg 614 59 /vis 1;
379#X obj 20 271 import iemlib;
380#X obj 708 51 r \$0-GUI;
381#X connect 0 0 7 0;
382#X connect 0 1 8 0;
383#X connect 1 0 17 0;
384#X connect 2 0 14 0;
385#X connect 5 0 1 1;
386#X connect 6 0 1 0;
387#X connect 9 0 10 0;
388#X connect 9 1 2 1;
389#X connect 9 1 15 0;
390#X connect 10 0 11 0;
391#X connect 11 0 16 0;
392#X connect 14 0 17 0;
393#X connect 15 0 16 1;
394#X connect 16 0 2 1;
395#X connect 21 0 1 1;
396#X connect 21 0 20 0;
397#X connect 22 0 2 0;
398#X connect 24 0 11 0;
399#X connect 25 0 24 0;
400#X connect 26 0 21 0;
401#X connect 26 0 9 0;
402#X connect 27 0 74 0;
403#X connect 28 0 75 0;
404#X connect 30 0 31 0;
405#X connect 30 1 51 0;
406#X connect 31 0 32 0;
407#X connect 31 1 64 0;
408#X connect 32 0 33 0;
409#X connect 32 1 52 0;
410#X connect 33 0 34 0;
411#X connect 33 1 53 0;
412#X connect 34 0 35 0;
413#X connect 34 1 48 0;
414#X connect 35 0 36 0;
415#X connect 35 1 54 0;
416#X connect 36 0 37 0;
417#X connect 36 1 63 0;
418#X connect 37 0 38 0;
419#X connect 37 1 55 0;
420#X connect 38 0 39 0;
421#X connect 38 1 62 0;
422#X connect 39 0 40 0;
423#X connect 39 1 56 0;
424#X connect 40 0 41 0;
425#X connect 40 1 57 0;
426#X connect 41 0 42 0;
427#X connect 41 1 61 0;
428#X connect 42 0 43 0;
429#X connect 42 1 60 0;
430#X connect 43 0 44 0;
431#X connect 43 1 59 0;
432#X connect 44 0 45 0;
433#X connect 44 1 58 0;
434#X connect 45 0 72 0;
435#X connect 45 1 70 0;
436#X connect 48 0 34 1;
437#X connect 49 0 67 1;
438#X connect 50 0 69 1;
439#X connect 51 0 30 1;
440#X connect 52 0 32 1;
441#X connect 53 0 33 1;
442#X connect 54 0 35 1;
443#X connect 55 0 37 1;
444#X connect 56 0 39 1;
445#X connect 57 0 40 1;
446#X connect 58 0 44 1;
447#X connect 59 0 43 1;
448#X connect 60 0 42 1;
449#X connect 61 0 41 1;
450#X connect 62 0 38 1;
451#X connect 63 0 36 1;
452#X connect 64 0 31 1;
453#X connect 65 0 68 1;
454#X connect 66 0 67 0;
455#X connect 67 0 68 0;
456#X connect 67 1 49 0;
457#X connect 68 0 69 0;
458#X connect 68 1 65 0;
459#X connect 69 0 30 0;
460#X connect 69 1 50 0;
461#X connect 70 0 45 1;
462#X connect 71 0 75 0;
463#X connect 74 0 19 0;
464#X connect 75 0 18 0;
465#X connect 76 0 46 0;
466#X connect 76 1 47 0;
467#X connect 76 2 67 0;
468#X connect 77 0 76 0;
469#X connect 81 0 67 0;
470#X connect 82 0 81 0;
471#X connect 83 0 76 0;
472#X connect 85 0 67 0;