-
Notifications
You must be signed in to change notification settings - Fork 7
/
sample~.pd
260 lines (260 loc) · 6.68 KB
/
sample~.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
#N canvas 785 527 1030 771 12;
#X obj 254 160 soundfiler;
#X floatatom 284 203 8 0 0 2 \ Samples - - 0;
#X floatatom 301 315 8 0 0 2 \ Millis - - 0;
#X floatatom 375 225 5 0 0 2 samplerate - - 0;
#X obj 303 278 / 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 375 246 * 0.001;
#X obj 254 16 inlet name;
#X obj 49 517 vline~;
#X floatatom 149 399 8 0 0 0 - - - 0;
#X obj 49 361 f;
#X msg 132 456 stop;
#X msg 177 480 \$1 100;
#X obj 149 428 / 1;
#X floatatom 184 428 5 0.5 2 0 - - - 0;
#X obj 242 379 hsl 50 15 0.1 2 0 0 empty empty Speed -2 -8 0 10 #fcfcc4
#000000 #000000 0 1;
#X obj 687 15 inlet start%;
#X obj 687 118 *;
#X floatatom 687 92 5 0 1 1 0-1 - - 0;
#X floatatom 687 150 8 0 0 0 - - - 0;
#X obj 687 177 s \$0-start;
#X obj 79 281 r \$0-start;
#X floatatom 800 121 5 0 1 1 samples - - 0;
#X floatatom 800 186 8 0 0 0 - - - 0;
#X obj 799 17 inlet end%;
#X obj 800 213 s \$0-end;
#X obj 201 282 r \$0-end;
#X obj 82 413 r \$0-end;
#X obj 578 17 inlet speed;
#X floatatom 578 42 5 0 10 0 - - - 0;
#X obj 152 365 t b f;
#X obj 909 17 inlet scrub;
#X obj 909 108 *;
#X floatatom 909 81 5 0 1 1 0-1 - - 0;
#X floatatom 909 139 8 0 0 0 - - - 0;
#X obj 909 166 s \$0-scrub;
#X obj 177 455 r \$0-scrub;
#X obj 708 67 t b f;
#X obj 800 92 t b f;
#X obj 95 317 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 85 338 expr (max($f1 \, $f2) - min($f1 \, $f2)) / $f3;
#X obj 49 688 outlet~;
#X obj 139 17 inlet velocity;
#X obj 139 70 / 127;
#X obj 139 44 clip 0 127;
#X obj 800 155 * 1;
#X obj 49 659 *~ 0.8;
#X obj 49 453 pack 0 f f;
#X floatatom 800 39 5 0 1 0 - - - 0;
#X msg 49 480 \$1 \, \$2 \$3;
#X obj 67 601 vline~;
#X obj 49 626 *~;
#X msg 79 574 0 3 \, 1 0 3;
#X obj 11 290 delay 3;
#N canvas 240 315 551 381 midi-p-shift 0;
#X obj 24 7 inlet midi-pitch;
#X msg 43 60 1 1.059 1.122 1.189 1.26 1.334 1.414 1.498 1.578 1.682
1.782 1.888, f 68;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-pitch-ratios 12 float 3;
#A 0 1 1.059 1.122 1.189 1.26 1.334 1.414 1.498 1.578 1.682 1.782 1.888
;
#X coords 0 2 12 1 120 50 1 0 0;
#X restore 250 108 graph;
#X obj 43 87 array set \$0-pitch-ratios;
#X obj 42 33 loadbang;
#X obj 24 338 outlet playback-speed;
#X obj 71 189 array get \$0-pitch-ratios;
#X floatatom 72 219 5 0 0 0 - - - 0;
#X floatatom 24 231 5 0 0 0 - - - 0;
#X floatatom 24 307 5 0 0 0 - - - 0;
#X floatatom 24 158 5 0 127 0 - - - 0;
#X obj 24 181 / 12;
#X obj 24 205 int;
#X obj 24 256 - 2;
#X obj 24 281 expr (pow(2 \, $f1) / 8.0) * $f2;
#X obj 71 160 % 12;
#X obj 24 118 t f f;
#X connect 0 0 16 0;
#X connect 1 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 14 1;
#X connect 8 0 13 0;
#X connect 9 0 5 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 13 0 14 0;
#X connect 14 0 9 0;
#X connect 15 0 6 0;
#X connect 16 0 10 0;
#X connect 16 1 15 0;
#X restore 156 257 pd midi-p-shift;
#X obj 46 200 t b b f;
#X floatatom 46 167 5 0 0 0 - - - 0;
#X msg 64 103 60;
#X obj 64 76 loadbang;
#X obj 47 16 inlet pitch;
#X obj 578 111 moses 12;
#X obj 578 85 clip 0.1 127;
#X floatatom 581 203 5 0 0 0 - - - 0;
#X obj 46 135 f;
#X obj 103 226 moses 12;
#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 137 98 pow 1.3;
#X obj 143 175 sel 0;
#X obj 555 532 delay 0;
#X obj 555 563 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 555 690 outlet;
#X text 561 663 Bang at end;
#X obj 199 306 t b f;
#X obj 800 65 clip 0 1;
#X obj 687 43 clip 0 1;
#X obj 909 49 clip 0 1;
#X floatatom 191 210 5 0 127 0 - - - 0;
#X msg 254 137 read -resize \$1 \$2-sampleDataL \$2-sampleDataR;
#X obj 243 727 outlet~;
#X obj 243 664 *~ 0.8;
#X obj 243 639 *~;
#X obj 49 549 tabread4~ \$0-sampleDataL;
#X obj 243 547 tabread4~ \$0-sampleDataR;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-sampleDataL 298924 float 2;
#X coords 0 1 298924 -1 200 140 1 0 0;
#X restore 474 289 graph;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-sampleDataR 298924 float 2;
#X coords 0 1 298924 -1 200 140 1 0 0;
#X restore 711 290 graph;
#X obj 374 191 unpack f f f;
#X floatatom 455 218 5 0 0 0 - - - 0;
#X obj 155 691 *~ 0;
#X obj 454 245 expr if ($f1 == 1 \, 1 \, 0);
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 1 90 0;
#X connect 1 0 41 0;
#X connect 1 0 36 1;
#X connect 1 0 26 0;
#X connect 2 0 13 0;
#X connect 3 0 10 0;
#X connect 4 0 2 0;
#X connect 5 0 7 1;
#X connect 7 0 82 0;
#X connect 8 0 7 0;
#X connect 9 0 70 0;
#X connect 10 0 4 1;
#X connect 10 0 44 2;
#X connect 11 0 7 0;
#X connect 12 0 86 0;
#X connect 12 0 87 0;
#X connect 13 0 17 0;
#X connect 14 0 51 0;
#X connect 15 0 12 0;
#X connect 16 0 12 0;
#X connect 17 0 51 2;
#X connect 17 0 73 1;
#X connect 18 0 17 1;
#X connect 19 0 34 0;
#X connect 20 0 79 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 25 0 14 1;
#X connect 25 0 44 0;
#X connect 26 0 49 0;
#X connect 27 0 29 0;
#X connect 28 0 52 0;
#X connect 30 0 77 0;
#X connect 31 0 51 1;
#X connect 32 0 33 0;
#X connect 33 0 65 0;
#X connect 34 0 13 0;
#X connect 34 1 18 0;
#X connect 35 0 80 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 40 0 16 0;
#X connect 41 0 22 0;
#X connect 41 1 21 1;
#X connect 42 0 26 0;
#X connect 42 1 49 1;
#X connect 43 0 44 0;
#X connect 44 0 13 0;
#X connect 46 0 48 0;
#X connect 47 0 71 0;
#X connect 48 0 47 0;
#X connect 48 0 72 0;
#X connect 49 0 27 0;
#X connect 50 0 45 0;
#X connect 50 0 92 0;
#X connect 51 0 53 0;
#X connect 52 0 78 0;
#X connect 53 0 12 0;
#X connect 54 0 55 1;
#X connect 54 0 85 1;
#X connect 55 0 50 0;
#X connect 56 0 54 0;
#X connect 57 0 14 0;
#X connect 58 0 34 0;
#X connect 59 0 57 0;
#X connect 59 0 73 0;
#X connect 59 1 56 0;
#X connect 59 2 68 0;
#X connect 60 0 59 0;
#X connect 61 0 67 1;
#X connect 62 0 61 0;
#X connect 63 0 67 0;
#X connect 64 0 34 0;
#X connect 64 0 66 0;
#X connect 64 1 58 0;
#X connect 65 0 64 0;
#X connect 65 0 67 1;
#X connect 67 0 60 0;
#X connect 68 0 34 0;
#X connect 68 1 58 0;
#X connect 69 0 7 0;
#X connect 70 0 69 0;
#X connect 70 1 5 0;
#X connect 71 0 50 1;
#X connect 72 0 15 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 77 0 43 0;
#X connect 77 1 44 1;
#X connect 78 0 42 0;
#X connect 79 0 22 0;
#X connect 80 0 37 0;
#X connect 81 0 58 0;
#X connect 82 0 0 0;
#X connect 84 0 83 0;
#X connect 85 0 84 0;
#X connect 86 0 55 0;
#X connect 87 0 85 0;
#X connect 90 0 3 0;
#X connect 90 2 91 0;
#X connect 91 0 93 0;
#X connect 92 0 83 0;
#X connect 93 0 92 1;