-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathvanillaS2f.pd
729 lines (729 loc) · 16.3 KB
/
vanillaS2f.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
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
#N canvas 307 126 500 389 10;
#X obj 29 93 list fromsymbol;
#X obj 29 71 inlet;
#X obj 212 287 outlet;
#X text 36 316 Written by Alexandros Drymonitis \, after a discussion
on the Pd list with Cyrille Henry and Chris McCormick;
#N canvas 443 157 466 498 assemble_hex 0;
#N canvas 489 276 422 287 drip_list 0;
#X obj 152 97 until;
#X obj 152 119 list;
#X obj 152 51 inlet;
#X obj 152 163 outlet;
#X obj 152 73 t b l;
#X obj 221 162 t b b;
#X obj 221 184 outlet done;
#X obj 152 141 list split 1;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 5 1 0 1;
#X connect 7 0 3 0;
#X connect 7 1 1 1;
#X connect 7 2 5 0;
#X restore 103 62 pd drip_list;
#X obj 103 14 inlet;
#X obj 103 39 t l l;
#X obj 230 56 list length;
#X obj 103 84 moses 48;
#X obj 148 107 moses 58;
#X obj 193 129 moses 65;
#X obj 283 173 moses 97;
#X obj 148 129 - 48;
#X obj 238 174 - 55;
#X obj 328 216 - 87;
#X text 162 86 0 to 1;
#X text 252 127 A to F;
#X text 342 172 a to f;
#X obj 230 78 - 1;
#X obj 148 151 t f b;
#X obj 238 196 t f b;
#X obj 328 238 t f b;
#X obj 175 295 f;
#X obj 205 295 - 1;
#X obj 175 317 swap 16;
#X obj 175 339 pow;
#X obj 148 356 *;
#X obj 148 378 +;
#X obj 148 400 t f f;
#X obj 113 417 f;
#X obj 113 462 outlet;
#X obj 238 151 moses 71;
#X obj 328 194 moses 103;
#X obj 113 439 t f b;
#X msg 184 361 0;
#X connect 0 0 4 0;
#X connect 0 1 25 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 1 3 0;
#X connect 3 0 14 0;
#X connect 4 1 5 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 1 27 0;
#X connect 7 1 28 0;
#X connect 8 0 15 0;
#X connect 9 0 16 0;
#X connect 10 0 17 0;
#X connect 14 0 18 1;
#X connect 15 0 22 0;
#X connect 15 1 18 0;
#X connect 16 0 22 0;
#X connect 16 1 18 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 1;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 24 1 23 1;
#X connect 25 0 29 0;
#X connect 27 0 9 0;
#X connect 27 1 7 0;
#X connect 28 0 10 0;
#X connect 29 0 26 0;
#X connect 29 1 30 0;
#X connect 30 0 23 1;
#X restore 74 187 pd assemble_hex;
#N canvas 417 160 388 388 assemble_oct 0;
#X obj 103 17 inlet;
#N canvas 489 276 422 287 drip_list 0;
#X obj 152 97 until;
#X obj 152 119 list;
#X obj 152 51 inlet;
#X obj 152 163 outlet;
#X obj 152 73 t b l;
#X obj 221 162 t b b;
#X obj 221 184 outlet done;
#X obj 152 141 list split 1;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 5 1 0 1;
#X connect 7 0 3 0;
#X connect 7 1 1 1;
#X connect 7 2 5 0;
#X restore 103 62 pd drip_list;
#X obj 103 39 t l l;
#X obj 230 56 list length;
#X obj 103 84 moses 48;
#X obj 148 129 - 48;
#X obj 230 78 - 1;
#X obj 148 151 t f b;
#X obj 175 174 f;
#X obj 205 174 - 1;
#X obj 175 218 pow;
#X obj 148 235 *;
#X obj 148 257 +;
#X obj 148 279 t f f;
#X obj 113 296 f;
#X obj 113 341 outlet;
#X obj 148 107 moses 56;
#X text 162 86 0 to 7;
#X obj 175 196 swap 8;
#X obj 113 318 t f b;
#X msg 184 240 0;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 1 1 14 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 1 16 0;
#X connect 5 0 7 0;
#X connect 6 0 8 1;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 8 0 18 0;
#X connect 9 0 8 1;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 13 1 12 1;
#X connect 14 0 19 0;
#X connect 16 0 5 0;
#X connect 18 0 10 0;
#X connect 18 1 10 1;
#X connect 19 0 15 0;
#X connect 19 1 20 0;
#X connect 20 0 12 1;
#X restore 120 164 pd assemble_oct;
#N canvas 480 225 509 488 assemble_dec 0;
#X obj 73 215 moses 48;
#X obj 168 232 moses 58;
#N canvas 0 22 287 214 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 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 restore 73 118 pd drip-list;
#X obj 172 135 spigot;
#X obj 73 59 t l b b;
#X msg 205 76 0;
#X msg 235 118 1;
#X msg 73 303 -1;
#X obj 213 255 sel 101;
#X obj 168 302 t f f;
#X obj 92 84 s \$0-init;
#X obj 235 96 r \$0-let_bang;
#X obj 98 269 s \$0-dec;
#X obj 73 325 s \$0-negative;
#N canvas 637 329 467 382 \$0-scientific_val 0;
#X obj 88 308 pow;
#X obj 160 47 spigot;
#X obj 160 69 - 48;
#X obj 160 91 t f b;
#X obj 187 113 f;
#X obj 187 135 * 10;
#X obj 160 152 +;
#X obj 160 174 t f f;
#X msg 236 74 0;
#X obj 160 23 inlet;
#X obj 236 52 r \$0-init;
#X msg 216 30 1;
#X obj 216 8 r \$0-scientific;
#X obj 170 222 r \$0-negative;
#X obj 170 244 spigot;
#X obj 254 205 r \$0-init;
#X obj 283 227 r \$0-scientific;
#X msg 254 227 0;
#X msg 283 249 1;
#X obj 88 191 f;
#X obj 88 283 swap 10;
#X obj 88 261 *;
#X obj 103 216 r \$0-init;
#X msg 103 238 1;
#X obj 88 330 outlet;
#X obj 17 106 r \$0-bang;
#X obj 17 128 t b b;
#X obj 88 145 spigot;
#X obj 236 96 t f f f;
#X obj 17 150 s \$0-next;
#X obj 283 271 t f f;
#X connect 0 0 24 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 19 1;
#X connect 7 1 4 1;
#X connect 8 0 28 0;
#X connect 9 0 1 0;
#X connect 10 0 8 0;
#X connect 11 0 1 1;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 21 1;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 18 0 30 0;
#X connect 19 0 21 0;
#X connect 20 0 0 0;
#X connect 20 1 0 1;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 21 1;
#X connect 25 0 26 0;
#X connect 26 0 29 0;
#X connect 26 1 27 0;
#X connect 27 0 19 0;
#X connect 28 0 4 1;
#X connect 28 1 1 1;
#X connect 28 2 27 1;
#X connect 30 0 14 1;
#X connect 30 1 27 1;
#X restore 195 330 pd \$0-scientific_val;
#N canvas 526 231 447 504 \$0-non_scientific_val 0;
#X obj 96 187 - 48;
#X obj 96 209 t f b;
#X obj 123 231 f;
#X obj 123 253 * 10;
#X obj 96 270 +;
#X obj 96 292 t f f;
#X msg 138 209 0;
#X obj 29 309 f;
#X obj 276 199 f;
#X obj 306 199 + 1;
#X obj 276 221 swap 10;
#X obj 276 243 pow;
#X msg 44 356 1;
#X obj 96 114 t f b b;
#X obj 276 131 spigot;
#X msg 347 92 1;
#X msg 309 66 0;
#X obj 29 404 *;
#X obj 96 90 spigot;
#X obj 309 43 r \$0-init;
#X obj 138 163 r \$0-init;
#X obj 44 333 r \$0-init;
#X obj 291 155 r \$0-init;
#X obj 115 138 s \$0-let_bang;
#X obj 347 70 r \$0-dec;
#X obj 96 17 inlet;
#X obj 77 365 r \$0-negative;
#X obj 29 426 outlet;
#X obj 129 37 r \$0-init;
#X msg 129 59 1;
#X obj 196 51 r \$0-scientific;
#X msg 196 73 0;
#X obj 77 387 spigot;
#X obj 161 348 r \$0-init;
#X msg 161 370 1;
#X obj 190 370 r \$0-scientific;
#X msg 190 392 0;
#X obj 29 281 r \$0-next;
#X obj 96 231 /;
#X msg 291 176 0;
#X obj 138 185 t b b;
#X msg 165 236 10;
#X obj 347 114 t f f;
#X connect 0 0 1 0;
#X connect 1 0 38 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 5 1 2 1;
#X connect 6 0 2 1;
#X connect 7 0 17 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 38 1;
#X connect 12 0 17 1;
#X connect 13 0 0 0;
#X connect 13 1 23 0;
#X connect 13 2 14 0;
#X connect 14 0 8 0;
#X connect 15 0 42 0;
#X connect 16 0 14 1;
#X connect 17 0 27 0;
#X connect 18 0 13 0;
#X connect 19 0 16 0;
#X connect 20 0 40 0;
#X connect 21 0 12 0;
#X connect 22 0 39 0;
#X connect 24 0 15 0;
#X connect 25 0 18 0;
#X connect 26 0 32 0;
#X connect 28 0 29 0;
#X connect 29 0 18 1;
#X connect 30 0 31 0;
#X connect 31 0 18 1;
#X connect 32 0 17 1;
#X connect 33 0 34 0;
#X connect 34 0 32 1;
#X connect 35 0 36 0;
#X connect 36 0 32 1;
#X connect 37 0 7 0;
#X connect 38 0 4 0;
#X connect 39 0 8 0;
#X connect 40 0 6 0;
#X connect 40 1 41 0;
#X connect 41 0 3 1;
#X connect 42 0 14 1;
#X connect 42 1 3 1;
#X restore 168 355 pd \$0-non_scientific_val;
#X obj 168 424 *;
#X obj 227 385 r \$0-init;
#X msg 227 407 1;
#X obj 172 157 s \$0-bang;
#N canvas 0 22 304 241 \$0-set_scientific 0;
#X obj 78 165 s \$0-scientific;
#X obj 78 141 spigot;
#X obj 78 48 inlet;
#X obj 111 71 r \$0-init;
#X msg 111 93 0;
#X obj 152 102 r \$0-let_bang;
#X msg 152 124 1;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 1 1;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X restore 213 279 pd \$0-set_scientific;
#X obj 73 237 sel 45 46;
#X obj 73 37 inlet;
#X obj 168 446 outlet;
#X text 229 235 ASCII 101 is e \, for scientific notation;
#X text 82 182 ASCII 45 is hyphen for negative values and 46 is dot
\, for fractional values;
#X connect 0 0 21 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 1 1 8 0;
#X connect 2 0 0 0;
#X connect 2 1 3 0;
#X connect 3 0 19 0;
#X connect 4 0 2 0;
#X connect 4 1 10 0;
#X connect 4 2 5 0;
#X connect 5 0 3 1;
#X connect 6 0 3 1;
#X connect 7 0 13 0;
#X connect 8 0 20 0;
#X connect 9 0 15 0;
#X connect 9 1 14 0;
#X connect 11 0 6 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 23 0;
#X connect 17 0 18 0;
#X connect 18 0 16 1;
#X connect 21 0 7 0;
#X connect 21 1 12 0;
#X connect 22 0 4 0;
#X restore 29 210 pd assemble_dec;
#N canvas 737 96 511 441 check_numeral_system_and_inf 0;
#X obj 96 92 t l l;
#X obj 123 115 list split 2;
#X obj 123 162 t f f;
#X obj 123 184 == 0;
#X obj 96 214 spigot;
#X obj 170 257 list;
#X obj 204 227 f;
#X obj 170 179 t f f;
#X obj 170 331 spigot;
#X obj 243 331 spigot;
#X obj 96 24 inlet;
#X obj 96 353 outlet dec;
#X obj 170 353 outlet hex;
#X obj 243 353 outlet oct;
#N canvas 237 218 812 521 \$0-is_inf 0;
#X obj 87 34 inlet;
#X msg 341 207 105 110 102;
#X obj 320 252 list split 1;
#X obj 177 269 sel;
#X msg 192 339 0;
#X obj 87 125 list length;
#X obj 87 147 == 3;
#X msg 177 425 1;
#X obj 177 447 *;
#X obj 363 408 10;
#X obj 363 430 pow 50;
#X obj 363 363 loadbang;
#X obj 177 469 outlet;
#X text 358 173 this is "inf" which goes through only if its the only
thing provided in the symbol;
#X obj 320 230 list;
#X obj 87 56 t l l;
#X obj 363 385 t b b;
#X obj 93 79 list;
#X obj 114 214 == 0;
#X obj 30 231 spigot;
#X obj 93 101 t l l;
#X obj 30 253 outlet;
#X obj 177 118 spigot;
#X msg 192 315 0;
#N canvas 489 276 422 287 drip_list 0;
#X obj 152 97 until;
#X obj 152 119 list;
#X obj 152 51 inlet;
#X obj 152 163 outlet;
#X obj 152 73 t b l;
#X obj 221 162 t b b;
#X obj 221 184 outlet done;
#X obj 152 141 list split 1;
#X obj 239 80 inlet;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 5 1 0 1;
#X connect 7 0 3 0;
#X connect 7 1 1 1;
#X connect 7 2 5 0;
#X connect 8 0 0 1;
#X restore 177 141 pd drip_list;
#X obj 177 403 sel 1;
#X obj 177 213 t f b;
#X obj 314 158 t b b;
#X obj 87 169 t b f;
#X obj 114 191 t f f;
#X obj 192 291 t b b;
#X obj 177 360 f;
#X obj 207 360 + 1;
#X obj 177 382 == 2;
#X obj 287 124 t b b;
#X connect 0 0 15 0;
#X connect 1 0 14 1;
#X connect 2 0 3 1;
#X connect 2 1 14 1;
#X connect 3 0 31 0;
#X connect 3 1 30 0;
#X connect 4 0 31 1;
#X connect 5 0 6 0;
#X connect 6 0 28 0;
#X connect 7 0 8 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 16 0;
#X connect 14 0 2 0;
#X connect 15 0 5 0;
#X connect 15 1 17 1;
#X connect 16 0 9 0;
#X connect 16 1 27 0;
#X connect 17 0 20 0;
#X connect 18 0 19 1;
#X connect 19 0 21 0;
#X connect 20 0 19 0;
#X connect 20 1 22 0;
#X connect 22 0 24 0;
#X connect 23 0 29 0;
#X connect 24 0 26 0;
#X connect 24 1 27 0;
#X connect 25 0 7 0;
#X connect 26 0 3 0;
#X connect 26 1 14 0;
#X connect 27 0 4 0;
#X connect 27 1 1 0;
#X connect 28 0 17 0;
#X connect 28 1 29 0;
#X connect 29 0 18 0;
#X connect 29 1 22 1;
#X connect 30 0 23 0;
#X connect 30 1 34 0;
#X connect 31 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 31 1;
#X connect 33 0 25 0;
#X connect 34 0 24 1;
#X connect 34 1 27 0;
#X restore 96 46 pd \$0-is_inf;
#X obj 387 63 outlet inf;
#X obj 317 196 t f f f;
#X obj 323 331 spigot;
#X obj 356 308 == 3;
#X obj 170 279 t l l l;
#X obj 96 68 t l b;
#N canvas 9 142 851 512 define_numeral_system 0;
#X obj 34 57 unpack;
#X obj 34 165 == 48;
#X obj 82 250 == 120;
#X obj 34 267 +;
#X obj 34 79 t f f;
#X obj 464 96 t f f;
#X obj 464 138 == 98;
#X obj 491 117 == 66;
#X obj 464 161 ||;
#X obj 34 449 f;
#X obj 464 410 sel 1;
#X msg 464 432 3;
#X msg 49 406 0;
#X obj 127 181 == 46;
#X obj 82 102 t f f f;
#X obj 34 34 inlet;
#X obj 49 384 inlet init;
#X obj 34 471 outlet;
#X text 117 149 if first character is 0 and second is dot \, then it's
a decimal number;
#X obj 121 125 outlet;
#X text 130 252 if first character is 0 and second is x \, then it's
a hexadecimal number;
#X text 232 202 if the first character is 0 and the rest are numbers
\, it's an octal value;
#X obj 112 306 +;
#X msg 112 351 0;
#X obj 112 328 sel 2;
#X obj 34 187 t f f f;
#X obj 34 290 sel 2;
#X obj 193 204 sel 1;
#X msg 193 226 2;
#X msg 34 312 1;
#X obj 61 312 t b;
#X text 466 78 if the first character is B or b it's a binary value
;
#X connect 0 0 4 0;
#X connect 0 1 14 0;
#X connect 1 0 25 0;
#X connect 2 0 3 1;
#X connect 3 0 26 0;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 9 1;
#X connect 12 0 9 1;
#X connect 13 0 22 1;
#X connect 14 0 2 0;
#X connect 14 1 13 0;
#X connect 14 2 19 0;
#X connect 15 0 0 0;
#X connect 16 0 12 0;
#X connect 22 0 24 0;
#X connect 23 0 9 1;
#X connect 24 0 23 0;
#X connect 25 0 3 0;
#X connect 25 1 22 0;
#X connect 25 2 27 0;
#X connect 26 0 29 0;
#X connect 26 1 30 0;
#X connect 27 0 28 0;
#X connect 28 0 9 1;
#X connect 29 0 9 0;
#X connect 30 0 9 0;
#X restore 123 139 pd define_numeral_system;
#X obj 170 201 sel 1 2 3;
#X obj 203 308 == 1;
#X obj 276 308 == 2;
#X obj 323 353 outlet bin;
#X connect 0 0 4 0;
#X connect 0 1 1 0;
#X connect 1 0 21 0;
#X connect 1 1 5 1;
#X connect 2 0 3 0;
#X connect 2 1 7 0;
#X connect 3 0 4 1;
#X connect 4 0 11 0;
#X connect 5 0 19 0;
#X connect 6 0 5 0;
#X connect 7 0 22 0;
#X connect 7 1 16 0;
#X connect 8 0 12 0;
#X connect 9 0 13 0;
#X connect 10 0 14 0;
#X connect 14 0 20 0;
#X connect 14 1 15 0;
#X connect 16 0 23 0;
#X connect 16 1 24 0;
#X connect 16 2 18 0;
#X connect 17 0 25 0;
#X connect 18 0 17 1;
#X connect 19 0 8 0;
#X connect 19 1 9 0;
#X connect 19 2 17 0;
#X connect 20 0 0 0;
#X connect 20 1 21 1;
#X connect 21 0 2 0;
#X connect 21 1 6 1;
#X connect 22 0 5 0;
#X connect 22 1 6 0;
#X connect 22 2 6 0;
#X connect 23 0 8 1;
#X connect 24 0 9 1;
#X restore 29 118 pd check_numeral_system_and_inf;
#N canvas 435 210 466 391 assemble_bin 0;
#X obj 103 17 inlet;
#N canvas 489 276 422 287 drip_list 0;
#X obj 152 97 until;
#X obj 152 119 list;
#X obj 152 51 inlet;
#X obj 152 163 outlet;
#X obj 152 73 t b l;
#X obj 221 162 t b b;
#X obj 221 184 outlet done;
#X obj 152 141 list split 1;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 5 1 0 1;
#X connect 7 0 3 0;
#X connect 7 1 1 1;
#X connect 7 2 5 0;
#X restore 103 62 pd drip_list;
#X obj 103 39 t l l;
#X obj 230 56 list length;
#X obj 103 84 moses 48;
#X obj 148 129 - 48;
#X obj 230 78 - 1;
#X obj 148 151 t f b;
#X obj 175 174 f;
#X obj 205 174 - 1;
#X obj 175 218 pow;
#X obj 148 235 *;
#X obj 148 257 +;
#X obj 148 279 t f f;
#X obj 113 296 f;
#X obj 113 341 outlet;
#X obj 148 107 moses 50;
#X text 162 86 0 or 1;
#X obj 175 196 swap 2;
#X obj 113 318 t f b;
#X msg 184 240 0;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 1 1 14 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 1 16 0;
#X connect 5 0 7 0;
#X connect 6 0 8 1;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 8 0 18 0;
#X connect 9 0 8 1;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 13 1 12 1;
#X connect 14 0 19 0;
#X connect 16 0 5 0;
#X connect 18 0 10 0;
#X connect 18 1 10 1;
#X connect 19 0 15 0;
#X connect 19 1 20 0;
#X connect 20 0 12 1;
#X restore 166 141 pd assemble_bin;
#X text 30 23 convert a symbol which represents a value in either decimal
\, hexadecimal \, octal \, or binary numeral system to a float;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X connect 7 1 4 0;
#X connect 7 2 5 0;
#X connect 7 3 8 0;
#X connect 7 4 2 0;
#X connect 8 0 2 0;