-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathint2bin.pd
188 lines (188 loc) · 4.16 KB
/
int2bin.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
#N canvas 757 163 685 667 10;
#X obj 27 237 f;
#X obj 320 66 loadbang;
#X obj 390 154 == 0;
#X obj 351 198 spigot;
#X obj 351 220 t f f;
#X obj 27 554 outlet;
#X obj 383 321 outlet bits;
#X obj 422 221 f;
#X obj 390 176 t f f;
#X obj 390 130 t f f;
#X obj 422 198 sel 0;
#X obj 422 243 t f f;
#X obj 27 133 inlet;
#X obj 390 108 \$2;
#X obj 277 378 * 48;
#X obj 245 356 t f f;
#X obj 27 434 t l l;
#X obj 27 492 spigot;
#X obj 238 451 spigot;
#X obj 245 404 t f f;
#N canvas 1 82 521 375 find_nr_of_bits 0;
#X obj 27 216 >=;
#X obj 27 58 until;
#X obj 27 103 f;
#X obj 57 103 + 1;
#X msg 45 80 1;
#X obj 27 147 swap 2;
#X obj 27 169 pow;
#X obj 27 192 - 1;
#X obj 27 238 sel 1;
#X obj 27 125 t f f;
#X obj 27 11 inlet;
#X obj 27 33 t b b f;
#X obj 124 247 f;
#X obj 27 260 t b b b;
#X obj 124 269 outlet bits;
#X obj 27 282 outlet;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X connect 8 0 13 0;
#X connect 9 0 5 0;
#X connect 9 1 12 1;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 11 1 4 0;
#X connect 11 2 0 1;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 13 1 12 0;
#X connect 13 2 1 1;
#X restore 27 181 pd find_nr_of_bits;
#X obj 27 156 t f f;
#X obj 277 426 == 0;
#N canvas 216 408 636 449 disassemble_bits 0;
#X obj 101 162 f;
#X obj 23 69 until;
#X obj 164 108 f;
#X obj 166 181 f;
#X obj 166 203 swap 2;
#X obj 166 225 pow;
#X obj 166 247 - 1;
#X obj 101 264 &;
#X obj 101 288 >>;
#X obj 23 91 t b b b b;
#X obj 23 154 f;
#X obj 53 154 + 1;
#X obj 23 176 sel;
#X msg 60 129 1;
#X obj 192 109 - 1;
#X obj 194 182 - 1;
#X obj 182 63 - 1;
#X obj 23 46 t f f b f f;
#X obj 101 338 list prepend;
#X obj 101 360 t l l;
#X obj 26 377 list;
#X obj 23 255 t b b;
#X obj 23 277 t b b;
#X obj 101 310 +;
#X obj 23 24 inlet;
#X obj 26 399 outlet;
#X obj 205 293 inlet list_or_symbol;
#X text 208 261 if we want the binary value as a symbol \, we must
use the ASCII values of the numbers;
#X obj 119 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 9 0;
#X connect 2 0 8 1;
#X connect 2 0 14 0;
#X connect 3 0 4 0;
#X connect 3 0 15 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 8 0 23 0;
#X connect 9 0 10 0;
#X connect 9 1 0 0;
#X connect 9 2 3 0;
#X connect 9 3 2 0;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 21 0;
#X connect 13 0 10 1;
#X connect 14 0 2 1;
#X connect 15 0 3 1;
#X connect 16 0 2 1;
#X connect 17 0 1 0;
#X connect 17 1 12 1;
#X connect 17 2 13 0;
#X connect 17 3 3 1;
#X connect 17 4 16 0;
#X connect 18 0 19 0;
#X connect 19 0 20 1;
#X connect 19 1 18 1;
#X connect 20 0 25 0;
#X connect 21 0 22 0;
#X connect 21 1 18 1;
#X connect 22 0 20 1;
#X connect 22 1 20 0;
#X connect 23 0 18 0;
#X connect 24 0 17 0;
#X connect 26 0 23 1;
#X connect 28 0 0 1;
#X restore 27 395 pd disassemble_bits;
#X obj 245 260 symbol \$1;
#X obj 245 133 inlet;
#X msg 245 324 0;
#X msg 282 324 1;
#X text 316 380 use ASCII in case of symbol;
#X obj 27 514 list tosymbol;
#X obj 390 85 inlet;
#X text 43 21 convert a float to binary and output it either as a list
or as a symbol;
#X text 279 583 Written by Alexandros Drymonitis with help by Mike
Moser-Booth from Pd's forum;
#X obj 245 282 sel lst sym;
#X connect 0 0 23 0;
#X connect 1 0 13 0;
#X connect 1 0 24 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 4 0 0 1;
#X connect 4 1 6 0;
#X connect 7 0 11 0;
#X connect 8 0 3 1;
#X connect 8 1 10 0;
#X connect 9 0 2 0;
#X connect 9 1 7 1;
#X connect 10 0 7 0;
#X connect 11 0 0 1;
#X connect 11 1 6 0;
#X connect 12 0 21 0;
#X connect 13 0 9 0;
#X connect 14 0 23 2;
#X connect 15 0 19 0;
#X connect 15 1 14 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 17 0 29 0;
#X connect 18 0 5 0;
#X connect 19 0 17 1;
#X connect 19 1 22 0;
#X connect 20 0 0 0;
#X connect 20 1 3 0;
#X connect 21 0 20 0;
#X connect 21 1 23 1;
#X connect 22 0 18 1;
#X connect 23 0 16 0;
#X connect 24 0 33 0;
#X connect 25 0 24 0;
#X connect 26 0 15 0;
#X connect 27 0 15 0;
#X connect 29 0 5 0;
#X connect 30 0 13 0;
#X connect 33 0 26 0;
#X connect 33 1 27 0;
#X connect 33 2 26 0;