working on getting the recordings
[0xa:expr_ep.git] / 0903-4.pd
1 #N canvas 345 286 484 361 12;
2 #X obj 21 135 r~ sec1;
3 #X obj 22 196 dac~;
4 #X obj 77 135 r~ sec2;
5 #X obj 132 135 r~ bass;
6 #X obj 187 135 r~ kik;
7 #N canvas 445 156 696 284 struct 0;
8 #X obj 17 178 s~ clock;
9 #X obj 80 201 s~ struct;
10 #X obj 80 178 expr~ fmod($v1*$v2 \, 1);
11 #X obj 17 150 expr~ fmod($v1*4 \, 1);
12 #X obj 231 130 expr~ floor($v1*8 \, 0);
13 #X obj 231 152 expr~ if($v1==5 \, 32 \, if($v1==6 \, 64 \, if($v1==7
14 \, 128 \, 1)));
15 #X obj 252 181 s~ long_clock;
16 #X obj 222 219 snapshot~;
17 #X obj 291 219 bang~;
18 #X obj 222 243 outlet;
19 #X obj 18 19 sig~ 0.0078125;
20 #X obj 18 41 *~ 1;
21 #X obj 17 82 phasor~;
22 #X floatatom 70 48 5 0 0 0 - - -;
23 #X obj 249 70 expr~ floor($v1*64 \, 0);
24 #X obj 249 91 s~ BAR;
25 #X msg 154 73 0;
26 #X obj 154 45 r RESET;
27 #X connect 2 0 1 0;
28 #X connect 3 0 0 0;
29 #X connect 4 0 5 0;
30 #X connect 5 0 2 1;
31 #X connect 7 0 9 0;
32 #X connect 8 0 7 0;
33 #X connect 10 0 11 0;
34 #X connect 11 0 12 0;
35 #X connect 12 0 2 0;
36 #X connect 12 0 3 0;
37 #X connect 12 0 4 0;
38 #X connect 12 0 6 0;
39 #X connect 12 0 7 0;
40 #X connect 12 0 14 0;
41 #X connect 13 0 11 1;
42 #X connect 14 0 15 0;
43 #X connect 16 0 12 1;
44 #X connect 17 0 16 0;
45 #X restore 20 50 pd struct;
46 #N canvas 607 65 816 395 synths 0;
47 #N canvas 515 166 667 557 bass1 0;
48 #X obj 62 214 mtof~;
49 #X obj 62 192 +~ 36;
50 #X obj 62 332 *~;
51 #X obj 97 332 expr~ if($v1<$v2 \, $v1/$v2 \, (1-$v1)/(1-$v2));
52 #X obj 62 97 expr~ floor($v1*4 \, 0)%2;
53 #X obj 62 119 expr~ if($v1==0 \, 0 \, $v2);
54 #X obj 97 311 expr~ fmod($v1*8 \, 1);
55 #X obj 405 332 sig~ 0.01;
56 #X obj 61 36 r~ bass1-a;
57 #X obj 152 38 r~ bass1-b;
58 #X obj 62 425 outlet~;
59 #X obj 62 236 phasor~;
60 #X obj 62 264 expr~ if($v1>$v2 \, 1 \, -1);
61 #X floatatom 228 216 5 0 0 0 - - -;
62 #X obj 62 394 *~ 0.35;
63 #X obj 228 236 sig~ 0.5;
64 #X obj 366 21 r~ BAR;
65 #X obj 365 71 expr~ if($v1==63 \, 1 \, $v2);
66 #X obj 61 164 expr~ if($v1==63 \, 0 \, $v2);
67 #X connect 0 0 11 0;
68 #X connect 1 0 0 0;
69 #X connect 2 0 14 0;
70 #X connect 3 0 17 1;
71 #X connect 4 0 5 0;
72 #X connect 5 0 18 1;
73 #X connect 6 0 3 0;
74 #X connect 7 0 3 1;
75 #X connect 8 0 4 0;
76 #X connect 8 0 6 0;
77 #X connect 9 0 5 1;
78 #X connect 11 0 12 0;
79 #X connect 12 0 2 0;
80 #X connect 13 0 15 0;
81 #X connect 14 0 10 0;
82 #X connect 15 0 12 1;
83 #X connect 16 0 17 0;
84 #X connect 16 0 18 0;
85 #X connect 17 0 2 1;
86 #X connect 18 0 1 0;
87 #X restore 537 154 pd bass1;
88 #N canvas 752 0 617 809 melody1 0;
89 #X obj 50 438 -~ 1;
90 #X obj 50 460 abs~;
91 #X obj 31 348 expr~ fmod($v1*$v2 \, 1);
92 #X obj 50 415 expr~ fmod($v1*$v2 \, 1);
93 #X floatatom 210 415 5 0 0 0 - - -;
94 #X obj 181 302 expr~ floor($v1*2 \, 0);
95 #X obj 13 601 +~;
96 #X obj 14 653 mtof~;
97 #X obj 31 369 expr~ floor($v1*4 \, 0);
98 #X obj 50 482 expr~ floor($v1*2 \, 0)+1;
99 #X obj 32 514 *~;
100 #X floatatom 76 624 5 0 0 0 - - -;
101 #X obj 31 393 expr~ if($v1==0 \, 0 \, if($v1==1 \, 12 \, if($v1==2
102 \, 0 \, 12)));
103 #X obj 12 182 expr~ fmod($v1*4 \, 1);
104 #X obj 174 208 expr~ floor($v1*4 \, 0);
105 #X obj 210 433 sig~ 2;
106 #X obj 181 325 expr~ if($v1==0 \, $v2 \, $v3);
107 #X obj 174 230 expr~ if($v1==0 \, $v2 \, if($v1==1 \, 5 \, if($v1==2
108 \, $v3 \, 12)));
109 #X obj 373 208 expr~ if($v1==0 \, 11 \, 0);
110 #X obj 14 676 lop~ 40;
111 #X obj 12 161 expr~ fmod($v1*4 \, 1);
112 #X obj 12 204 expr~ fmod($v1*2 \, 1);
113 #X obj 12 227 expr~ floor($v1*4 \, 0);
114 #X obj 271 127 expr~ floor($v1*4 \, 0);
115 #X obj 271 278 expr~ if($v1==0 \, 1 \, if($v1>=2 \, 1 \, 4));
116 #X obj 360 302 expr~ if($v1==3 \, 1 \, 2);
117 #X obj 418 255 expr~ if($v1==3 \, 11 \, 0);
118 #X obj 13 255 expr~ if($v1==0 \, $v3 \, if($v1==1 \, $v2 \, if($v1==2
119 \, 7 \, 12)));
120 #X obj 14 625 +~ 48;
121 #X obj 393 342 s~ bass1-b;
122 #X obj 76 304 s~ bass1-a;
123 #X obj 13 133 r~ clock;
124 #X obj 271 103 r~ clock;
125 #X obj 13 780 outlet~;
126 #X obj 423 179 expr~ if($v1==0 \, 2 \, 5);
127 #X obj 14 701 phasor~;
128 #X obj 15 722 expr~ if($v1>$v2 \, 1 \, -1);
129 #X obj 179 655 expr~ fmod($v1*4 \, 1);
130 #X obj 179 633 r~ clock;
131 #X obj 179 676 expr~ fmod($v1*2 \, 1);
132 #X obj 14 750 *~ 0.2;
133 #X obj 179 698 expr~ (pow($v1 \, 2)*0.8)+0.1;
134 #X obj 130 108 r~ BAR;
135 #X obj 13 573 expr~ if($v1==63 \, 12 \, $v2);
136 #X obj 76 544 expr~ if($v1==63 \, 0 \, $v2);
137 #X connect 0 0 1 0;
138 #X connect 1 0 9 0;
139 #X connect 2 0 8 0;
140 #X connect 3 0 0 0;
141 #X connect 4 0 15 0;
142 #X connect 5 0 16 0;
143 #X connect 6 0 28 0;
144 #X connect 7 0 19 0;
145 #X connect 8 0 12 0;
146 #X connect 9 0 10 1;
147 #X connect 10 0 44 1;
148 #X connect 11 0 28 1;
149 #X connect 12 0 10 0;
150 #X connect 13 0 5 0;
151 #X connect 13 0 21 0;
152 #X connect 14 0 17 0;
153 #X connect 15 0 3 1;
154 #X connect 16 0 2 1;
155 #X connect 17 0 27 1;
156 #X connect 17 0 29 0;
157 #X connect 18 0 17 1;
158 #X connect 19 0 35 0;
159 #X connect 20 0 13 0;
160 #X connect 20 0 14 0;
161 #X connect 21 0 2 0;
162 #X connect 21 0 3 0;
163 #X connect 21 0 22 0;
164 #X connect 21 0 30 0;
165 #X connect 22 0 27 0;
166 #X connect 23 0 18 0;
167 #X connect 23 0 24 0;
168 #X connect 23 0 25 0;
169 #X connect 23 0 26 0;
170 #X connect 23 0 34 0;
171 #X connect 24 0 16 1;
172 #X connect 25 0 16 2;
173 #X connect 26 0 27 2;
174 #X connect 27 0 43 1;
175 #X connect 28 0 7 0;
176 #X connect 31 0 20 0;
177 #X connect 32 0 23 0;
178 #X connect 34 0 17 2;
179 #X connect 35 0 36 0;
180 #X connect 36 0 40 0;
181 #X connect 37 0 39 0;
182 #X connect 38 0 37 0;
183 #X connect 39 0 41 0;
184 #X connect 40 0 33 0;
185 #X connect 41 0 36 1;
186 #X connect 42 0 43 0;
187 #X connect 42 0 44 0;
188 #X connect 43 0 6 0;
189 #X connect 44 0 6 1;
190 #X restore 17 65 pd melody1;
191 #N canvas 594 0 793 811 melody2 0;
192 #X obj 116 457 -~ 1;
193 #X obj 116 479 abs~;
194 #X obj 97 365 expr~ fmod($v1*$v2 \, 1);
195 #X obj 116 434 expr~ fmod($v1*$v2 \, 1);
196 #X obj 80 277 expr~ fmod($v1*2 \, 1);
197 #X obj 257 344 expr~ floor($v1*2 \, 0);
198 #X obj 80 301 expr~ floor($v1*4 \, 0);
199 #X obj 41 652 mtof~;
200 #X obj 97 386 expr~ floor($v1*4 \, 0);
201 #X obj 98 535 *~;
202 #X floatatom 84 630 5 0 0 0 - - -;
203 #X obj 97 410 expr~ if($v1==0 \, 0 \, if($v1==1 \, 12 \, if($v1==2
204 \, 0 \, 12)));
205 #X obj 80 256 expr~ fmod($v1*4 \, 1);
206 #X obj 230 256 expr~ floor($v1*4 \, 0);
207 #X obj 257 387 expr~ if($v1==0 \, $v2 \, $v3);
208 #X obj 363 212 expr~ if($v1==0 \, 4 \, 7);
209 #X obj 499 256 expr~ if($v1==0 \, 2 \, 5);
210 #X obj 41 674 lop~ 50;
211 #X obj 80 233 expr~ fmod($v1*4 \, 1);
212 #X obj 276 100 expr~ floor($v1*4 \, 0);
213 #X obj 446 387 expr~ if($v1==3 \, 1 \, 2);
214 #X obj 116 501 expr~ floor($v1*2 \, 0)+1;
215 #X obj 40 603 +~;
216 #X obj 80 322 expr~ if($v1==0 \, $v3 \, if($v1==1 \, $v2 \, if($v1==2
217 \, 11 \, 0)));
218 #X obj 477 234 expr~ if($v1==3 \, 5 \, 12);
219 #X obj 230 277 expr~ if($v1==0 \, $v2 \, if($v1==1 \, 9 \, if($v1==2
220 \, $v3 \, $v4)));
221 #X obj 642 277 expr~ if($v1==3 \, 7 \, 12);
222 #X obj 41 630 +~ 60;
223 #X obj 276 434 expr~ if($v1>=2 \, 1 \, 4);
224 #X obj 346 366 expr~ if($v1==0 \, 1 \, if($v1>=2 \, 1 \, 4));
225 #X obj 81 92 r~ clock;
226 #X obj 41 766 outlet~;
227 #X obj 41 696 phasor~;
228 #X obj 42 717 expr~ if($v1>$v2 \, 1 \, -1);
229 #X obj 219 651 r~ clock;
230 #X obj 219 717 expr~ fmod($v1*2 \, 1);
231 #X obj 219 674 expr~ abs($v1-1);
232 #X obj 219 696 expr~ fmod($v1*2 \, 1);
233 #X obj 41 743 *~ 0.2;
234 #X obj 219 740 expr~ (pow($v1 \, 2)*0.8)+0.1;
235 #X obj 42 139 r~ BAR;
236 #X obj 41 574 expr~ if($v1==63 \, 12 \, $v2);
237 #X obj 114 603 expr~ if($v1==63 \, 0 \, $v2);
238 #X connect 0 0 1 0;
239 #X connect 1 0 21 0;
240 #X connect 2 0 8 0;
241 #X connect 3 0 0 0;
242 #X connect 4 0 2 0;
243 #X connect 4 0 3 0;
244 #X connect 4 0 6 0;
245 #X connect 5 0 14 0;
246 #X connect 6 0 23 0;
247 #X connect 7 0 17 0;
248 #X connect 8 0 11 0;
249 #X connect 9 0 42 1;
250 #X connect 10 0 27 1;
251 #X connect 11 0 9 0;
252 #X connect 12 0 4 0;
253 #X connect 12 0 5 0;
254 #X connect 13 0 25 0;
255 #X connect 14 0 2 1;
256 #X connect 15 0 25 1;
257 #X connect 16 0 25 2;
258 #X connect 17 0 32 0;
259 #X connect 18 0 12 0;
260 #X connect 18 0 13 0;
261 #X connect 19 0 15 0;
262 #X connect 19 0 16 0;
263 #X connect 19 0 20 0;
264 #X connect 19 0 24 0;
265 #X connect 19 0 26 0;
266 #X connect 19 0 28 0;
267 #X connect 19 0 29 0;
268 #X connect 20 0 14 2;
269 #X connect 21 0 9 1;
270 #X connect 22 0 27 0;
271 #X connect 23 0 41 1;
272 #X connect 24 0 23 2;
273 #X connect 25 0 23 1;
274 #X connect 26 0 25 3;
275 #X connect 27 0 7 0;
276 #X connect 28 0 3 1;
277 #X connect 29 0 14 1;
278 #X connect 30 0 18 0;
279 #X connect 30 0 19 0;
280 #X connect 32 0 33 0;
281 #X connect 33 0 38 0;
282 #X connect 34 0 36 0;
283 #X connect 35 0 39 0;
284 #X connect 36 0 37 0;
285 #X connect 37 0 35 0;
286 #X connect 38 0 31 0;
287 #X connect 39 0 33 1;
288 #X connect 40 0 41 0;
289 #X connect 40 0 42 0;
290 #X connect 41 0 22 0;
291 #X connect 42 0 22 1;
292 #X restore 93 65 pd melody2;
293 #X obj 18 308 s~ sec1;
294 #N canvas 241 133 1035 613 sec2 0;
295 #X obj 9 394 osc~;
296 #X obj 10 489 outlet~;
297 #X obj 9 265 expr~ floor($v1*4 \, 0);
298 #X obj 9 323 +~ 48;
299 #X obj 9 347 mtof~;
300 #X obj 187 171 sig~ 0;
301 #X floatatom 186 141 5 0 0 0 - - -;
302 #X obj 27 171 expr~ fmod($v1+$v2 \, 1);
303 #X obj 162 265 r~ bass1-b;
304 #X obj 7 -85 r~ clock;
305 #X obj 8 109 expr~ fmod($v1*$v2 \, 1);
306 #X obj 9 369 lop~ 20;
307 #X obj 27 218 expr~ if($v1==0 \, 0 \, 12);
308 #X obj 27 192 expr~ floor($v1*2 \, 0);
309 #X obj 239 217 expr~ fmod($v1*$v2 \, 1);
310 #X obj 391 192 sig~ 8;
311 #X obj 239 242 expr~ floor($v1*2 \, 1);
312 #X obj 239 265 expr~ if($v1==0 \, 4 \, 9);
313 #X obj 9 288 expr~ if($v1==0 \, $v2 \, if($v1==1 \, $v3 \, if($v1==2
314 \, 7 \, 12)));
315 #X obj 506 388 osc~;
316 #X obj 505 185 expr~ floor($v1*4 \, 0);
317 #X obj 506 341 mtof~;
318 #X obj 514 81 expr~ fmod($v1+$v2 \, 1);
319 #X obj 505 56 expr~ fmod($v1*$v2 \, 1);
320 #X obj 514 132 expr~ if($v1==0 \, 0 \, 12);
321 #X obj 514 106 expr~ floor($v1*2 \, 0);
322 #X obj 781 170 expr~ fmod($v1*$v2 \, 1);
323 #X obj 933 145 sig~ 8;
324 #X obj 780 223 expr~ floor($v1*2 \, 1);
325 #X obj 780 246 expr~ if($v1==0 \, 4 \, 9);
326 #X obj 506 282 expr~ if($v1==0 \, $v2 \, if($v1==1 \, $v3 \, if($v1==2
327 \, 7 \, 12)));
328 #X obj 9 448 *~ 0.3;
329 #X obj 508 463 *~ 0.3;
330 #X obj 505 159 expr~ fmod($v1+$v2 \, 1);
331 #X obj 704 258 r~ bass1-b;
332 #X obj 781 198 expr~ fmod($v1+$v2 \, 1);
333 #X obj 507 363 lop~ 15;
334 #X obj 667 -10 expr~ fmod($v1*$v2 \, 1);
335 #X obj 828 -10 sig~ 4;
336 #X obj 848 12 sig~ 4;
337 #X obj 667 12 expr~ floor($v1*$v2 \, 1)%2;
338 #X obj 666 38 expr~ if($v1==0 \, 0.125 \, 0.0625);
339 #X obj 754 66 expr~ fmod($v1*$v2 \, 1);
340 #X obj 754 88 expr~ floor($v1*$v2 \, 1)%2;
341 #X obj 915 66 sig~ 2;
342 #X obj 936 87 sig~ 2;
343 #X obj 753 114 expr~ if($v1==0 \, 0.5 \, 0.25);
344 #X obj 683 198 sig~ 4;
345 #X obj 524 221 expr~ floor($v1*$v2 \, 1);
346 #X obj 524 243 expr~ if($v1==2 \, 72 \, 60);
347 #X obj 506 317 +~;
348 #X obj 188 54 sig~ 2;
349 #X obj 20 76 expr~ if($v1==0 \, 16 \, 32);
350 #X obj 20 54 expr~ floor($v1*$v2 \, 1);
351 #X obj 655 -56 expr~ floor($v1*$v2 \, 1);
352 #X obj 823 -56 sig~ 4;
353 #X obj 655 -34 expr~ if($v1==3 \, 8 \, 16);
354 #X obj 9 420 samphold~;
355 #X obj 507 435 samphold~;
356 #X floatatom 725 421 5 0 0 0 - - -;
357 #X obj 715 369 pow 2;
358 #X floatatom 707 333 5 0 0 0 - - -;
359 #X obj 169 397 -~ 0.5;
360 #X obj 168 372 phasor~ 5000;
361 #X connect 0 0 57 0;
362 #X connect 2 0 18 0;
363 #X connect 3 0 4 0;
364 #X connect 4 0 11 0;
365 #X connect 5 0 7 1;
366 #X connect 6 0 5 0;
367 #X connect 7 0 13 0;
368 #X connect 8 0 18 1;
369 #X connect 9 0 10 0;
370 #X connect 9 0 14 0;
371 #X connect 9 0 23 0;
372 #X connect 9 0 26 0;
373 #X connect 9 0 37 0;
374 #X connect 9 0 42 0;
375 #X connect 9 0 48 0;
376 #X connect 9 0 53 0;
377 #X connect 9 0 54 0;
378 #X connect 10 0 2 0;
379 #X connect 10 0 7 0;
380 #X connect 11 0 0 0;
381 #X connect 12 0 3 0;
382 #X connect 13 0 12 0;
383 #X connect 14 0 16 0;
384 #X connect 15 0 14 1;
385 #X connect 16 0 17 0;
386 #X connect 17 0 18 2;
387 #X connect 18 0 3 0;
388 #X connect 19 0 58 0;
389 #X connect 20 0 30 0;
390 #X connect 21 0 36 0;
391 #X connect 22 0 25 0;
392 #X connect 23 0 22 0;
393 #X connect 23 0 33 0;
394 #X connect 24 0 50 0;
395 #X connect 25 0 24 0;
396 #X connect 26 0 35 0;
397 #X connect 27 0 26 1;
398 #X connect 28 0 29 0;
399 #X connect 29 0 30 2;
400 #X connect 30 0 50 0;
401 #X connect 31 0 1 0;
402 #X connect 32 0 1 0;
403 #X connect 33 0 20 0;
404 #X connect 34 0 30 1;
405 #X connect 35 0 28 0;
406 #X connect 36 0 19 0;
407 #X connect 37 0 40 0;
408 #X connect 38 0 37 1;
409 #X connect 39 0 40 1;
410 #X connect 40 0 41 0;
411 #X connect 41 0 22 1;
412 #X connect 42 0 43 0;
413 #X connect 43 0 46 0;
414 #X connect 44 0 42 1;
415 #X connect 45 0 43 1;
416 #X connect 46 0 33 1;
417 #X connect 46 0 35 1;
418 #X connect 47 0 48 1;
419 #X connect 48 0 49 0;
420 #X connect 49 0 50 1;
421 #X connect 50 0 21 0;
422 #X connect 51 0 53 1;
423 #X connect 52 0 10 1;
424 #X connect 53 0 52 0;
425 #X connect 54 0 56 0;
426 #X connect 55 0 54 1;
427 #X connect 56 0 23 1;
428 #X connect 57 0 31 0;
429 #X connect 58 0 32 0;
430 #X connect 60 0 59 0;
431 #X connect 61 0 60 0;
432 #X connect 62 0 58 1;
433 #X connect 62 0 57 1;
434 #X connect 63 0 62 0;
435 #X restore 340 48 pd sec2;
436 #X obj 133 100 r~ struct;
437 #X obj 133 149 expr~ if($v1==0 \, 1 \, 0);
438 #X obj 18 221 *~;
439 #X obj 92 222 *~;
440 #X obj 358 71 r~ struct;
441 #X obj 358 120 expr~ if($v1==1 \, 1 \, 0);
442 #X obj 340 193 *~;
443 #X obj 340 236 s~ sec2;
444 #X obj 358 144 lop~ 10;
445 #X obj 33 182 lop~ 10;
446 #X obj 537 217 s~ bass;
447 #X floatatom 429 148 5 0 0 0 - - -;
448 #X obj 133 124 expr~ floor($v1*4 \, 0)%2;
449 #X obj 358 93 expr~ floor($v1*4 \, 0)%2;
450 #N canvas 426 232 896 621 drums 0;
451 #X obj 66 61 r~ clock;
452 #X obj 68 260 *~;
453 #X obj 70 473 s~ kik;
454 #X obj 67 199 phasor~;
455 #X obj 95 260 expr~ pow(abs(fmod($v1*64 \, 1)-1) \, 2);
456 #X obj 67 223 expr~ if($v1>0.5 \, 1 \, -1);
457 #X obj 67 162 +~ 50;
458 #X obj 67 106 expr~ pow(abs(fmod($v1*64 \, 1)-1) \, 8);
459 #X obj 390 61 r~ clock;
460 #X obj 392 260 *~;
461 #X obj 392 195 phasor~;
462 #X obj 391 162 +~ 0;
463 #X obj 391 106 expr~ pow(abs(fmod(fmod($v1*64 \, 1)+0.5 \, 1)-1) \,
464 32);
465 #X obj 419 260 expr~ pow(abs(fmod(fmod($v1*64 \, 1)+0.5 \, 1)-1) \,
466 8);
467 #X obj 392 141 *~ 2000;
468 #X obj 392 219 expr~ if($v1>0.1 \, 1 \, -1);
469 #X obj 67 141 *~ 200;
470 #X obj 393 283 *~ 0.3;
471 #X obj 69 291 *~ 0.3;
472 #X obj 159 356 r~ long_clock;
473 #X obj 159 401 expr~ if($v1==0 \, 0 \, 1);
474 #X obj 70 373 *~;
475 #X obj 159 379 expr~ floor($v1*16 \, 0);
476 #X obj 71 414 *~;
477 #X obj 179 443 expr~ floor($v1*64*4 \, 0);
478 #X obj 179 464 expr~ if($v1>252 \, 0 \, 1);
479 #X obj 69 441 *~ 0.7;
480 #X connect 0 0 4 0;
481 #X connect 0 0 7 0;
482 #X connect 1 0 18 0;
483 #X connect 3 0 5 0;
484 #X connect 4 0 1 1;
485 #X connect 5 0 1 0;
486 #X connect 6 0 3 0;
487 #X connect 7 0 16 0;
488 #X connect 8 0 12 0;
489 #X connect 8 0 13 0;
490 #X connect 9 0 17 0;
491 #X connect 10 0 15 0;
492 #X connect 11 0 10 0;
493 #X connect 12 0 14 0;
494 #X connect 13 0 9 1;
495 #X connect 14 0 11 0;
496 #X connect 15 0 9 0;
497 #X connect 16 0 6 0;
498 #X connect 17 0 21 0;
499 #X connect 18 0 21 0;
500 #X connect 19 0 22 0;
501 #X connect 19 0 24 0;
502 #X connect 20 0 21 1;
503 #X connect 21 0 23 0;
504 #X connect 22 0 20 0;
505 #X connect 23 0 26 0;
506 #X connect 24 0 25 0;
507 #X connect 25 0 23 1;
508 #X connect 26 0 2 0;
509 #X restore 437 202 pd drums;
510 #X obj 214 57 r~ BAR;
511 #X obj 134 172 expr~ if($v1==63 \, 1 \, $v2);
512 #X obj 538 185 *~ 0.7;
513 #X obj 340 214 *~ 0.7;
514 #X obj 18 258 *~ 0.7;
515 #X connect 0 0 22 0;
516 #X connect 1 0 7 0;
517 #X connect 2 0 8 0;
518 #X connect 4 0 11 0;
519 #X connect 5 0 17 0;
520 #X connect 6 0 21 1;
521 #X connect 7 0 24 0;
522 #X connect 8 0 24 0;
523 #X connect 9 0 18 0;
524 #X connect 10 0 13 0;
525 #X connect 11 0 23 0;
526 #X connect 13 0 11 1;
527 #X connect 14 0 7 1;
528 #X connect 14 0 8 1;
529 #X connect 16 0 13 1;
530 #X connect 16 0 14 1;
531 #X connect 17 0 6 0;
532 #X connect 18 0 10 0;
533 #X connect 20 0 21 0;
534 #X connect 21 0 14 0;
535 #X connect 22 0 15 0;
536 #X connect 23 0 12 0;
537 #X connect 24 0 3 0;
538 #X restore 20 100 pd synths;
539 #X obj 23 74 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
540 -1 -1 358 1;
541 #N canvas 750 336 504 355 rec 0;
542 #X obj 23 72 r~ sec1;
543 #X obj 79 72 r~ sec2;
544 #X obj 134 72 r~ bass;
545 #X obj 189 72 r~ kik;
546 #X obj 23 153 writesf~ 2;
547 #X msg 320 74 start;
548 #X msg 412 73 stop;
549 #X obj 247 73 savepanel;
550 #X obj 247 36 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
551 -1;
552 #X msg 247 100 open \$1;
553 #X obj 320 24 t b b;
554 #X obj 352 47 s RESET;
555 #X obj 320 2 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
556 -1;
557 #X connect 0 0 4 0;
558 #X connect 0 0 4 1;
559 #X connect 1 0 4 0;
560 #X connect 1 0 4 1;
561 #X connect 2 0 4 0;
562 #X connect 2 0 4 1;
563 #X connect 3 0 4 0;
564 #X connect 3 0 4 1;
565 #X connect 5 0 4 0;
566 #X connect 6 0 4 0;
567 #X connect 7 0 9 0;
568 #X connect 8 0 7 0;
569 #X connect 9 0 4 0;
570 #X connect 10 0 5 0;
571 #X connect 10 1 11 0;
572 #X connect 12 0 10 0;
573 #X restore 90 50 pd rec;
574 #X connect 0 0 1 0;
575 #X connect 0 0 1 1;
576 #X connect 2 0 1 0;
577 #X connect 2 0 1 1;
578 #X connect 3 0 1 0;
579 #X connect 3 0 1 1;
580 #X connect 4 0 1 1;
581 #X connect 4 0 1 0;
582 #X connect 5 0 7 0;