-
Notifications
You must be signed in to change notification settings - Fork 0
/
brp_pre.pd
executable file
·314 lines (314 loc) · 8.22 KB
/
brp_pre.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
#N canvas 533 178 1158 695 10;
#X declare -stdlib iemlib/iemlib2;
#X declare -stdlib iemlib/iemlib1;
#X declare -lib tof/breakpoints;
#X declare -lib cyclone;
#X declare -stdlib zexy;
#X obj 84 467 cnv 10 198 11 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 367 4 r SaveMaster;
#X obj 367 399 s to_Master_preset;
#X obj 385 110 r CallBack-Master;
#N canvas 1100 251 385 415 sym-route 0;
#X obj 50 34 inlet;
#X obj 210 36 inlet;
#X obj 84 376 outlet;
#X obj 49 60 t a a;
#X msg 158 222 1;
#X msg 191 221 0;
#X obj 50 276 spigot;
#X obj 50 322 list split 1;
#X obj 84 346 list trim;
#X text 48 13 message;
#X text 210 17 selector;
#X obj 159 276 spigot;
#X obj 192 254 == 0;
#X obj 165 377 outlet;
#X obj 121 100 list split 1;
#X obj 122 122 route symbol;
#X obj 159 186 select ___undefined___;
#X text 183 325 route with variable symbol arg.;
#X connect 0 0 3 0;
#X connect 1 0 16 1;
#X connect 3 0 6 0;
#X connect 3 0 11 0;
#X connect 3 1 14 0;
#X connect 4 0 6 1;
#X connect 4 0 12 0;
#X connect 5 0 6 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 1 8 0;
#X connect 8 0 2 0;
#X connect 11 0 13 0;
#X connect 12 0 11 1;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 5 0;
#X connect 16 0 4 0;
#X connect 16 1 5 0;
#X restore 385 218 pd sym-route;
#X obj 385 130 t a b;
#X text 479 219 <- credit to Thomas Grill. Thank You!!!;
#X obj 592 191 cyclone/prepend symbol;
#X obj 785 147 i \$2;
#X obj 592 115 symbol \$1;
#X obj 42 118 inlet;
#X obj 367 23 t b b;
#X obj 367 298 t a b;
#X obj 1012 105 send preAbsCount;
#X obj 1012 84 iemguts/canvasindex;
#X obj 1012 59 loadbang;
#X obj 999 37 r update_abs_count;
#X obj 85 493 outlet;
#X obj 179 495 outlet;
#X obj 274 492 outlet;
#X msg 205 319 dump;
#X msg 44 239 0 50 1 50 0;
#X obj 87 467 bng 9 250 50 0 \$0-send-reset-brp empty RESET 11 5 0
9 -4032 -258113 -228856;
#X obj 17 194 r \$0-send-reset-brp;
#X obj 385 250 nbx 3 11 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-191407 -1 -1 0 256;
#X obj 640 549 cyclone/coll;
#C restore;
#X msg 762 451 store \$1;
#X obj 716 474 prepend;
#X obj 716 434 list;
#N canvas 168 53 1025 697 open_save-file 0;
#X obj 206 22 inlet;
#X text 354 296 file doesn't exist;
#X text 106 271 file exists;
#X obj 86 577 outlet OPEN --- SAVE;
#X obj 404 383 print -n;
#X obj 266 294 route error;
#X obj 266 366 bang;
#X obj 251 233 prepend symbol;
#X obj 86 340 bang;
#X text 520 483 checks if file exists \; it creates it if it doesn't
exist \; it opens it if the file already exists;
#X obj 556 89 inlet;
#X text 594 87 saves the file each time a new preset is recorded \,
updating the file in disk;
#X obj 206 265 hcs/stat;
#X obj 251 188 tof/path;
#X obj 404 323 b;
#X obj 404 363 list trim;
#X obj 404 343 makesymbol -----CREATING_BRP_MEM_FILE_\$1-\$2-----;
#X obj 91 307 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 206 51 del 100;
#N canvas 0 50 500 300 write_file 0;
#X obj 126 29 inlet;
#X obj 126 230 outlet;
#X obj 126 137 tof/path;
#X obj 126 52 t b b b;
#X obj 126 198 prepend write;
#X obj 297 129 inlet;
#X obj 126 158 cyclone/sprintf %s/%s-%s.brkp;
#X obj 211 103 makesymbol \$1-\$2;
#X connect 0 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 7 0;
#X connect 4 0 1 0;
#X connect 5 0 6 2;
#X connect 6 0 4 0;
#X connect 7 0 6 1;
#X restore 266 496 pd write_file;
#N canvas 0 50 619 300 read_file 0;
#X obj 142 43 inlet;
#X obj 142 244 outlet;
#X obj 142 151 tof/path;
#X obj 142 66 t b b b;
#X obj 142 212 prepend read;
#X obj 313 143 inlet;
#X obj 142 172 cyclone/sprintf %s/%s-%s.brkp;
#X obj 227 117 makesymbol \$1-\$2;
#X connect 0 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 7 0;
#X connect 4 0 1 0;
#X connect 5 0 6 2;
#X connect 6 0 4 0;
#X connect 7 0 6 1;
#X restore 86 452 pd read_file;
#X obj 422 82 inlet;
#X obj 206 76 t b b b;
#X obj 336 149 makesymbol \$1-\$2;
#X obj 251 209 cyclone/sprintf %s/%s-%s.brkp;
#X connect 0 0 18 0;
#X connect 5 0 6 0;
#X connect 5 1 14 0;
#X connect 6 0 19 0;
#X connect 7 0 12 1;
#X connect 8 0 20 0;
#X connect 10 0 6 0;
#X connect 12 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 24 0;
#X connect 14 0 16 0;
#X connect 15 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 8 0;
#X connect 18 0 22 0;
#X connect 19 0 3 0;
#X connect 20 0 3 0;
#X connect 21 0 19 1;
#X connect 21 0 20 1;
#X connect 21 0 24 2;
#X connect 22 0 12 0;
#X connect 22 1 13 0;
#X connect 22 2 23 0;
#X connect 23 0 24 1;
#X connect 24 0 7 0;
#X restore 393 532 pd open_save-file;
#X obj 899 396 s \$0-dump_BRP4_PRESETS;
#X obj 178 271 r \$0-dump_BRP4_PRESETS;
#X obj 902 191 declare -stdlib iemlib/iemlib2;
#X obj 902 210 declare -stdlib iemlib/iemlib1;
#X obj 902 172 declare -lib tof/breakpoints;
#X obj 902 229 declare -lib cyclone;
#X obj 902 248 declare -stdlib zexy;
#X obj 87 357 breakpoints 190 105;
#X obj 178 614 s \$0-env_2_store;
#X obj 741 403 r \$0-env_2_store;
#X obj 175 467 nbx 5 10 10 1e+37 0 0 empty \$0-BRP-DUR_PresetCallback
DURATION 55 6 0 10 -4032 -1 -258113 10 256;
#X msg 178 538 duration \$1;
#X obj 178 591 list append;
#X obj 178 294 t b b;
#X obj 241 570 prepend env;
#X obj 85 297 t b b;
#X obj 640 572 list split 2;
#X obj 640 594 route list;
#X obj 640 615 route duration;
#X obj 754 594 route list;
#X obj 754 615 route env;
#X obj 142 242 r \$0-BRP-ENV_PresetCallback;
#X obj 640 659 s \$0-BRP-DUR_PresetCallback;
#X obj 754 638 send \$0-BRP-ENV_PresetCallback;
#X obj 696 358 int;
#X obj 696 379 t b b f b;
#X obj 367 273 int;
#X obj 136 467 bng 9 250 50 0 empty empty ENVS 11 5 0 9 -4032 -258113
-228856;
#X msg 138 512 open;
#X obj 138 564 s \$0-op;
#X obj 740 532 r \$0-op;
#X obj 640 354 i;
#X text 836 657 <- duration GUI;
#X obj 592 166 cyclone/sprintf brp-%s-%s-%d;
#X obj 451 468 iemguts/canvasname 1;
#X obj 539 489 iemguts/canvasargs 1;
#X obj 451 508 sprintf %s-%s;
#X obj 393 446 t b b b;
#X obj 688 84 iemguts/canvasname 1;
#X obj 776 104 iemguts/canvasargs 1;
#X obj 688 124 sprintf %s-%s;
#X obj 592 59 t b b b b;
#X obj 658 314 r PRE-MANAGER-update-number_ReCALL;
#X obj 714 338 r PRE-MANAGER-update-number_STORE;
#X obj 469 315 symbol;
#X obj 469 335 list trim;
#X obj 305 68 r PRE-MANAGER-update-number_STORE;
#X text 117 76 www.jrsv.net;
#X text 76 63 released under GPL license;
#X text 90 91 Edinburgh - Scotland;
#X text 76 48 (c) J.Rafael Subia V. 2016;
#X obj 17 215 t b b;
#X obj 42 158 route bang dump duration;
#X obj 592 40 loadbang;
#X obj 393 426 loadbang;
#X obj 367 356 list prepend;
#X obj 367 379 route list;
#X connect 1 0 11 0;
#X connect 3 0 5 0;
#X connect 4 0 24 0;
#X connect 5 0 4 0;
#X connect 5 1 8 0;
#X connect 5 1 61 0;
#X connect 7 0 4 1;
#X connect 7 0 74 1;
#X connect 8 0 63 2;
#X connect 9 0 63 0;
#X connect 10 0 82 0;
#X connect 11 0 54 0;
#X connect 11 0 56 0;
#X connect 12 0 85 0;
#X connect 12 1 74 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 20 0 37 0;
#X connect 21 0 37 0;
#X connect 23 0 81 0;
#X connect 24 0 56 1;
#X connect 25 0 46 0;
#X connect 27 0 25 0;
#X connect 28 0 27 0;
#X connect 29 0 25 0;
#X connect 31 0 43 0;
#X connect 37 0 17 0;
#X connect 37 1 18 0;
#X connect 37 1 44 0;
#X connect 37 2 19 0;
#X connect 37 2 20 0;
#X connect 39 0 28 1;
#X connect 40 0 41 0;
#X connect 40 0 20 0;
#X connect 41 0 42 0;
#X connect 41 0 37 0;
#X connect 42 0 38 0;
#X connect 43 0 40 0;
#X connect 43 1 20 0;
#X connect 44 0 42 1;
#X connect 45 0 37 0;
#X connect 45 1 40 0;
#X connect 46 0 47 0;
#X connect 46 1 49 0;
#X connect 47 0 48 0;
#X connect 48 0 52 0;
#X connect 49 0 50 0;
#X connect 50 0 53 0;
#X connect 51 0 37 0;
#X connect 54 0 55 0;
#X connect 55 0 29 2;
#X connect 55 1 28 0;
#X connect 55 2 26 0;
#X connect 55 3 30 0;
#X connect 56 0 12 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 60 0 25 0;
#X connect 61 0 25 0;
#X connect 63 0 7 0;
#X connect 64 0 66 0;
#X connect 65 0 66 1;
#X connect 66 0 29 1;
#X connect 67 0 29 0;
#X connect 67 1 64 0;
#X connect 67 2 65 0;
#X connect 68 0 70 0;
#X connect 69 0 70 1;
#X connect 70 0 63 1;
#X connect 71 0 9 0;
#X connect 71 1 68 0;
#X connect 71 2 69 0;
#X connect 71 3 8 0;
#X connect 72 0 61 1;
#X connect 73 0 54 1;
#X connect 74 0 75 0;
#X connect 75 0 85 1;
#X connect 76 0 24 0;
#X connect 81 0 20 0;
#X connect 81 1 21 0;
#X connect 82 0 45 0;
#X connect 82 1 20 0;
#X connect 82 2 40 0;
#X connect 83 0 71 0;
#X connect 84 0 67 0;
#X connect 85 0 86 0;
#X connect 86 0 2 0;
#X coords 0 -1 1 1 198 125 2 84 354;