-
Notifications
You must be signed in to change notification settings - Fork 7
/
quant.pd
239 lines (239 loc) · 5.78 KB
/
quant.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
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
#N canvas 1662 373 469 366 10;
#X obj 18 36 inlet pitch;
#X obj 127 48 inlet scale;
#X obj 59 317 outlet;
#N canvas 1015 408 474 460 list-contains 0;
#X obj 22 32 inlet val;
#X obj 228 30 inlet list;
#X obj 22 418 outlet 1or0;
#X obj 228 88 list trim;
#X obj 228 62 list prepend set;
#X text 238 169 List;
#X obj 102 62 list length;
#X obj 85 114 f;
#X obj 85 137 until;
#X obj 85 162 f;
#X obj 120 162 + 1;
#X obj 85 186 t b f;
#X obj 77 259 list split 1;
#X obj 83 63 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X floatatom 135 88 5 0 0 0 - - - 0;
#X msg 132 136 0;
#X obj 85 88 t b b;
#X obj 43 229 list split 0;
#X obj 22 381 f;
#X msg 86 355 0;
#X obj 37 285 == 0;
#X obj 37 313 sel 1;
#X obj 22 57 t b b f;
#X msg 37 340 1;
#X text 19 4 Compare number to those in a list - return boolean result
;
#X text 213 419 Andrew R. Brown - byron bay \, 2017;
#X msg 228 204 0 2 4 5 7 9 0 0 0 0 0 0;
#X connect 0 0 22 0;
#X connect 1 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 26 0;
#X connect 4 0 3 0;
#X connect 6 0 7 1;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 26 0;
#X connect 11 1 17 1;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 15 0 9 1;
#X connect 16 0 7 0;
#X connect 16 1 15 0;
#X connect 16 1 19 0;
#X connect 17 1 12 0;
#X connect 18 0 2 0;
#X connect 19 0 18 1;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 18 0;
#X connect 22 1 16 0;
#X connect 22 2 20 1;
#X connect 23 0 18 1;
#X connect 26 0 17 0;
#X restore 18 196 pd list-contains;
#X floatatom 18 82 5 0 0 0 - - - 0;
#X obj 18 218 sel 1;
#X obj 18 243 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 51 244 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 18 170 % 12;
#X obj 18 108 f;
#X obj 49 109 - 1;
#X obj 59 270 f;
#X floatatom 59 293 5 0 0 0 - - - 0;
#X obj 18 134 t f f;
#X text 117 77 test;
#X text 15 7 Quantise a number to a list of numbers (range within 0-12)
, f 59;
#N canvas 447 145 413 622 list-modulo 0;
#X obj 195 11 inlet list;
#X obj 228 97 list trim;
#X msg 229 196 0 2 4 5 7 9 0 0 0 0 0 0;
#X obj 228 71 list prepend set;
#X text 230 217 List;
#X obj 121 71 list length;
#X obj 104 123 f;
#X obj 104 146 until;
#X obj 104 171 f;
#X obj 139 171 + 1;
#X obj 103 193 t b f;
#X obj 81 72 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X floatatom 167 98 5 0 0 0 - - - 0;
#X msg 151 145 0;
#X obj 55 225 list split 0;
#X obj 48 558 outlet new-list;
#X obj 196 34 t b l;
#X obj 95 364 list trim;
#X obj 95 337 list prepend set;
#X msg 95 434 0 2 4 5 7 9 0 0 0 0 0 0;
#X obj 205 241 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 168 279 bang;
#X text 206 280 empty list;
#X obj 81 97 t b b b;
#X obj 49 473 spigot 0;
#X msg 189 443 0;
#X obj 51 409 t b b;
#X msg 51 444 1;
#X obj 49 529 list trim;
#X obj 49 502 list prepend set;
#X obj 95 283 % 12;
#X obj 318 152 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 95 390 t b a;
#X obj 95 311 list prepend;
#X obj 95 247 list split 1;
#X connect 0 0 16 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 1 0;
#X connect 5 0 6 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 2 0;
#X connect 10 1 14 1;
#X connect 11 0 23 0;
#X connect 13 0 8 1;
#X connect 14 1 34 0;
#X connect 16 0 11 0;
#X connect 16 1 3 0;
#X connect 16 1 5 0;
#X connect 17 0 32 0;
#X connect 18 0 17 0;
#X connect 19 0 24 0;
#X connect 19 0 33 1;
#X connect 20 0 21 0;
#X connect 20 0 25 0;
#X connect 21 0 33 1;
#X connect 23 0 26 0;
#X connect 23 1 6 0;
#X connect 23 2 20 0;
#X connect 23 2 13 0;
#X connect 24 0 29 0;
#X connect 25 0 24 1;
#X connect 26 0 19 0;
#X connect 26 1 27 0;
#X connect 27 0 24 1;
#X connect 28 0 15 0;
#X connect 29 0 28 0;
#X connect 30 0 33 0;
#X connect 31 0 2 0;
#X connect 32 0 19 0;
#X connect 32 1 19 0;
#X connect 33 0 18 0;
#X connect 34 0 30 0;
#X restore 127 104 pd list-modulo;
#X msg 127 174 0 2 4 5 7 9 0 0 0 0 0 0;
#X msg 157 77 60 62 64 65 67;
#X obj 127 151 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 127 127 t b a;
#X obj 250 52 loadbang;
#X obj 270 107 f \$1;
#X obj 309 107 f \$2;
#X obj 343 107 f \$3;
#X obj 380 108 f \$4;
#X obj 273 137 f \$5;
#X obj 309 138 f \$6;
#X obj 343 138 f \$7;
#X obj 380 139 f \$8;
#X obj 273 170 f \$9;
#X obj 309 171 f \$10;
#X obj 349 171 f \$11;
#X obj 387 172 f \$12;
#X text 11 342 Andrew R. Brown \, byron bay \, 2017 \, updated 2021
;
#X obj 272 211 pack 0 0 0 0 0 0 0 0 0 0 0 0;
#X msg 259 289 0 2 4 5 7 9 0 0 0 0 0 0;
#X msg 177 244 set \$1 \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9 \$10 \$11 \$12
;
#X obj 18 60 int;
#X connect 0 0 38 0;
#X connect 1 0 16 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 11 0;
#X connect 7 0 9 0;
#X connect 8 0 3 0;
#X connect 9 0 10 0;
#X connect 9 0 13 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 8 0;
#X connect 13 1 11 1;
#X connect 16 0 20 0;
#X connect 17 0 3 1;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 20 0 19 0;
#X connect 20 1 17 0;
#X connect 21 0 23 0;
#X connect 21 0 24 0;
#X connect 21 0 25 0;
#X connect 21 0 26 0;
#X connect 21 0 27 0;
#X connect 21 0 28 0;
#X connect 21 0 29 0;
#X connect 21 0 30 0;
#X connect 21 0 31 0;
#X connect 21 0 32 0;
#X connect 21 0 33 0;
#X connect 21 0 22 0;
#X connect 21 0 36 0;
#X connect 22 0 35 0;
#X connect 23 0 35 1;
#X connect 24 0 35 2;
#X connect 25 0 35 3;
#X connect 26 0 35 4;
#X connect 27 0 35 5;
#X connect 28 0 35 6;
#X connect 29 0 35 7;
#X connect 30 0 35 8;
#X connect 31 0 35 9;
#X connect 32 0 35 10;
#X connect 33 0 35 11;
#X connect 35 0 37 0;
#X connect 36 0 16 0;
#X connect 37 0 36 0;
#X connect 38 0 4 0;