File: list-sort.pd

package info (click to toggle)
pd-list-abs 0.1-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 756 kB
  • sloc: makefile: 289
file content (193 lines) | stat: -rw-r--r-- 4,508 bytes parent folder | download | duplicates (3)
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
#N canvas 422 43 782 540 10;
#X obj 129 310 list split 1;
#X obj 57 266 list-len;
#X obj 163 331 list split 1;
#X obj 129 373 list append;
#X obj 57 347 list;
#X obj 57 287 > 0;
#X obj 150 472 outlet;
#X obj 57 308 sel 1 0;
#X obj 163 49 inlet;
#X text 55 513 2008 Michal Seta;
#X obj 233 393 list prepend;
#X obj 150 450 list append;
#X obj 452 140 loadbang;
#X obj 387 52 inlet;
#N canvas 0 0 552 424 mux 0;
#X obj 40 52 inlet;
#X obj 153 52 inlet;
#X obj 255 49 inlet;
#X obj 40 266 spigot 1;
#X obj 153 266 spigot;
#X obj 255 223 unpack 0 0;
#X msg 255 177 1 0;
#X msg 306 195 0 1;
#X obj 357 92 select 0;
#X obj 255 70 select asc desc;
#X obj 40 317 outlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 1 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X restore 200 252 pd mux;
#X obj 387 201 list append \$1;
#X obj 387 171 t b a;
#X obj 330 392 t a;
#X obj 163 163 t a a a a b;
#X obj 163 120 t a b;
#X text 292 283 [list-sort] sort an incoming list of numerical values
in an ascending or descending order;
#N canvas 294 34 842 735 minmaxpos 0;
#X obj 128 97 list-drip;
#X obj 128 120 route float;
#X obj 159 256 f;
#X obj 106 664 outlet;
#X obj 165 639 f;
#X obj 165 666 outlet;
#X obj 106 575 t b b;
#X obj 106 10 inlet;
#X obj 106 636 f;
#N canvas 0 0 450 300 once 0;
#X obj 110 75 inlet;
#X obj 105 187 spigot 1;
#X obj 110 104 t b f;
#X msg 125 151 0;
#X msg 165 99 1;
#X obj 165 63 inlet;
#X obj 102 219 outlet;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 1 1;
#X connect 4 0 1 1;
#X connect 5 0 4 0;
#X restore 262 183 pd once;
#X obj 275 258 f;
#X obj 244 257 max;
#X obj 128 256 min;
#X text 323 183 prime [min] and [max] with first item once;
#N canvas 0 0 450 300 count 0;
#X obj 120 148 f 0;
#X obj 148 149 + 1;
#X obj 163 100 0;
#X obj 117 24 inlet;
#X obj 119 176 outlet;
#X obj 181 25 inlet;
#X obj 114 47 b;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X restore 168 371 pd count;
#X obj 128 470 change;
#X obj 244 472 change;
#X obj 128 527 f;
#X obj 244 525 f;
#X obj 128 495 b;
#X obj 244 496 b;
#X msg 429 356 set \$1;
#X msg 601 357 0;
#X obj 106 30 t b a b b;
#X obj 128 150 t a a b a;
#X text 637 358 reset positions;
#X text 483 356 set change;
#X text 302 475 if min or max changes \, store the new positions.;
#X text 227 24 output positions of min and max float in a list (zero-based)
;
#X connect 0 0 1 0;
#X connect 1 0 24 0;
#X connect 2 0 12 1;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 6 1 4 0;
#X connect 7 0 23 0;
#X connect 8 0 3 0;
#X connect 9 0 11 1;
#X connect 9 0 12 1;
#X connect 9 0 21 0;
#X connect 9 0 22 0;
#X connect 10 0 11 1;
#X connect 11 0 10 0;
#X connect 11 0 16 0;
#X connect 12 0 2 0;
#X connect 12 0 15 0;
#X connect 14 0 18 1;
#X connect 14 0 17 1;
#X connect 15 0 19 0;
#X connect 16 0 20 0;
#X connect 17 0 8 1;
#X connect 18 0 4 1;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 16 0;
#X connect 21 0 15 0;
#X connect 22 0 4 1;
#X connect 22 0 8 1;
#X connect 23 0 6 0;
#X connect 23 1 0 0;
#X connect 23 2 14 1;
#X connect 23 3 9 1;
#X connect 24 0 12 0;
#X connect 24 1 11 0;
#X connect 24 2 14 0;
#X connect 24 3 9 0;
#X restore 200 215 pd minmaxpos;
#X obj 163 86 list-filter;
#N canvas 0 0 677 293 checknum 0;
#X obj 131 95 route float;
#X msg 131 116 1;
#X obj 205 149 print;
#X msg 205 119 list-sort: Warning: dropped a non-number from list;
#X obj 131 70 inlet;
#X obj 131 149 outlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 252 86 pd checknum;
#X connect 0 0 3 0;
#X connect 0 1 2 0;
#X connect 1 0 5 0;
#X connect 2 0 10 0;
#X connect 2 1 3 1;
#X connect 3 0 4 1;
#X connect 4 0 18 0;
#X connect 5 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 11 0;
#X connect 8 0 22 0;
#X connect 10 0 11 1;
#X connect 10 0 17 0;
#X connect 11 0 6 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 0 1;
#X connect 15 0 14 2;
#X connect 16 0 15 0;
#X connect 16 1 15 1;
#X connect 17 0 10 1;
#X connect 18 0 1 0;
#X connect 18 1 0 0;
#X connect 18 2 21 0;
#X connect 19 0 18 0;
#X connect 19 1 10 1;
#X connect 21 0 14 0;
#X connect 21 1 14 1;
#X connect 22 0 19 0;
#X connect 22 1 23 0;
#X connect 23 0 22 1;