aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/vasp/pd-ex/granular1.pd
blob: 2ef369f91b4197b7949a0feafdabda3b0b91915f (plain)
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
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
#N canvas 62 0 630 495 10;
#N canvas 0 0 450 300 graph34 0;
#X array insert 128 float 1;
#A 0 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147 0.77301 0.707107
0.634393 0.55557 0.471397 0.382683 0.290285 0.19509 0.0980171 -3.82859e-016
-0.0980171 -0.19509 -0.290285 -0.382683 -0.471397 -0.55557 -0.634393
-0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694 -0.980785 -0.995185
-1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921 -0.83147 -0.77301
-0.707107 -0.634393 -0.55557 -0.471397 -0.382683 -0.290285 -0.19509
-0.0980171 7.04487e-016 0.0980171 0.19509 0.290285 0.382683 0.471397
0.55557 0.634393 0.707107 0.77301 0.83147 0.881921 0.92388 0.95694
0.980785 0.995185 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147
0.77301 0.707107 0.634393 0.55557 0.471397 0.382683 0.290285 0.19509
0.0980171 1.00761e-014 -0.0980171 -0.19509 -0.290285 -0.382683 -0.471397
-0.55557 -0.634393 -0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694
-0.980785 -0.995185 -1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921
-0.83147 -0.77301 -0.707107 -0.634393 -0.55557 -0.471397 -0.382683
-0.290285 -0.19509 -0.0980171 -1.99685e-014 0.0980171 0.19509 0.290285
0.382683 0.471397 0.55557 0.634393 0.707107 0.77301 0.83147 0.881921
0.92388 0.95694 0.980785 0.995185;
#X coords 0 1 127 -1 200 140 1;
#X restore 78 68 graph;
#N canvas 112 314 505 434 player 0;
#X obj 117 137 tabplay~ schnipparray;
#X obj 171 245 tabplay~ schnipparray;
#X obj 250 350 tabplay~ schnipparray;
#X obj 117 161 throw~ toex;
#X obj 171 264 throw~ toex;
#X obj 250 374 throw~ toex;
#X obj 88 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 88 73 spigot;
#X obj 85 283 s \$0-part;
#X obj 143 200 t b b;
#X obj 222 306 t b b;
#X obj 88 22 inlet;
#X msg 114 115 0 128;
#X msg 171 225 128 128;
#X msg 251 330 256 128;
#X obj 89 93 t b b;
#X msg 222 328 1;
#X msg 143 225 3;
#X msg 85 117 2;
#X connect 0 0 3 0;
#X connect 0 1 9 0;
#X connect 1 0 4 0;
#X connect 1 1 10 0;
#X connect 2 0 5 0;
#X connect 2 1 7 0;
#X connect 6 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 9 0 17 0;
#X connect 9 1 13 0;
#X connect 10 0 16 0;
#X connect 10 1 14 0;
#X connect 11 0 6 0;
#X connect 12 0 0 0;
#X connect 13 0 1 0;
#X connect 14 0 2 0;
#X connect 15 0 18 0;
#X connect 15 1 12 0;
#X connect 16 0 8 0;
#X connect 17 0 8 0;
#X connect 18 0 8 0;
#X restore 204 294 pd player;
#X obj 204 339 catch~ toex;
#X obj 204 403 dac~;
#X floatatom 76 311 0 0 0 0 - - -;
#X obj 76 271 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
10 -24198 -1 -1 11 256;
#X text 76 253 density;
#X obj 76 333 s \$0-density;
#X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1
1 1;
#X obj 76 290 * 0.001;
#X floatatom 241 429 0 0 0 0 - - -;
#X obj 241 407 env~ 32768;
#N canvas 0 0 392 261 inside 0;
#X obj 41 63 table positions;
#N canvas 0 0 478 328 create_schippler 0;
#X msg 155 114 vasp insert;
#X obj 155 162 vasp.u;
#X obj 155 138 vasp.osc 6.4;
#X msg 66 114 vasp insert;
#X obj 66 162 vasp.u;
#X obj 66 138 vasp.osc 64;
#X msg 251 115 vasp insert;
#X obj 251 163 vasp.u;
#X obj 251 139 vasp.osc 2;
#X text 56 71 create various samples to insert;
#X msg 63 216 vasp insert;
#X obj 63 261 vasp.u;
#X obj 63 239 vasp.window;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 10 0 12 0;
#X connect 12 0 11 0;
#X restore 43 113 pd create_schippler;
#N canvas 0 0 660 348 inserter 0;
#X obj 48 84 sel 1 2 3;
#N canvas 2 7 415 675 first_part 0;
#X obj 48 483 tabread positions;
#X obj 48 172 vasp.noise;
#X obj 48 238 vasp.??;
#X obj 48 192 vasp.abs;
#X obj 48 215 vasp.< 0.1;
#X obj 48 262 route list;
#X text 58 501 insert a soundfile at certain offset-position;
#X obj 48 547 vasp.+ vasp insert;
#X obj 48 120 t b b;
#X obj 126 146 vasp.= 0;
#X obj 48 70 inlet;
#X obj 103 192 r \$0-density;
#X msg 162 326 \; positions resize \$1;
#X obj 80 362 tabset positions;
#X obj 48 387 0;
#X obj 48 411 until;
#X obj 90 436 + 1;
#X obj 48 436 0;
#X msg 72 386 0;
#X obj 97 310 length;
#X obj 48 460 t f f;
#X obj 97 331 t f f;
#X obj 48 288 t b b l l;
#X obj 48 149 vasp.! 128;
#X msg 48 522 vasp 128 schnipparray \$1;
#X msg 126 125 vasp 128 schnipparray 128;
#X connect 0 0 24 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 22 0;
#X connect 8 0 23 0;
#X connect 8 1 25 0;
#X connect 10 0 8 0;
#X connect 11 0 4 1;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 20 0;
#X connect 18 0 17 1;
#X connect 19 0 21 0;
#X connect 20 0 0 0;
#X connect 20 1 16 0;
#X connect 21 0 14 1;
#X connect 21 1 12 0;
#X connect 22 0 14 0;
#X connect 22 1 18 0;
#X connect 22 2 13 0;
#X connect 22 3 19 0;
#X connect 23 0 1 0;
#X connect 24 0 7 0;
#X connect 25 0 9 0;
#X restore 48 183 pd first_part;
#N canvas 162 22 383 663 second_part 0;
#X obj 48 483 tabread positions;
#X obj 48 172 vasp.noise;
#X obj 48 238 vasp.??;
#X obj 48 192 vasp.abs;
#X obj 48 215 vasp.< 0.1;
#X obj 48 262 route list;
#X text 58 501 insert a soundfile at certain offset-position;
#X text 124 552 fuer drei teilbereiche;
#X obj 48 586 vasp.+ vasp insert;
#X obj 48 120 t b b;
#X obj 126 146 vasp.= 0;
#X obj 48 70 inlet;
#X obj 103 192 r \$0-density;
#X msg 162 323 \; positions resize \$1;
#X obj 80 359 tabset positions;
#X obj 48 384 0;
#X obj 48 408 until;
#X obj 90 433 + 1;
#X obj 48 433 0;
#X msg 72 383 0;
#X obj 97 307 length;
#X obj 48 457 t f f;
#X obj 97 328 t f f;
#X obj 48 285 t b b l l;
#X obj 48 148 vasp.! 128;
#X msg 48 525 vasp 128 schnipparray \$1;
#X obj 48 551 vasp.o+ 128;
#X msg 126 124 vasp 128 schnipparray 256;
#X connect 0 0 25 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 23 0;
#X connect 9 0 24 0;
#X connect 9 1 27 0;
#X connect 11 0 9 0;
#X connect 12 0 4 1;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 21 0;
#X connect 19 0 18 1;
#X connect 20 0 22 0;
#X connect 21 0 0 0;
#X connect 21 1 17 0;
#X connect 22 0 15 1;
#X connect 22 1 13 0;
#X connect 23 0 15 0;
#X connect 23 1 19 0;
#X connect 23 2 14 0;
#X connect 23 3 20 0;
#X connect 24 0 1 0;
#X connect 25 0 26 0;
#X connect 26 0 8 0;
#X connect 27 0 10 0;
#X restore 191 181 pd second_part;
#N canvas 427 3 562 703 third_part 0;
#X msg 155 289 \; positions resize \$1;
#X obj 73 325 tabset positions;
#X obj 41 350 0;
#X obj 41 374 until;
#X obj 83 399 + 1;
#X obj 41 399 0;
#X obj 41 445 tabread positions;
#X msg 65 349 0;
#X obj 41 134 vasp.noise;
#X obj 41 200 vasp.??;
#X obj 41 154 vasp.abs;
#X obj 41 177 vasp.< 0.1;
#X obj 90 273 length;
#X obj 41 423 t f f;
#X obj 41 224 route list;
#X obj 310 641 vasp.+ vasp insert;
#X obj 41 82 t b b;
#X obj 119 108 vasp.= 0;
#X obj 41 52 inlet;
#X obj 96 154 r \$0-density;
#X text 177 107 (clears second part);
#X text 327 499 sample-length;
#X obj 292 520 - 0;
#X text 329 519 minus offset;
#X text 292 215 this part has to write "around the corner";
#X obj 48 636 vasp.+ vasp insert;
#X msg 48 586 vasp \$1 schnipparray;
#X text 446 641 insert at end;
#X text 49 663 insert at beginning;
#X obj 90 294 t f f;
#X obj 41 251 t b b l l;
#X msg 310 565 vasp \$1 schnipparray;
#X obj 310 613 vasp.o;
#X obj 186 609 vasp.o;
#X msg 413 614 vasp \$1 insert;
#X msg 186 586 vasp \$1 insert;
#X obj 48 550 t f f;
#X obj 48 527 - 0;
#X obj 276 471 t b b f f;
#X text 73 528 already at the end;
#X obj 292 541 t f f f f;
#X obj 41 111 vasp.! 128;
#X obj 292 497 128;
#X obj 48 505 128;
#X obj 341 590 + 256;
#X msg 119 86 vasp 128 schnipparray;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 13 0;
#X connect 6 0 38 0;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 29 0;
#X connect 13 0 6 0;
#X connect 13 1 4 0;
#X connect 14 0 30 0;
#X connect 16 0 41 0;
#X connect 16 1 45 0;
#X connect 18 0 16 0;
#X connect 19 0 11 1;
#X connect 22 0 40 0;
#X connect 26 0 25 0;
#X connect 29 0 2 1;
#X connect 29 1 0 0;
#X connect 30 0 2 0;
#X connect 30 1 7 0;
#X connect 30 2 1 0;
#X connect 30 3 12 0;
#X connect 31 0 32 0;
#X connect 32 0 15 0;
#X connect 33 0 25 1;
#X connect 34 0 15 1;
#X connect 35 0 33 0;
#X connect 36 0 26 0;
#X connect 36 1 35 0;
#X connect 37 0 36 0;
#X connect 38 0 43 0;
#X connect 38 1 42 0;
#X connect 38 2 22 1;
#X connect 38 3 44 0;
#X connect 40 0 37 1;
#X connect 40 1 33 1;
#X connect 40 2 31 0;
#X connect 40 3 34 0;
#X connect 41 0 8 0;
#X connect 42 0 22 0;
#X connect 43 0 37 0;
#X connect 44 0 32 1;
#X connect 45 0 17 0;
#X restore 336 183 pd third_part;
#X obj 48 55 r \$0-part;
#X text 50 33 after a sample-part is played \, next step is calculated
;
#X text 296 84 1) generate noise \; 2) get triggering-values \; 3)
...save in positions-array \; 4) read samplevalues of positions \;
5) at every trigger insert the "insert"array;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 0 2 3 0;
#X connect 4 0 0 0;
#X restore 42 88 pd inserter;
#X obj 40 37 table schnipparray 384;
#X restore 516 119 pd inside;
#X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198
-1 -1 600 1;
#X obj 204 374 *~ 0.2;
#X text 387 445 needs the zexy library and vasp;
#X text 319 80 this array is inserted at triggering points;
#X connect 2 0 14 0;
#X connect 4 0 7 0;
#X connect 5 0 9 0;
#X connect 8 0 1 0;
#X connect 9 0 4 0;
#X connect 11 0 10 0;
#X connect 13 0 14 1;
#X connect 14 0 3 0;
#X connect 14 0 3 1;
#X connect 14 0 11 0;