-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbb_learn.pd
227 lines (227 loc) · 5.17 KB
/
bb_learn.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
#N canvas 645 51 483 664 10;
#X obj 59 152 ctlin;
#X text 50 125 val.id.ch;
#X obj 72 362 ==;
#X obj 98 362 ==;
#X obj 99 200 spigot;
#X obj 113 248 spigot;
#X obj 238 -75 initbang;
#X obj 238 2 symbol ctl;
#X obj 238 -51 t b b;
#X obj 238 29 sel ctl note;
#X obj 59 271 spigot;
#X msg 238 56 1 0;
#X msg 272 56 0 1;
#X obj 72 393 &&;
#X obj 221 153 notein;
#X text 217 126 id.val.ch;
#X obj 260 199 spigot;
#X obj 281 269 spigot;
#X obj 237 222 spigot;
#X obj 72 176 t f f;
#X obj 86 224 t f f;
#X obj 39 417 spigot;
#X obj 39 441 outlet;
#X obj 254 245 t f f;
#X obj 221 176 t b f f;
#X obj 222 245 f;
#X obj 238 83 unpack f f;
#X obj 82 83 gate 2;
#X obj 82 -1 + 1;
#X obj 115 -75 inlet;
#N canvas 277 28 667 735 save 0;
#X obj 201 188 f \$1;
#X msg 269 555 clear;
#X msg 337 591 print;
#X text 103 56 unique id (\$0) \, control number \, channel;
#X obj 121 659 s startfreeze;
#X obj 121 636 f \$0;
#X obj 87 174 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 178 220 pack f f f f;
#X msg 178 245 \; \$1-learnfreeze \$2 \$3 \$4 \;;
#X obj 178 96 r startfreeze;
#X obj 234 188 f;
#X obj 260 188 f;
#X obj 249 323 r \$0-learnfreeze;
#X obj 249 348 unpack f f f;
#X obj 291 434 f;
#X obj 319 434 f;
#X obj 211 434 counter;
#X obj 249 373 t b b b f;
#X obj 178 121 t f b b b;
#X obj 87 258 s \$0-reset;
#X obj 138 329 r \$0-reset;
#X msg 177 385 set 1;
#X obj 138 361 t b b b;
#X obj 78 463 r report-in;
#X obj 140 536 s report-out;
#X obj 121 512 delay 100;
#X obj 140 601 counter;
#X obj 121 488 t b b b;
#X msg 160 560 set 1;
#X obj 211 474 sel;
#X obj 497 328 r report-out;
#X obj 497 354 s report-in;
#X obj 87 203 savepanel;
#X obj 212 497 symbol;
#X msg 221 570 write \$1;
#X obj 68 22 inlet freeze;
#X obj 210 17 inlet control;
#X obj 314 20 inlet channel;
#X obj 72 118 route bang;
#X obj 87 230 t b a;
#X obj 125 166 symbol;
#X obj 280 628 textfile;
#X msg 308 505 add2 \$1;
#X msg 283 530 add \$1;
#X connect 0 0 7 1;
#X connect 1 0 41 0;
#X connect 2 0 41 0;
#X connect 5 0 4 0;
#X connect 6 0 32 0;
#X connect 7 0 8 0;
#X connect 9 0 18 0;
#X connect 10 0 7 2;
#X connect 11 0 7 3;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 13 1 14 1;
#X connect 13 2 15 1;
#X connect 14 0 43 0;
#X connect 15 0 42 0;
#X connect 16 0 29 0;
#X connect 17 0 16 0;
#X connect 17 1 14 0;
#X connect 17 2 15 0;
#X connect 17 3 42 0;
#X connect 18 0 7 0;
#X connect 18 1 0 0;
#X connect 18 2 10 0;
#X connect 18 3 11 0;
#X connect 20 0 22 0;
#X connect 21 0 16 0;
#X connect 22 0 27 0;
#X connect 22 1 1 0;
#X connect 22 2 21 0;
#X connect 23 0 26 0;
#X connect 25 0 5 0;
#X connect 26 0 29 1;
#X connect 27 0 25 0;
#X connect 27 1 24 0;
#X connect 27 2 28 0;
#X connect 28 0 26 0;
#X connect 29 0 33 0;
#X connect 30 0 31 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 34 0 41 0;
#X connect 35 0 38 0;
#X connect 36 0 10 1;
#X connect 37 0 11 1;
#X connect 38 0 6 0;
#X connect 38 1 40 0;
#X connect 39 0 19 0;
#X connect 39 1 33 1;
#X connect 40 0 39 0;
#X connect 42 0 41 0;
#X connect 43 0 41 0;
#X restore 211 440 pd save;
#X obj 307 56 b;
#X obj 265 -26 symbol \$2;
#N canvas 794 155 486 645 load 0;
#X msg 203 322 read \$1;
#X msg 203 526 \; \$1-ch \$2 \; \$1-id \$3 \;;
#X obj 176 362 until;
#X obj 176 193 openpanel;
#X obj 176 71 inlet;
#X obj 176 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 188 277 rewind;
#X msg 227 363 clear;
#X msg 291 356 print;
#X obj 176 104 route bang;
#X obj 176 245 t b b a b;
#X obj 225 139 symbol;
#X obj 203 402 textfile;
#X connect 0 0 12 0;
#X connect 2 0 12 0;
#X connect 3 0 10 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 5 0;
#X connect 9 1 11 0;
#X connect 10 0 2 0;
#X connect 10 1 6 0;
#X connect 10 2 0 0;
#X connect 10 3 7 0;
#X connect 11 0 10 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 286 436 pd load;
#X obj 81 315 r \$1-id;
#X obj 131 315 r \$1-ch;
#X obj 115 -36 route save load;
#X text 28 -99 Ben Baker-Smith - 2010;
#X obj 115 58 != 0;
#X obj 304 -75 loadbang;
#X connect 0 0 10 0;
#X connect 0 1 19 0;
#X connect 0 2 20 0;
#X connect 2 0 13 0;
#X connect 3 0 13 1;
#X connect 4 0 2 1;
#X connect 4 0 30 1;
#X connect 5 0 3 1;
#X connect 5 0 30 2;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 8 1 32 0;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 9 2 31 0;
#X connect 10 0 21 0;
#X connect 11 0 26 0;
#X connect 12 0 26 0;
#X connect 13 0 21 1;
#X connect 14 0 24 0;
#X connect 14 1 18 0;
#X connect 14 2 23 0;
#X connect 16 0 2 1;
#X connect 16 0 30 1;
#X connect 17 0 3 1;
#X connect 17 0 30 2;
#X connect 18 0 25 1;
#X connect 19 0 2 0;
#X connect 19 1 4 0;
#X connect 20 0 3 0;
#X connect 20 1 5 0;
#X connect 21 0 22 0;
#X connect 23 0 3 0;
#X connect 23 1 17 0;
#X connect 24 0 25 0;
#X connect 24 1 2 0;
#X connect 24 2 16 0;
#X connect 25 0 21 0;
#X connect 26 0 10 1;
#X connect 26 1 18 1;
#X connect 26 1 28 0;
#X connect 27 0 4 1;
#X connect 27 0 5 1;
#X connect 27 1 16 1;
#X connect 27 1 17 1;
#X connect 28 0 27 0;
#X connect 29 0 36 0;
#X connect 31 0 11 0;
#X connect 32 0 7 1;
#X connect 34 0 2 1;
#X connect 35 0 3 1;
#X connect 36 0 30 0;
#X connect 36 1 33 0;
#X connect 36 2 38 0;
#X connect 38 0 27 1;
#X connect 39 0 8 0;