/grandel/grandelback.pd

  1#N canvas 44 67 931 693 10;
  2#X obj 573 297 winfader \$0;
  3#X obj 282 169 s \$0-gdcell;
  4#X obj 282 147 list trim;
  5#N canvas 306 27 554 506 grains 1;
  6#X obj 49 17 gdcell \$0 1 3000;
  7#N canvas 0 0 659 417 switch 0;
  8#X obj 59 37 gdcell \$0 2 3000;
  9#X obj 69 57 gdcell \$0 3 3000;
 10#X obj 79 77 gdcell \$0 4 3000;
 11#X obj 89 97 gdcell \$0 5 3000;
 12#X obj 99 117 gdcell \$0 6 3000;
 13#X obj 111 137 gdcell \$0 7 3000;
 14#X obj 119 157 gdcell \$0 8 3000;
 15#X obj 60 196 gdcell \$0 9 3000;
 16#X obj 70 216 gdcell \$0 10 3000;
 17#X obj 80 236 gdcell \$0 11 3000;
 18#X obj 90 256 gdcell \$0 12 3000;
 19#X obj 100 276 gdcell \$0 13 3000;
 20#X obj 110 296 gdcell \$0 14 3000;
 21#X obj 122 316 gdcell \$0 15 3000;
 22#X obj 130 336 gdcell \$0 16 3000;
 23#X obj 249 17 gdcell \$0 17 3000;
 24#X obj 260 38 gdcell \$0 18 3000;
 25#X obj 269 57 gdcell \$0 19 3000;
 26#X obj 279 77 gdcell \$0 20 3000;
 27#X obj 289 97 gdcell \$0 21 3000;
 28#X obj 299 117 gdcell \$0 22 3000;
 29#X obj 311 137 gdcell \$0 23 3000;
 30#X obj 319 157 gdcell \$0 24 3000;
 31#X obj 260 196 gdcell \$0 25 3000;
 32#X obj 270 216 gdcell \$0 26 3000;
 33#X obj 280 236 gdcell \$0 27 3000;
 34#X obj 290 256 gdcell \$0 28 3000;
 35#X obj 300 276 gdcell \$0 29 3000;
 36#X obj 310 296 gdcell \$0 30 3000;
 37#X obj 322 316 gdcell \$0 31 3000;
 38#X obj 330 336 gdcell \$0 32 3000;
 39#X restore 224 87 pd switch;
 40#X restore 761 224 pd grains;
 41#X obj 644 530 catch~ \$0-L;
 42#X obj 728 535 catch~ \$0-R;
 43#X msg 283 105 pan 0.5;
 44#X msg 177 71 1 1;
 45#X msg 190 167 symbol trig;
 46#X obj 162 125 stripnote;
 47#X obj 158 193 pack f s 1;
 48#X obj 283 127 list prepend global;
 49#X obj 598 99 == 0;
 50#X obj 502 98 volctl~ 0 10;
 51#X obj 530 186 volctl~ 0 10;
 52#X text 28 7 TODO: randomize parameters (gaussian) \, density function
 53\, bpfilter (or similar) \, feedback.;
 54#X text 63 46 BUGS: CPU hogging. denormals?;
 55#X obj 548 74 init 1;
 56#X obj 58 433 s \$0-speed;
 57#X obj 161 216 t l l;
 58#X msg 205 215 \$1;
 59#X obj 312 303 list trim;
 60#X obj 58 233 t b b b;
 61#X obj 311 194 list;
 62#N canvas 420 109 450 300 setsize 0;
 63#X msg 33 151 size \$1;
 64#X obj 69 128 r \$0-speed;
 65#X obj 34 109 / 100;
 66#X obj 34 130 *;
 67#X obj -11 17 inlet;
 68#X obj 31 173 s \$0-pretrigsize;
 69#X obj 130 23 inlet;
 70#X obj 172 24 inlet;
 71#X obj 215 30 inlet;
 72#X obj 34 66 mrrandom 5 800;
 73#X connect 0 0 5 0;
 74#X connect 1 0 3 1;
 75#X connect 2 0 3 0;
 76#X connect 3 0 0 0;
 77#X connect 4 0 9 0;
 78#X connect 6 0 9 1;
 79#X connect 7 0 9 2;
 80#X connect 8 0 9 3;
 81#X connect 9 0 2 0;
 82#X coords 0 0 1 1 85 60 0;
 83#X restore 295 576 pd setsize;
 84#N canvas 312 147 450 300 settransp 0;
 85#X obj 12 6 inlet;
 86#X msg 56 140 transpose \$1;
 87#X obj 54 162 s \$0-pretrigtransp;
 88#X obj 130 23 inlet;
 89#X obj 172 24 inlet;
 90#X obj 215 30 inlet;
 91#X obj 57 55 mrrandom -36 36;
 92#X connect 0 0 6 0;
 93#X connect 1 0 2 0;
 94#X connect 3 0 6 1;
 95#X connect 4 0 6 2;
 96#X connect 5 0 6 3;
 97#X connect 6 0 1 0;
 98#X restore 285 522 pd settransp;
 99#X obj 311 215 list;
100#X obj 343 214 r \$0-pretrigsize;
101#X obj 343 194 r \$0-pretrigtransp;
102#N canvas 64 178 450 300 setdelay 0;
103#X obj 19 17 inlet;
104#X msg 63 151 delay \$1;
105#X obj 61 173 s \$0-pretrigdelay;
106#X obj 139 2 inlet;
107#X obj 181 3 inlet;
108#X obj 224 9 inlet;
109#X obj 63 90 mrrandom 0 5000;
110#X obj 80 14 * 10;
111#X obj 131 34 * 10;
112#X obj 67 61 anytoquartic 0 5000;
113#X connect 0 0 6 0;
114#X connect 1 0 2 0;
115#X connect 3 0 7 0;
116#X connect 4 0 8 0;
117#X connect 5 0 6 3;
118#X connect 6 0 1 0;
119#X connect 7 0 9 0;
120#X connect 8 0 6 2;
121#X connect 9 0 6 1;
122#X restore 287 473 pd setdelay;
123#X obj 311 235 list;
124#X obj 343 234 r \$0-pretrigdelay;
125#X obj 98 187 r \$0-speed;
126#N canvas 0 0 587 345 setpan 0;
127#X obj 199 17 inlet;
128#X obj 244 66 mrrandom 0 100;
129#X obj 245 127 / 100;
130#X msg 243 151 pan \$1;
131#X obj 241 173 s \$0-pretrigpan;
132#X obj 297 -7 inlet;
133#X obj 339 -6 inlet;
134#X obj 382 0 inlet;
135#X connect 0 0 1 0;
136#X connect 1 0 2 0;
137#X connect 2 0 3 0;
138#X connect 3 0 4 0;
139#X connect 5 0 1 1;
140#X connect 6 0 1 2;
141#X connect 7 0 1 3;
142#X restore 211 403 pd setpan;
143#X obj 311 255 list;
144#X obj 342 254 r \$0-pretrigpan;
145#X obj 178 94 poly 32 1;
146#N canvas 0 0 727 328 setvol 0;
147#X obj 199 17 inlet;
148#X obj 244 66 mrrandom 0 100;
149#X obj 245 127 / 100;
150#X msg 243 151 vol \$1;
151#X obj 241 173 s \$0-pretrigvol;
152#X obj 310 -7 inlet;
153#X obj 352 -6 inlet;
154#X obj 395 0 inlet;
155#X connect 0 0 1 0;
156#X connect 1 0 2 0;
157#X connect 2 0 3 0;
158#X connect 3 0 4 0;
159#X connect 5 0 1 1;
160#X connect 6 0 1 2;
161#X connect 7 0 1 3;
162#X restore 288 428 pd setvol;
163#X obj 312 272 list;
164#X obj 342 272 r \$0-pretrigvol;
165#X obj 573 320 list prepend /grandel/ui/window;
166#X obj 573 368 s UI;
167#X obj 573 343 list trim;
168#X obj 297 406 OSCroute /vol /voldev /voldevfb;
169#X obj 299 449 OSCroute /delay /delaydev /delaydevfb;
170#X obj 298 495 OSCroute /transp /transpdev /transpdevfb;
171#X obj 298 545 OSCroute /size /sizedev /sizedevfb;
172#X obj 75 366 OSCroute /speed /speeddev /speeddevfb /pan /pandev /pandevfb
173;
174#X obj 446 345 OSCroute /onoff;
175#X obj 608 442 switchdelay 20;
176#X obj 727 569 volctl~ 0 20;
177#X obj 644 560 volctl~ 0 20;
178#X obj 643 468 switch~;
179#X obj 466 247 r OSC;
180#X obj 447 280 OSCroute /grandel;
181#X obj 550 648 delwrite~ \$0-k 5000;
182#X obj 529 165 delread~ \$0-k 5000;
183#X obj 501 22 inlet~;
184#X obj 645 584 outlet~;
185#X obj 730 590 outlet~;
186#X obj 431 306 OSCroute /global \$1;
187#X obj 565 609 _j/undenormal~;
188#X obj 712 104 singleton win512 windowing 512;
189#X obj 640 194 t f f;
190#X obj 640 214 sel 0;
191#X obj 576 276 OSCroute /window1 /window2 /winmix /freeze /feedbk;
192#X obj 809 301 / 100;
193#X obj 809 326 01toquartic;
194#X obj 640 237 0;
195#X obj 585 232 spigot;
196#X obj 58 410 mrrandom 1 5000;
197#X obj 75 390 anytoquartic 1 5000;
198#X obj 58 210 metro 200;
199#X connect 0 0 40 0;
200#X connect 2 0 1 0;
201#X connect 4 0 51 0;
202#X connect 5 0 50 0;
203#X connect 6 0 11 0;
204#X connect 7 0 36 0;
205#X connect 8 0 10 1;
206#X connect 9 0 10 0;
207#X connect 10 0 19 0;
208#X connect 11 0 2 0;
209#X connect 12 0 13 1;
210#X connect 13 0 55 0;
211#X connect 14 0 55 0;
212#X connect 17 0 13 1;
213#X connect 19 0 1 0;
214#X connect 19 1 20 0;
215#X connect 20 0 23 0;
216#X connect 20 0 26 0;
217#X connect 20 0 30 0;
218#X connect 20 0 34 0;
219#X connect 20 0 38 0;
220#X connect 21 0 1 0;
221#X connect 22 0 70 0;
222#X connect 22 1 7 0;
223#X connect 22 2 24 0;
224#X connect 22 2 25 0;
225#X connect 22 2 29 0;
226#X connect 22 2 33 0;
227#X connect 22 2 37 0;
228#X connect 23 0 21 0;
229#X connect 26 0 21 0;
230#X connect 27 0 26 1;
231#X connect 28 0 23 1;
232#X connect 30 0 21 0;
233#X connect 31 0 30 1;
234#X connect 32 0 72 1;
235#X connect 34 0 21 0;
236#X connect 35 0 34 1;
237#X connect 36 0 9 0;
238#X connect 36 1 8 0;
239#X connect 36 2 9 1;
240#X connect 38 0 21 0;
241#X connect 39 0 38 1;
242#X connect 40 0 42 0;
243#X connect 42 0 41 0;
244#X connect 43 0 37 1;
245#X connect 43 1 37 2;
246#X connect 43 2 37 3;
247#X connect 43 3 44 0;
248#X connect 44 0 29 1;
249#X connect 44 1 29 2;
250#X connect 44 2 29 3;
251#X connect 44 3 45 0;
252#X connect 45 0 25 1;
253#X connect 45 1 25 2;
254#X connect 45 2 25 3;
255#X connect 45 3 46 0;
256#X connect 46 0 24 1;
257#X connect 46 1 24 2;
258#X connect 46 2 24 3;
259#X connect 47 0 71 0;
260#X connect 47 1 70 2;
261#X connect 47 2 70 3;
262#X connect 47 3 33 1;
263#X connect 47 4 33 2;
264#X connect 47 5 33 3;
265#X connect 47 6 43 0;
266#X connect 48 0 49 0;
267#X connect 48 0 50 1;
268#X connect 48 0 51 1;
269#X connect 48 0 72 0;
270#X connect 48 1 65 0;
271#X connect 49 0 52 0;
272#X connect 50 0 59 0;
273#X connect 51 0 58 0;
274#X connect 53 0 54 0;
275#X connect 54 0 60 0;
276#X connect 56 0 14 0;
277#X connect 57 0 13 0;
278#X connect 60 0 48 0;
279#X connect 60 0 47 0;
280#X connect 60 1 48 0;
281#X connect 60 1 47 0;
282#X connect 61 0 55 0;
283#X connect 63 0 64 0;
284#X connect 63 1 14 1;
285#X connect 63 1 69 1;
286#X connect 64 0 68 0;
287#X connect 65 0 0 0;
288#X connect 65 1 0 1;
289#X connect 65 2 0 2;
290#X connect 65 3 12 0;
291#X connect 65 3 63 0;
292#X connect 65 4 66 0;
293#X connect 66 0 67 0;
294#X connect 67 0 68 0;
295#X connect 68 0 69 0;
296#X connect 69 0 14 1;
297#X connect 70 0 18 0;
298#X connect 71 0 70 1;
299#X connect 72 0 22 0;