-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathbin2any.pd
258 lines (258 loc) · 5.97 KB
/
bin2any.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
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
#N canvas 425 131 594 574 10;
#X obj 364 264 list length;
#X obj 382 352 - 1;
#X obj 349 353 f;
#X obj 48 489 f;
#X obj 176 77 inlet;
#X obj 48 536 outlet;
#X obj 349 377 swap 2;
#X obj 349 399 pow;
#X obj 176 416 *;
#X obj 286 496 inlet base;
#N canvas 0 22 425 266 \$0-choose_base 0;
#X obj 41 43 inlet;
#X obj 41 65 t f f f;
#X obj 80 179 outlet;
#X obj 215 11 loadbang;
#X obj 215 73 symbol \$1;
#X obj 215 95 sel DEC HEX OCT;
#X msg 215 122 0;
#X msg 244 122 1;
#X msg 273 122 2;
#X msg 302 122 0;
#X obj 215 164 s \$0-select_base;
#N canvas 0 22 361 255 \$0-octal 0;
#X obj 78 128 spigot;
#X obj 78 150 makefilename %o;
#X obj 111 59 r \$0-select_base;
#X obj 111 81 sel 2;
#X msg 111 103 1;
#X msg 138 103 0;
#X obj 78 34 inlet;
#X obj 78 172 outlet;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 0 1;
#X connect 5 0 0 1;
#X connect 6 0 0 0;
#X restore 80 89 pd \$0-octal;
#N canvas 0 22 361 255 \$0-hexadecimal 0;
#X obj 78 128 spigot;
#X obj 111 59 r \$0-select_base;
#X msg 111 103 1;
#X msg 138 103 0;
#X obj 78 34 inlet;
#X obj 78 172 outlet;
#X obj 111 81 sel 1;
#X obj 78 150 makefilename %x;
#X connect 0 0 7 0;
#X connect 1 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 3 0;
#X connect 7 0 5 0;
#X restore 60 113 pd \$0-hexadecimal;
#N canvas 0 22 361 255 \$0-decimal 0;
#X obj 78 128 spigot;
#X obj 111 59 r \$0-select_base;
#X msg 111 103 1;
#X msg 138 103 0;
#X obj 78 34 inlet;
#X obj 78 151 outlet;
#X obj 111 81 sel 0;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 3 0;
#X restore 41 137 pd \$0-decimal;
#X obj 226 42 inlet base;
#X connect 0 0 1 0;
#X connect 1 0 13 0;
#X connect 1 1 12 0;
#X connect 1 2 11 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 9 0;
#X connect 6 0 10 0;
#X connect 7 0 10 0;
#X connect 8 0 10 0;
#X connect 9 0 10 0;
#X connect 11 0 2 0;
#X connect 12 0 2 0;
#X connect 13 0 2 0;
#X connect 14 0 4 0;
#X restore 48 513 pd \$0-choose_base;
#N canvas 0 22 294 231 drip_list 0;
#X obj 69 60 until;
#X obj 69 82 list;
#X obj 69 104 list split 1;
#X obj 69 14 inlet;
#X obj 69 126 outlet;
#X obj 69 36 t b l;
#X obj 138 125 t b b;
#X obj 138 147 outlet done;
#X obj 142 43 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 1 1;
#X connect 2 2 6 0;
#X connect 3 0 5 0;
#X connect 5 0 0 0;
#X connect 5 1 1 1;
#X connect 6 0 7 0;
#X connect 6 1 0 1;
#X connect 8 0 0 1;
#X restore 176 272 pd drip_list;
#X obj 176 247 t l l;
#X obj 364 308 - 1;
#X obj 176 336 t f b;
#X obj 176 472 +;
#X obj 205 472 f;
#X obj 176 99 route symbol list;
#X msg 191 450 0;
#X obj 364 286 t f b f;
#X obj 388 480 outlet bits;
#X text 358 533 Written by Alexandros Drymonitis;
#X obj 176 222 list fromsymbol;
#X obj 176 145 t s b;
#X msg 203 167 0;
#X obj 225 145 t l b;
#X msg 281 162 1;
#X obj 48 463 spigot 1;
#X text 19 17 [bin2any]: vanilla abstraction which converts binary
numbers provided either as a symbol or a list \, to either a decimal
\, a hexadecimal or an octal number;
#X obj 93 441 r \$0-spigots;
#X obj 433 436 r \$0-spigots;
#X obj 388 458 spigot 1;
#X obj 388 436 f;
#N canvas 566 148 575 585 \$0-moses_values 0;
#X obj 50 51 inlet;
#X obj 50 177 moses 48;
#X obj 95 222 - 48;
#X obj 50 155 spigot;
#X obj 190 90 spigot;
#X obj 95 244 outlet;
#X obj 196 40 inlet;
#X obj 196 62 t f f;
#X obj 83 134 == 0;
#X msg 285 367 binary numbers include only 1 and 0;
#X obj 285 389 print bin2any;
#X obj 190 135 moses 0;
#X obj 229 157 moses 2;
#X obj 190 112 route float;
#X msg 355 151 provide list with floats only;
#X obj 355 173 print bin2any;
#X obj 95 200 moses 50;
#X obj 140 222 moses 58;
#X obj 302 344 outlet close;
#X obj 67 331 print bin2any;
#X msg 67 309 provide symbol with floats only;
#X msg 50 407 1;
#X obj 50 449 s \$0-spigots;
#X msg 101 407 0;
#X obj 338 129 t b b b b;
#X obj 268 317 t b b b b;
#X obj 50 287 t b b b b;
#X obj 50 73 t a a;
#X connect 0 0 27 0;
#X connect 1 0 26 0;
#X connect 1 1 16 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 4 1;
#X connect 8 0 3 1;
#X connect 9 0 10 0;
#X connect 11 0 25 0;
#X connect 11 1 12 0;
#X connect 12 0 5 0;
#X connect 12 1 25 0;
#X connect 13 0 11 0;
#X connect 13 1 24 0;
#X connect 14 0 15 0;
#X connect 16 0 2 0;
#X connect 16 1 17 0;
#X connect 17 0 25 0;
#X connect 17 1 26 0;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 23 0 22 0;
#X connect 24 0 21 0;
#X connect 24 1 14 0;
#X connect 24 2 18 0;
#X connect 24 3 23 0;
#X connect 25 0 21 0;
#X connect 25 1 9 0;
#X connect 25 2 18 0;
#X connect 25 3 23 0;
#X connect 26 0 21 0;
#X connect 26 1 20 0;
#X connect 26 2 18 0;
#X connect 26 3 23 0;
#X connect 27 0 3 0;
#X connect 27 1 4 0;
#X restore 176 295 pd \$0-moses_values;
#X obj 48 419 t b b;
#X obj 225 121 list;
#X text 257 121 [route] trims incoming list and causes an error to
[trigger]. this is solved by using [list];
#X connect 0 0 19 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 6 0;
#X connect 3 0 10 0;
#X connect 4 0 17 0;
#X connect 6 0 7 0;
#X connect 6 1 7 1;
#X connect 7 0 8 1;
#X connect 8 0 15 0;
#X connect 9 0 10 1;
#X connect 10 0 5 0;
#X connect 11 0 33 0;
#X connect 11 1 34 0;
#X connect 12 0 11 0;
#X connect 12 1 0 0;
#X connect 13 0 2 1;
#X connect 14 0 8 0;
#X connect 14 1 2 0;
#X connect 15 0 3 1;
#X connect 15 0 16 0;
#X connect 16 0 15 1;
#X connect 17 0 23 0;
#X connect 17 1 35 0;
#X connect 18 0 15 1;
#X connect 19 0 13 0;
#X connect 19 1 18 0;
#X connect 19 2 32 1;
#X connect 22 0 12 0;
#X connect 23 0 22 0;
#X connect 23 1 24 0;
#X connect 24 0 33 1;
#X connect 25 0 12 0;
#X connect 25 1 26 0;
#X connect 26 0 33 1;
#X connect 27 0 3 0;
#X connect 29 0 27 1;
#X connect 30 0 31 1;
#X connect 31 0 20 0;
#X connect 32 0 31 0;
#X connect 33 0 14 0;
#X connect 33 1 11 1;
#X connect 34 0 27 0;
#X connect 34 1 32 0;
#X connect 35 0 25 0;