-
Notifications
You must be signed in to change notification settings - Fork 0
/
array-sort.pd
171 lines (171 loc) · 3.96 KB
/
array-sort.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
#N canvas 368 72 669 882 12;
#X obj 124 16 inlet;
#X obj 157 116 array size \$1;
#X obj 157 180 until;
#X obj 157 394 t f f;
#X obj 157 424 array get \$1 0 1;
#N canvas 715 414 375 340 message-parsing 0;
#X obj 39 26 inlet;
#X obj 179 234 outlet;
#X obj 99 234 outlet;
#X obj 179 114 symbol;
#X msg 39 104 1;
#X msg 99 104 0;
#X obj 39 50 route bang ascend descend set;
#X connect 0 0 6 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X connect 6 1 4 0;
#X connect 6 2 5 0;
#X connect 6 3 3 0;
#X restore 124 46 pd message-parsing;
#X obj 320 834 array set \$1;
#X obj 217 180 - 1;
#X obj 157 286 t f b;
#X obj 157 310 until;
#X obj 157 364 f;
#X obj 187 368 + 1;
#X msg 175 334 0;
#X obj 307 394 + 1;
#X obj 307 424 array get \$1 0 1;
#X obj 157 254 f;
#X obj 157 508 >;
#X obj 157 532 select 1;
#X obj 320 726 f;
#X obj 157 448 t f f;
#X text 360 726 input[j];
#X obj 490 726 f;
#X text 530 726 input[j+1];
#X obj 247 274 value \$0-array-sort-flag;
#X obj 247 214 loadbang;
#X msg 247 244 0;
#X obj 377 686 value \$0-array-sort-flag;
#X msg 377 656 1;
#X obj 320 750 pack f f;
#X obj 320 794 unpack f f;
#X obj 490 750 pack f f;
#X obj 157 556 t b b b b;
#X obj 157 680 value \$0-array-sort-flag;
#X obj 157 704 select 0;
#X obj 157 204 t b b;
#X obj 157 140 t f f f;
#X obj 54 781 outlet;
#X obj 54 751 array get \$0-array-sort-indices;
#X obj 124 80 t b b f;
#N canvas 845 261 612 377 swap-indices 0;
#X obj 62 211 f;
#X obj 232 211 f;
#X obj 62 235 pack f f;
#X obj 62 279 unpack f f;
#X obj 232 235 pack f f;
#X obj 62 319 array set \$0-array-sort-indices;
#X obj 80 129 array get \$0-array-sort-indices 0 1;
#X obj 250 159 array get \$0-array-sort-indices 0 1;
#X obj 62 61 inlet;
#X obj 232 61 inlet;
#X obj 422 61 inlet;
#X obj 502 61 inlet;
#X text 431 36 j;
#X text 521 36 j+1;
#X text 272 211 indices[j+1];
#X text 102 211 indices[j];
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 5 1;
#X connect 4 0 3 0;
#X connect 6 0 0 1;
#X connect 7 0 1 1;
#X connect 8 0 0 0;
#X connect 9 0 1 0;
#X connect 10 0 6 0;
#X connect 10 0 4 1;
#X connect 11 0 7 0;
#X connect 11 0 2 1;
#X restore 491 633 pd swap-indices;
#N canvas 758 308 394 324 indices-array 0;
#X obj 52 39 inlet;
#X obj 52 63 t f f;
#X obj 117 140 array define \$0-array-sort-indices;
#X msg 117 110 resize \$1;
#X obj 52 111 t f b;
#X obj 52 135 until;
#X obj 52 189 f;
#X obj 82 193 + 1;
#X msg 70 159 0;
#X obj 52 213 t f f;
#X obj 52 257 array set \$0-array-sort-indices;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 1 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 9 0;
#X connect 7 0 6 1;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X restore 411 208 pd indices-array;
#X connect 0 0 5 0;
#X connect 1 0 35 0;
#X connect 2 0 34 0;
#X connect 3 0 4 0;
#X connect 3 1 13 0;
#X connect 3 1 30 1;
#X connect 3 1 39 2;
#X connect 4 0 19 0;
#X connect 5 0 38 0;
#X connect 5 1 1 1;
#X connect 5 1 4 2;
#X connect 5 1 6 2;
#X connect 5 1 14 2;
#X connect 7 0 15 1;
#X connect 8 0 9 0;
#X connect 8 1 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 3 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 13 0 14 0;
#X connect 13 0 28 1;
#X connect 13 0 39 3;
#X connect 14 0 21 1;
#X connect 14 0 16 1;
#X connect 15 0 8 0;
#X connect 16 0 17 0;
#X connect 17 0 31 0;
#X connect 18 0 28 0;
#X connect 19 0 16 0;
#X connect 19 1 18 1;
#X connect 21 0 30 0;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 27 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 6 0;
#X connect 29 1 6 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 31 1 21 0;
#X connect 31 1 39 1;
#X connect 31 2 18 0;
#X connect 31 2 39 0;
#X connect 31 3 27 0;
#X connect 32 0 33 0;
#X connect 33 0 2 1;
#X connect 34 0 15 0;
#X connect 34 1 25 0;
#X connect 35 0 2 0;
#X connect 35 1 7 0;
#X connect 35 2 40 0;
#X connect 37 0 36 0;
#X connect 38 0 37 0;
#X connect 38 1 1 0;
#X connect 38 2 17 1;