-
-
Notifications
You must be signed in to change notification settings - Fork 1
/
shake~.pd
248 lines (248 loc) · 6.32 KB
/
shake~.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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
#N canvas 479 51 801 785 10;
#X declare -path presets/;
#X declare -path abs/;
#X obj 113 168 hsl 128 15 0 127 0 0 \$0-vel-send \$0-vel-rec VEL 0
8 0 10 -1 -262144 -262144 12700 1;
#X obj 143 477 outlet~;
#X obj 52 242 hsl 128 15 0 127 0 0 empty \$0-pitch-rec PITCH 0 8 0
10 -1 -262144 -262144 6000 1;
#X obj 477 215 hradio 15 1 0 8 empty \$0-presets-rec PRESETS 1 8 0
10 -1 -262144 -262144 3;
#N canvas 555 358 608 466 presets 0;
#X obj 48 45 inlet;
#X obj 175 357 qlist;
#X obj 159 14 loadbang;
#X floatatom 48 66 5 0 0 0 - - -;
#X obj 48 86 sel 0 1 2 3 4 5 6 7;
#X msg 48 107 vibraphone;
#X msg 78 167 coffeemug;
#X obj 42 256 symbol;
#X obj 42 277 makefilename %s.txt;
#X msg 42 298 read \$1 \, bang;
#X msg 58 127 marimba;
#X msg 68 147 agogo;
#X msg 128 107 wood1;
#X msg 138 127 wood2;
#X msg 148 147 reso;
#X msg 158 167 marimba2;
#X obj 375 46 r ###;
#X text 211 66 TODO!!!;
#X connect 0 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 10 0;
#X connect 4 2 11 0;
#X connect 4 3 6 0;
#X connect 4 4 12 0;
#X connect 4 5 13 0;
#X connect 4 6 14 0;
#X connect 4 7 15 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 10 0 7 0;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 13 0 7 0;
#X connect 14 0 7 0;
#X connect 15 0 7 0;
#X restore 481 271 pd presets;
#X obj 12 270 s \$0-pitch;
#N canvas 337 444 631 395 implement 0;
#X obj 37 21 inlet select;
#X msg 37 128 label IMPULSE;
#X obj 37 92 sel 0 1 2;
#X msg 47 148 label NOISE;
#X msg 57 168 label STICK;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-residual 22558 float 0;
#X coords 0 1 22557 -1 100 100 1 0 0;
#X restore 271 35 graph;
#X obj 271 140 loadbang;
#X obj 271 224 soundfiler;
#X obj 271 245 / 44.1;
#X floatatom 271 266 5 0 0 0 - - -;
#X obj 271 161 f \$0;
#X obj 271 182 makefilename %d-residual;
#X msg 271 203 read -resize audio/chopstick.aiff \$1;
#X obj 37 219 s \$0-implement-label;
#X obj 37 42 s \$0-implement;
#X connect 0 0 2 0;
#X connect 0 0 14 0;
#X connect 1 0 13 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 2 2 4 0;
#X connect 3 0 13 0;
#X connect 4 0 13 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 7 0;
#X restore 339 486 pd implement;
#X obj 113 202 hsl 128 15 0 127 0 0 empty \$0-size-rec SIZE 0 8 0 10
-1 -262144 -262144 6400 1;
#X obj 589 28 declare -path presets/;
#X obj 305 136 snapshot~;
#X obj 378 217 s \$0-size;
#X obj 305 157 s \$0-inlet-pitch;
#X obj 589 48 declare -path abs/;
#X obj 327 417 hsl 128 15 0 127 0 0 empty \$0-mallet-rec MALLET 0 8
0 10 -1 -262144 -262144 12700 1;
#X obj 418 22 loadbang;
#X obj 418 43 f \$0;
#X msg 418 64 \; \$1-presets-rec 3 \; \$1-pitch-rec 60 \; \$1-vel-rec
127 \; \$1-mallet-rec 127 \; \$1-size-rec 64 \; \$1-particles-rec 64
\;;
#X obj 380 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 293 266 r \$0-particles-send;
#N canvas 755 282 604 595 shake-algorithm 1;
#X obj 119 48 / 127;
#X obj 134 108 / 127;
#X obj 119 130 * 1;
#X obj 119 181 moses 0.001;
#X text 198 181 < min energy;
#X msg 119 202 0;
#X obj 334 37 loadbang;
#X msg 334 58 1;
#X obj 334 79 metro 1;
#X obj 334 100 random 1024;
#X obj 334 186 moses 64;
#X msg 334 207 bang;
#X obj 353 278 del 1;
#X obj 61 154 f;
#X obj 119 233 * 0.999;
#X obj 119 304 * 0;
#X msg 134 269 1;
#X msg 164 269 0;
#X obj 119 345 + 0;
#X obj 134 324 f;
#X obj 119 366 t f f;
#X obj 196 396 * 0.95;
#X text 240 397 < sound decay;
#N canvas 104 80 626 599 particles 0;
#X obj 256 84 inlet bang;
#X obj 256 150 pack f f f;
#X obj 61 412 outlet~;
#X msg 256 106 \$1 1;
#X obj 61 194 particle 2800 0.995;
#X obj 61 216 particle 2240 0.995;
#X obj 61 238 particle 3360 0.995;
#X obj 61 260 particle 2800 0.995;
#X obj 61 326 particle 2800 0.995;
#X obj 61 282 particle 2240 0.995;
#X obj 61 348 particle 2240 0.995;
#X obj 256 172 route 1 2 3 4 5 6 7 8 9;
#X obj 61 304 particle 3360 0.995;
#X obj 61 368 particle 3360 0.995;
#X obj 256 128 poly 9 1;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 3 0 14 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 4 1;
#X connect 11 1 5 1;
#X connect 11 2 6 1;
#X connect 11 3 7 1;
#X connect 11 4 9 1;
#X connect 11 5 12 1;
#X connect 11 6 8 1;
#X connect 11 7 10 1;
#X connect 11 8 13 1;
#X connect 12 0 8 0;
#X connect 13 0 2 0;
#X connect 14 0 1 0;
#X connect 14 1 1 1;
#X connect 14 2 1 2;
#X restore 119 421 pd particles;
#X obj 119 442 outlet~;
#X floatatom 79 90 5 0 0 0 - - -;
#X obj 119 69 * 0.3;
#X obj 238 15 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 300 shake 0;
#X obj 109 36 inlet bang;
#X obj 109 58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 109 179 outlet;
#X msg 138 149 0;
#X obj 138 127 del 500;
#X msg 109 157 0.1;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X restore 238 35 pd shake;
#X obj 334 228 t b b b;
#X obj 379 143 max 2;
#X obj 119 27 r \$0-shake-rec;
#X obj 134 87 r \$0-vel-rec;
#X obj 379 122 r \$0-particles-rec;
#X connect 0 0 26 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 14 0;
#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 29 0;
#X connect 12 0 17 0;
#X connect 13 0 3 0;
#X connect 14 0 13 1;
#X connect 14 0 15 0;
#X connect 15 0 18 0;
#X connect 16 0 15 1;
#X connect 17 0 15 1;
#X connect 18 0 20 0;
#X connect 19 0 18 1;
#X connect 20 0 23 0;
#X connect 20 1 21 0;
#X connect 21 0 19 1;
#X connect 23 0 24 0;
#X connect 26 0 2 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 28 0 2 0;
#X connect 29 0 19 0;
#X connect 29 1 13 0;
#X connect 29 1 12 0;
#X connect 29 2 16 0;
#X connect 30 0 10 1;
#X connect 31 0 0 0;
#X connect 32 0 1 0;
#X connect 33 0 30 0;
#X restore 143 434 pd shake-algorithm;
#X obj 23 90 s \$0-shake-rec;
#X obj 23 21 inlet shake;
#X text 316 108 TODO: pitch;
#X obj 165 27 inlet particles;
#X obj 165 77 s \$0-particles-rec;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 7 0 10 0;
#X connect 9 0 11 0;
#X connect 13 0 6 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 15 0;
#X connect 19 0 1 0;
#X connect 21 0 20 0;
#X connect 23 0 24 0;
#X coords 0 785 1 784 190 150 0;