pianorollseq.pd 12.5 KB
Newer Older
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
#N struct 1003.vertgrid float x float y float w float h;
#N canvas 705 99 1045 815 10;
#N canvas 135 496 1039 708 testfeld 1;
#X scalar 1003.vertgrid 50 20 15 672 \;;
#X scalar 1003.vertgrid 65 20 15 672 \;;
#X scalar 1003.vertgrid 80 20 15 672 \;;
#X scalar 1003.vertgrid 95 20 15 672 \;;
#X scalar 1003.vertgrid 110 20 15 672 \;;
#X scalar 1003.vertgrid 125 20 15 672 \;;
#X scalar 1003.vertgrid 140 20 15 672 \;;
#X scalar 1003.vertgrid 155 20 15 672 \;;
#X scalar 1003.vertgrid 170 20 15 672 \;;
#X scalar 1003.vertgrid 185 20 15 672 \;;
#X scalar 1003.vertgrid 200 20 15 672 \;;
#X scalar 1003.vertgrid 215 20 15 672 \;;
#X scalar 1003.vertgrid 230 20 15 672 \;;
#X scalar 1003.vertgrid 245 20 15 672 \;;
#X scalar 1003.vertgrid 260 20 15 672 \;;
#X scalar 1003.vertgrid 275 20 15 672 \;;
#X scalar 1003.vertgrid 290 20 15 672 \;;
#X scalar 1003.vertgrid 305 20 15 672 \;;
#X scalar 1003.vertgrid 320 20 15 672 \;;
#X scalar 1003.vertgrid 335 20 15 672 \;;
#X scalar 1003.vertgrid 350 20 15 672 \;;
#X scalar 1003.vertgrid 365 20 15 672 \;;
#X scalar 1003.vertgrid 380 20 15 672 \;;
#X scalar 1003.vertgrid 395 20 15 672 \;;
#X scalar 1003.vertgrid 410 20 15 672 \;;
#X scalar 1003.vertgrid 425 20 15 672 \;;
#X scalar 1003.vertgrid 440 20 15 672 \;;
#X scalar 1003.vertgrid 455 20 15 672 \;;
#X scalar 1003.vertgrid 470 20 15 672 \;;
#X scalar 1003.vertgrid 485 20 15 672 \;;
#X scalar 1003.vertgrid 500 20 15 672 \;;
#X scalar 1003.vertgrid 515 20 15 672 \;;
#X scalar 1003.vertgrid 530 20 15 672 \;;
#X scalar 1003.vertgrid 545 20 15 672 \;;
#X scalar 1003.vertgrid 560 20 15 672 \;;
#X scalar 1003.vertgrid 575 20 15 672 \;;
#X scalar 1003.vertgrid 590 20 15 672 \;;
#X scalar 1003.vertgrid 605 20 15 672 \;;
#X scalar 1003.vertgrid 620 20 15 672 \;;
#X scalar 1003.vertgrid 635 20 15 672 \;;
#X scalar 1003.vertgrid 650 20 15 672 \;;
#X scalar 1003.vertgrid 665 20 15 672 \;;
#X scalar 1003.vertgrid 680 20 15 672 \;;
#X scalar 1003.vertgrid 695 20 15 672 \;;
#X scalar 1003.vertgrid 710 20 15 672 \;;
#X scalar 1003.vertgrid 725 20 15 672 \;;
#X scalar 1003.vertgrid 740 20 15 672 \;;
#X scalar 1003.vertgrid 755 20 15 672 \;;
#X scalar 1003.vertgrid 770 20 15 672 \;;
#X scalar 1003.vertgrid 785 20 15 672 \;;
#X scalar 1003.vertgrid 800 20 15 672 \;;
#X scalar 1003.vertgrid 815 20 15 672 \;;
#X scalar 1003.vertgrid 830 20 15 672 \;;
#X scalar 1003.vertgrid 845 20 15 672 \;;
#X scalar 1003.vertgrid 860 20 15 672 \;;
#X scalar 1003.vertgrid 875 20 15 672 \;;
#X scalar 1003.vertgrid 890 20 15 672 \;;
#X scalar 1003.vertgrid 905 20 15 672 \;;
#X scalar 1003.vertgrid 920 20 15 672 \;;
#X scalar 1003.vertgrid 935 20 15 672 \;;
#X scalar 1003.vertgrid 950 20 15 672 \;;
#X scalar 1003.vertgrid 965 20 15 672 \;;
#X scalar 1003.vertgrid 980 20 15 672 \;;
#X scalar 1003.vertgrid 995 20 15 672 \;;
Roman Haefeli's avatar
Roman Haefeli committed
68
#X restore 39 55 pd testfeld;
69
#X obj 346 184 s pd-testfeld;
70
#X msg 622 275 clear;
71
#X msg 325 58 scalar rechteck 20 100 20 64 555;
72
#X obj 583 390 s pd-testfeld;
73
#X obj 67 616 s pd-testfeld;
Roman Haefeli's avatar
Roman Haefeli committed
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
#N canvas 1083 335 554 421 rechteck-template 0;
#X obj 51 231 get rechteck x y len vel;
#X floatatom 51 330 5 0 0 0 - - -, f 5;
#X floatatom 98 330 5 0 0 0 - - -, f 5;
#X floatatom 145 330 5 0 0 0 - - -, f 5;
#X obj 51 198 t p p;
#X obj 371 237 int;
#X obj 192 261 max 0;
#X obj 192 284 min 127;
#X obj 371 209 / 14.2;
#X obj 51 175 route click change;
#X obj 307 296 set rechteck vel color;
#X obj 307 184 t a a;
#X obj 192 307 t a a;
#X floatatom 192 330 5 0 0 0 - - -, f 5;
#X obj 370 260 * 100;
#X obj 104 147 print rechteck;
#X obj 32 141 t a a a;
#X obj 32 375 outlet;
93
94
95
96
97
#X obj 32 54 filledpolygon -v vis color 555 1 0 0 0 13 len(0:1000)(12:1012)
13 len(0:1000)(12:1012) 0;
#X obj 32 105 struct rechteck float x float y float len float vel float
color float id float vis;
#X obj 32 34 drawnumber -v vis vel 1 -14 0;
Roman Haefeli's avatar
Roman Haefeli committed
98
99
100
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 0 2 3 0;
101
#X connect 0 3 6 0;
Roman Haefeli's avatar
Roman Haefeli committed
102
#X connect 4 0 0 0;
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#X connect 4 1 10 2;
#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 7 0 12 0;
#X connect 8 0 5 0;
#X connect 9 0 4 0;
#X connect 9 1 4 0;
#X connect 11 0 10 0;
#X connect 11 1 8 0;
#X connect 12 0 13 0;
#X connect 12 1 11 0;
#X connect 14 0 10 1;
#X connect 16 0 17 0;
#X connect 16 1 9 0;
#X connect 16 2 15 0;
#X connect 19 0 16 0;
Roman Haefeli's avatar
Roman Haefeli committed
119
120
121
122
123
124
125
126
127
128
129
130
131
#X restore 252 253 pd rechteck-template;
#X obj 376 529 t p p;
#X obj 376 560 get raster x y;
#X obj 376 589 pack f f;
#X obj 376 612 outlet;
#X obj 67 276 route click;
#X obj 67 324 b;
#X obj 67 453 pointer;
#X obj 67 300 t a p;
#X obj 67 350 t b b;
#X obj 67 373 del 0;
#X obj 67 400 f;
#X msg 110 376 1;
132
#X msg 252 359 0;
Roman Haefeli's avatar
Roman Haefeli committed
133
134
135
136
#X obj 67 426 sel 1;
#X obj 67 481 get raster x y;
#X obj 67 504 pack f f;
#N canvas 0 99 483 432 detect_double_click 0;
137
138
#X obj 91 101 -;
#X obj 90 76 t a a;
Roman Haefeli's avatar
Roman Haefeli committed
139
140
141
#X obj 19 23 inlet;
#X text 109 21 this detects two clicks on the same scalar within a
certain period.;
142
143
144
145
#X obj 19 75 t b b;
#X obj 19 99 del 300;
#X msg 19 122 0;
#X msg 52 123 1;
Roman Haefeli's avatar
Roman Haefeli committed
146
#X obj 19 48 t b a;
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#X obj 91 166 spigot 0;
#X obj 91 203 outlet;
#X obj 91 126 sel 0;
#X connect 0 0 11 0;
#X connect 1 0 0 1;
#X connect 1 1 0 0;
#X connect 2 0 8 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 9 1;
#X connect 7 0 9 1;
#X connect 8 0 4 0;
#X connect 8 1 1 0;
Roman Haefeli's avatar
Roman Haefeli committed
161
#X connect 9 0 10 0;
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
#X connect 11 0 9 0;
#X restore 279 398 pd detect_double_click;
#X obj 130 522 f;
#X obj 130 545 t a a;
#X obj 177 532 + 1;
#X msg 67 592 scalar rechteck \$1 \$2 20 64 400 \$3 1;
#X obj 67 527 t a b;
#X obj 67 569 list append;
#X obj 279 372 get rechteck id;
#X obj 252 277 unpack s p f;
#X obj 252 300 sel click;
#X msg 279 421 0;
#X obj 252 322 t b b;
#X obj 279 346 pointer;
#X obj 279 469 set rechteck vis;
#X obj 835 17 array define \$0.active 1000;
#X obj 835 38 array define \$0.step 1000;
#X obj 835 61 array define \$0.pitch 1000;
#X obj 835 84 array define \$0.length 1000;
#X obj 835 107 array define \$0.velocity 1000;
#X obj 673 17 loadbang;
#X obj 673 40 \$0;
#X obj 583 207 r \$0.init;
#X obj 651 16 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 673 63 \; \$1.stepcount 64 \; \$1.pitchrange 48 \; \$1.stepviswidth
15 \; \$1.stepvisheight 14 \; \$1.canvastopmargin 20 \; \$1.canvasleftmargin
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
50 \; \$1.stepkeycolor1 887 \; \$1.stepkeycolor2 777 \; \$1.griddivision
4 \; \$1.gridsubdivision 4 \; \$1.init bang \;;
#N canvas 133 127 401 394 create_horizgrid 0;
#X obj 16 86 t a b;
#X obj 16 109 until;
#X obj 16 132 f;
#X msg 54 110 0;
#X obj 67 150 + 1;
#X obj 16 62 f;
#X obj 49 62 r \$0.pitchrange;
#X text 229 320 x y w h c;
#X obj 16 271 pack f f f f f;
#N canvas 0 99 387 189 x 0;
#X obj 18 12 inlet;
#X obj 18 97 +;
#X obj 33 70 r \$0.canvasleftmargin;
#X msg 18 46 0;
#X obj 18 120 outlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
Roman Haefeli's avatar
Roman Haefeli committed
210
#X connect 3 0 1 0;
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
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
#X restore 16 233 pd x;
#N canvas 0 99 405 280 y 0;
#X obj 42 123 * 14;
#X obj 42 199 +;
#X obj 57 173 r \$0.canvastopmargin;
#X obj 63 96 r \$0.stepvisheight;
#X obj 42 35 inlet;
#X obj 42 239 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X restore 55 234 pd y;
#N canvas 0 99 418 249 w 0;
#X obj 16 17 inlet;
#X obj 16 194 outlet;
#X obj 16 103 f;
#X obj 31 77 r \$0.stepcount;
#X obj 31 127 r \$0.stepviswidth;
#X obj 16 155 *;
#X obj 16 45 b;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X restore 92 234 pd w;
#N canvas 0 99 395 171 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 90 f;
#X obj 23 113 outlet;
#X obj 38 65 r \$0.stepvisheight;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 2 1;
#X restore 135 235 pd h;
#X obj 16 156 t a a;
#X obj 16 185 t a a a a a;
#N canvas 570 378 422 271 c 0;
#X obj 20 56 mod 12;
#X obj 20 80 sel 0 2 4 5 7 9 11;
#X obj 125 102 b;
#X obj 20 130 f 887;
#X obj 125 177 f 777;
#X obj 20 32 + 5;
#X obj 64 129 r \$0.stepkeycolor1;
#X obj 132 152 r \$0.stepkeycolor2;
#X obj 20 211 t a;
#X obj 20 7 inlet;
#X obj 20 238 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 3 0;
#X connect 1 2 3 0;
#X connect 1 3 3 0;
#X connect 1 4 3 0;
#X connect 1 5 3 0;
#X connect 1 6 3 0;
#X connect 1 7 2 0;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X connect 6 0 3 1;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X restore 171 234 pd c;
#X obj 16 294 list prepend \$0;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 343 outlet;
#X msg 16 320 scalar \$1.horizgrid \$2 \$3 \$4 \$5 \$6;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 5 1;
#X connect 8 0 16 0;
#X connect 9 0 8 0;
#X connect 10 0 8 1;
#X connect 11 0 8 2;
#X connect 12 0 8 3;
#X connect 13 0 14 0;
#X connect 13 1 4 0;
#X connect 14 0 9 0;
#X connect 14 1 10 0;
#X connect 14 2 11 0;
#X connect 14 3 12 0;
#X connect 14 4 15 0;
#X connect 15 0 8 4;
#X connect 16 0 20 0;
#X connect 17 0 18 0;
#X connect 18 0 5 0;
#X connect 20 0 19 0;
#X restore 583 329 pd create_horizgrid;
#N canvas 75 102 410 167 horizgrid-template 0;
#X obj 20 73 outlet;
#X obj 19 18 filledpolygon c c 1 0 0 0 h w h w 0;
#X obj 20 44 struct \$0.horizgrid float x float y float w float h float
c;
#X connect 2 0 0 0;
#X restore 49 140 pd horizgrid-template;
#N canvas 70 107 380 157 vertgrid-template 0;
#X obj 19 66 outlet;
#X obj 19 18 filledpolygon 0 0 1 0 0 0 h w h w 0;
#X obj 19 42 struct \$0.vertgrid float x float y float w float h;
#X connect 2 0 0 0;
#X restore 69 167 pd vertgrid-template;
#X obj 583 247 t b b b;
#N canvas 133 127 401 394 create_vertgrid 1;
#X obj 16 86 t a b;
#X obj 16 109 until;
#X obj 16 132 f;
#X msg 54 110 0;
#X obj 67 150 + 1;
#X obj 16 62 f;
#N canvas 0 99 401 215 x 0;
#X obj 18 12 inlet;
#X obj 18 147 +;
#X obj 33 120 r \$0.canvasleftmargin;
#X obj 18 170 outlet;
#X obj 18 75 *;
#X obj 33 42 r \$0.stepviswidth;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X restore 16 233 pd x;
#N canvas 0 99 405 280 y 0;
#X obj 42 199 +;
#X obj 57 173 r \$0.canvastopmargin;
#X obj 42 35 inlet;
#X obj 42 239 outlet;
#X msg 42 90 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X restore 55 234 pd y;
#N canvas 0 99 418 249 w 0;
#X obj 16 17 inlet;
#X obj 16 194 outlet;
#X obj 31 127 r \$0.stepviswidth;
#X obj 16 45 b;
#X obj 16 155 f;
#X connect 0 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X restore 92 234 pd w;
#N canvas 0 99 398 252 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 163 outlet;
#X obj 38 115 r \$0.stepvisheight;
#X obj 23 91 f;
#X obj 23 140 *;
#X obj 38 66 r \$0.pitchrange;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 4 1;
#X restore 135 235 pd h;
#X obj 16 156 t a a;
#X obj 16 294 list prepend \$0;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 343 outlet;
#X obj 46 60 r \$0.stepcount;
#X text 229 320 x y w h;
#X obj 16 271 pack f f f f;
#X obj 16 185 t a a a a;
#X msg 16 320 scalar \$1.vertgrid \$2 \$3 \$4 \$5;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 17 0;
#X connect 7 0 17 1;
#X connect 8 0 17 2;
#X connect 9 0 17 3;
#X connect 10 0 18 0;
#X connect 10 1 4 0;
#X connect 11 0 19 0;
Roman Haefeli's avatar
Roman Haefeli committed
409
#X connect 12 0 13 0;
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
#X connect 13 0 5 0;
#X connect 15 0 5 1;
#X connect 17 0 11 0;
#X connect 18 0 6 0;
#X connect 18 1 7 0;
#X connect 18 2 8 0;
#X connect 18 3 9 0;
#X connect 19 0 14 0;
#X restore 602 302 pd create_vertgrid;
#X obj 69 200 print;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 6 0 31 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 9 0 10 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 13 0 21 0;
#X connect 14 0 12 0;
#X connect 14 1 13 1;
#X connect 15 0 16 0;
#X connect 15 1 18 0;
#X connect 16 0 17 0;
#X connect 17 0 20 0;
#X connect 18 0 17 1;
#X connect 19 0 17 1;
#X connect 20 0 13 0;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 22 0 28 0;
#X connect 23 0 33 0;
#X connect 24 0 25 0;
#X connect 25 0 29 1;
#X connect 25 1 26 0;
#X connect 26 0 24 1;
#X connect 27 0 5 0;
#X connect 28 0 29 0;
#X connect 28 1 24 0;
#X connect 29 0 27 0;
#X connect 30 0 23 0;
452
#X connect 31 0 32 0;
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
#X connect 31 1 35 1;
#X connect 31 1 36 1;
#X connect 32 0 34 0;
#X connect 33 0 36 0;
#X connect 34 0 19 0;
#X connect 34 1 35 0;
#X connect 35 0 30 0;
#X connect 42 0 43 0;
#X connect 43 0 46 0;
#X connect 44 0 50 0;
#X connect 45 0 43 0;
#X connect 47 0 4 0;
#X connect 49 0 52 0;
#X connect 50 0 47 0;
#X connect 50 1 51 0;
#X connect 50 2 2 0;
#X connect 51 0 4 0;