-
Notifications
You must be signed in to change notification settings - Fork 7
/
polysample~.pd
270 lines (270 loc) · 6.36 KB
/
polysample~.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
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
#N canvas 560 667 1035 555 12;
#X obj 254 160 soundfiler;
#X floatatom 301 222 8 0 0 2 \ Samples - - 0;
#X floatatom 235 249 8 0 0 2 \ Millis - - 0;
#X floatatom 325 264 5 0 0 2 samplerate - - 0;
#X obj 244 209 / 44.1;
#X obj 450 86 f \$0;
#X obj 373 14 array define \$0-sampleData;
#X obj 254 111 pack s f;
#X msg 266 40 samples/hello.wav;
#X obj 449 37 loadbang;
#X obj 325 285 * 0.001;
#X obj 254 16 inlet name;
#X obj 687 15 inlet start%;
#X obj 687 90 *;
#X floatatom 687 64 5 0 1 1 0-1 - - 0;
#X floatatom 687 150 8 0 0 0 - - - 0;
#X floatatom 800 90 5 0 1 1 samples - - 0;
#X floatatom 801 165 8 0 0 0 - - - 0;
#X obj 799 17 inlet end%;
#X obj 578 17 inlet speed;
#X obj 708 39 t b f;
#X obj 800 61 t b f;
#X obj 89 494 outlet~;
#X obj 139 17 inlet velocity;
#X obj 139 97 clip 0 127;
#X obj 800 124 * 1;
#X floatatom 800 39 5 0 1 0 - - - 0;
#X obj 48 16 inlet pitch;
#N canvas 870 113 175 171 parseName 0;
#X obj 40 42 symbol \$1;
#X obj 38 123 outlet;
#X obj 39 96 list trim;
#X obj 40 68 pack s;
#X obj 40 12 inlet;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 282 72 pd parseName;
#X obj 450 61 t b b;
#X obj 417 51 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 262 355 + 2;
#X obj 262 326 random 6;
#X obj 262 383 / 10;
#X obj 165 497 outlet~;
#X floatatom 89 309 5 0 0 0 - - - 0;
#X floatatom 135 310 5 0 0 0 - - - 0;
#X floatatom 182 309 5 0 0 0 - - - 0;
#X msg 187 238 clear;
#X msg 237 186 stop;
#X obj 89 338 - 1;
#X obj 135 339 stripnote;
#X obj 89 375 spigot 0;
#X obj 105 275 poly 8 1;
#X obj 50 242 sel 0;
#X obj 48 179 unpack 0 0 0 0 0 0 0 0;
#X obj 106 239 pack 0 100;
#X msg 87 121 60;
#X obj 66 89 loadbang;
#X obj 90 457 clone sample-wrapper 8;
#X obj 47 214 clip 0 108;
#X floatatom 639 87 5 0 0 0 - - - 0;
#N canvas 1223 155 251 298 toAll 0;
#X obj 54 98 until;
#X msg 52 72 8;
#X obj 57 127 f;
#X obj 96 128 + 1;
#X msg 105 96 0;
#X floatatom 25 201 5 0 0 0 - - - 0;
#X obj 70 206 f;
#X obj 52 44 t b b f;
#X obj 53 158 t f b b;
#X msg 104 204 0;
#X obj 49 15 inlet;
#X obj 22 246 outlet;
#X obj 80 246 outlet;
#X obj 142 244 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 7 2 6 1;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 8 2 9 0;
#X connect 9 0 13 0;
#X connect 10 0 7 0;
#X restore 684 175 pd toAll;
#N canvas 1223 155 251 298 toAll 0;
#X obj 54 98 until;
#X msg 52 72 8;
#X obj 57 127 f;
#X obj 96 128 + 1;
#X msg 105 96 0;
#X floatatom 25 201 5 0 0 0 - - - 0;
#X obj 70 206 f;
#X obj 52 44 t b b f;
#X obj 53 158 t f b b;
#X msg 104 204 0;
#X obj 49 15 inlet;
#X obj 22 246 outlet;
#X obj 80 246 outlet;
#X obj 142 244 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 7 2 6 1;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 8 2 9 0;
#X connect 9 0 13 0;
#X connect 10 0 7 0;
#X restore 797 194 pd toAll;
#N canvas 1223 155 251 298 toAll 0;
#X obj 54 98 until;
#X msg 52 72 8;
#X obj 57 127 f;
#X obj 96 128 + 1;
#X msg 105 96 0;
#X floatatom 25 201 5 0 0 0 - - - 0;
#X obj 70 206 f;
#X obj 52 44 t b b f;
#X obj 53 158 t f b b;
#X msg 104 204 0;
#X obj 49 15 inlet;
#X obj 22 246 outlet;
#X obj 80 246 outlet;
#X obj 142 244 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 7 2 6 1;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 8 2 9 0;
#X connect 9 0 13 0;
#X connect 10 0 7 0;
#X restore 576 47 pd toAll;
#X obj 69 152 f;
#X obj 48 48 route list float bang;
#X obj 266 302 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-sampleDataL 26752 float 0;
#X coords 0 1 26751 -1 200 140 1;
#X restore 433 365 graph;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-sampleDataR 26752 float 0;
#X coords 0 1 26751 -1 200 140 1 0 0;
#X restore 650 365 graph;
#X msg 254 137 read -resize \$1 \$2-sampleDataL \$2-sampleDataR;
#X obj 320 186 unpack f f f;
#X floatatom 400 217 5 0 0 0 - - - 0;
#X obj 400 245 expr if ($f1 == 1 \, 1 \, 2);
#X obj 90 422 pack f f f f f f f f f f f;
#X obj 240 497 outlet;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 1 61 0;
#X connect 1 0 20 0;
#X connect 1 0 16 0;
#X connect 3 0 10 0;
#X connect 4 0 2 0;
#X connect 5 0 7 1;
#X connect 5 0 64 4;
#X connect 7 0 60 0;
#X connect 8 0 7 0;
#X connect 9 0 29 0;
#X connect 10 0 4 1;
#X connect 10 0 64 3;
#X connect 11 0 7 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 52 0;
#X connect 16 0 25 0;
#X connect 17 0 53 0;
#X connect 18 0 26 0;
#X connect 19 0 54 0;
#X connect 20 0 14 0;
#X connect 20 1 13 1;
#X connect 21 0 16 0;
#X connect 21 1 25 1;
#X connect 23 0 24 0;
#X connect 24 0 46 1;
#X connect 25 0 17 0;
#X connect 26 0 21 0;
#X connect 27 0 56 0;
#X connect 27 0 57 0;
#X connect 28 0 7 0;
#X connect 29 0 28 0;
#X connect 29 1 5 0;
#X connect 30 0 5 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 64 8;
#X connect 35 0 40 0;
#X connect 36 0 41 0;
#X connect 37 0 41 1;
#X connect 37 0 42 1;
#X connect 37 0 64 2;
#X connect 38 0 43 0;
#X connect 39 0 43 0;
#X connect 40 0 42 0;
#X connect 40 0 64 10;
#X connect 41 0 64 1;
#X connect 42 0 64 0;
#X connect 43 0 35 0;
#X connect 43 1 36 0;
#X connect 43 2 37 0;
#X connect 44 1 46 0;
#X connect 45 0 50 0;
#X connect 45 1 50 0;
#X connect 45 2 50 0;
#X connect 45 3 50 0;
#X connect 45 4 50 0;
#X connect 45 5 50 0;
#X connect 45 6 50 0;
#X connect 45 7 50 0;
#X connect 46 0 43 0;
#X connect 47 0 55 1;
#X connect 48 0 47 0;
#X connect 49 0 22 0;
#X connect 49 1 34 0;
#X connect 49 2 65 0;
#X connect 50 0 44 0;
#X connect 52 0 64 0;
#X connect 52 1 64 6;
#X connect 52 2 64 1;
#X connect 53 0 64 0;
#X connect 53 1 64 7;
#X connect 53 2 64 1;
#X connect 54 0 64 0;
#X connect 54 1 51 0;
#X connect 54 1 55 1;
#X connect 54 1 64 5;
#X connect 54 2 64 1;
#X connect 55 0 45 0;
#X connect 56 0 45 0;
#X connect 56 1 45 0;
#X connect 56 2 55 0;
#X connect 57 0 32 0;
#X connect 60 0 0 0;
#X connect 61 0 3 0;
#X connect 61 2 62 0;
#X connect 62 0 63 0;
#X connect 63 0 64 9;
#X connect 64 0 49 0;