-
Notifications
You must be signed in to change notification settings - Fork 0
/
array-shift.pd
53 lines (53 loc) · 1.15 KB
/
array-shift.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
#N canvas 542 348 357 513 12;
#X obj 47 44 inlet;
#X obj 47 164 array size \$1;
#X obj 47 218 until;
#X obj 47 272 f;
#X obj 77 276 + 1;
#X msg 65 242 0;
#X obj 47 306 t f f;
#N canvas 634 433 341 309 message-parsing 0;
#X obj 39 26 inlet;
#X obj 39 50 route set;
#X obj 179 234 outlet;
#X obj 99 234 outlet;
#X obj 179 114 symbol;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 4 0 2 0;
#X restore 47 74 pd message-parsing;
#X obj 47 458 array set \$1;
#X obj 186 260 array get \$1;
#X obj 47 428 list store;
#X obj 47 336 +;
#X obj 47 194 t f b f;
#X obj 47 360 mod;
#X msg 47 384 get \$1;
#X obj 47 98 t b f b;
#X obj 70 131 * -1;
#X connect 0 0 7 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 11 0;
#X connect 6 1 8 1;
#X connect 7 0 15 0;
#X connect 7 1 1 1;
#X connect 7 1 8 2;
#X connect 7 1 9 2;
#X connect 9 0 10 1;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 2 0;
#X connect 12 1 5 0;
#X connect 12 2 13 1;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 15 0 1 0;
#X connect 15 1 16 0;
#X connect 15 2 9 0;
#X connect 16 0 11 1;