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