-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdelay-grain~.pd
104 lines (104 loc) · 2.43 KB
/
delay-grain~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#N canvas 467 700 446 191 12;
#X obj 26 21 inlet;
#X obj 218 55 delread4~ \$2-granular-delay;
#N canvas 1330 250 490 418 pitch-shift 1;
#X obj 23 282 pack f f f, f 24;
#X obj 23 332 line~;
#X obj 23 46 t f f, f 6;
#X obj 332 126 expr pow(2 \, $f1/12);
#X obj 23 357 outlet~;
#N canvas 897 117 781 695 quantize 0;
#X obj 128 27 r \$2-quantize;
#X obj 128 81 list length;
#X obj 128 54 t a a, f 17;
#X obj 107 292 list store;
#X obj 128 108 sel 1, f 6;
#X obj 36 236 spigot 1;
#X obj 107 236 spigot 0;
#X obj 128 167 t f f;
#X msg 167 137 1;
#X obj 89 201 == 0;
#X msg 128 136 0;
#X obj 107 320 list split 1;
#X obj 147 345 t a;
#X obj 107 401 -;
#X obj 107 426 abs;
#X obj 107 451 min;
#X msg 319 431 9999;
#X obj 107 376 t f f;
#X obj 107 501 f, f 5;
#X obj 107 476 t b;
#X obj 213 381 % 12;
#X obj 107 264 t b f b f, f 46;
#X obj 426 481 / 12;
#X obj 426 506 expr round($f1) * 12;
#X obj 36 190 inlet;
#X obj 36 581 outlet;
#X obj 107 526 +;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 2 1 3 1;
#X connect 3 0 11 0;
#X connect 4 0 10 0;
#X connect 4 1 8 0;
#X connect 5 0 25 0;
#X connect 6 0 21 0;
#X connect 7 0 9 0;
#X connect 7 1 6 1;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 7 0;
#X connect 11 0 17 0;
#X connect 11 1 12 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 19 0;
#X connect 16 0 15 1;
#X connect 17 0 13 0;
#X connect 17 1 18 1;
#X connect 18 0 26 0;
#X connect 19 0 18 0;
#X connect 20 0 13 1;
#X connect 21 0 3 0;
#X connect 21 1 20 0;
#X connect 21 2 16 0;
#X connect 21 3 22 0;
#X connect 22 0 23 0;
#X connect 23 0 26 1;
#X connect 24 0 5 0;
#X connect 24 0 6 0;
#X connect 26 0 25 0;
#X restore 351 86 pd quantize;
#X obj 153 155 expr $f1 - ($f2*$f3 - $f2);
#X obj 105 47 t f f, f 20;
#X msg 23 307 \$1 \, \$3 \$2;
#X obj 332 41 r \$0-pitch;
#X obj 105 22 r \$0-dur;
#X obj 23 22 r \$0-delay;
#X obj 23 209 expr if($f2 < 0 \, $f1 - $f2 \, $f1) \; if($f2 < 0 \,
0 \, $f2);
#X connect 0 0 8 0;
#X connect 1 0 4 0;
#X connect 2 0 12 0;
#X connect 2 1 6 0;
#X connect 3 0 6 2;
#X connect 6 0 12 1;
#X connect 7 0 0 1;
#X connect 7 1 6 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 7 0;
#X connect 11 0 2 0;
#X connect 12 0 0 0;
#X connect 12 1 0 2;
#X restore 217 25 pd pitch-shift;
#X obj 220 126 outlet~;
#X obj 26 129 switch~;
#X obj 26 93 grain-skeleton~ \$1 \$2 \$0;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 1 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;