-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsaveload.pd
321 lines (321 loc) · 8.35 KB
/
saveload.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
#N canvas 811 460 216 176 10;
#N canvas 300 41 1021 701 save 0;
#X obj 78 83 savepanel;
#X msg 117 240 clear;
#X obj 75 500 text define \$0-tosave;
#X msg 147 413 write \$1;
#X obj 384 435 text set \$0-tosave 1e+06;
#X obj 288 24 r storemore;
#X obj 97 347 s storemore;
#X msg 143 51 /home/zig/Nextcloud/PureData/APClooper/pdlooper/saveload/test/testfilesave.txt
, f 19;
#X msg 288 72 0 \, 63 1260;
#X obj 76 444 list append;
#X obj 76 469 list trim;
#X obj 76 387 t b s;
#X obj 76 412 delay 2000;
#X msg 339 254 symbol track\$1_l;
#X obj 288 304 moses 0;
#X obj 288 279 array min;
#X obj 288 254 delay 2;
#X obj 288 97 line 20;
#X floatatom 252 119 5 0 0 0 - - -, f 5;
#X obj 288 358 pack f f s, f 11;
#X text 357 282 store only if min < 0 i.e. array is not empty (const
0), f 20;
#X text 151 432 give it 2s to go through all 64 arrays, f 14;
#X obj 288 517 s savewav;
#X obj 546 36 r savewav;
#X obj 546 113 soundfiler;
#X floatatom 546 138 9 0 0 0 - - -, f 9;
#X obj 288 332 t b;
#X obj 339 222 t f f, f 8;
#X obj 546 61 list trim;
#X obj 288 408 list prepend;
#X msg 546 88 write -wave \$4/track\$3 track\$1_l track\$1_r;
#X obj 79 38 inlet;
#X msg 384 408 list @wav \$2 track\$2 \$3/track\$2.wav;
#X obj 307 495 s storeparams;
#X obj 593 196 r storeparams;
#X obj 804 590 text set \$0-tosave 1e+06;
#X obj 288 383 t a a, f 11;
#X obj 593 219 list trim;
#X text 364 384 0 tracknum track[tracknum] path/to/folder;
#X text 682 196 \$0 0 tracknum track[tracknum] path/to/folder;
#X msg 691 268 barsset;
#X obj 753 387 pack s f;
#X msg 787 436 symbol \$2-\$1-r;
#X obj 770 460 s;
#X msg 804 463 \$2-\$1-s;
#X obj 804 488 tools/receiver;
#X obj 804 516 list append;
#X msg 643 168 list 1745 0 56 track56 /path/lala/;
#X obj 804 565 list-rev;
#X obj 753 302 list append;
#X obj 753 327 unpack s f f f s s;
#X msg 677 291 volset;
#X msg 663 314 panset;
#X obj 900 488 pack s f s;
#X obj 753 355 t s s b, f 11;
#X msg 957 461 symbol @param;
#X msg 649 339 dursamplesset;
#X msg 635 368 outputset;
#X obj 593 242 t b b b b b b b b a a a;
#X msg 621 391 nameset;
#X obj 753 412 t b b a a;
#X obj 747 539 list store;
#X obj 326 152 tabread dollarnumarray;
#X obj 90 133 r fromui;
#X obj 90 158 routeOSC /save;
#X obj 90 183 tosymbol;
#X obj 288 122 t b b f f, f 10;
#X obj 78 218 t s s b b, f 10;
#X obj 76 532 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 86 659 s toui;
#X msg 86 573 /UIstatus Saving...;
#X msg 119 606 /UIstatus Saved!;
#X obj 97 269 splitfilename .;
#X msg 97 294 \$1_files;
#X obj 97 319 t s s, f 14;
#X msg 178 347 mkdir -p \$1;
#X obj 178 372 shell;
#X obj 402 75 s storeparams_global;
#X obj 431 497 r storeparams_global;
#X obj 288 433 t a a;
#X obj 288 49 t b s t, f 30;
#X obj 431 522 t b b;
#X obj 431 547 s tempo-r;
#X obj 431 576 r tempo-s;
#X floatatom 431 601 5 0 0 0 - - -, f 5;
#X obj 431 650 text set \$0-tosave 1e+06;
#X msg 431 625 list @globalparam tempo \$1;
#X connect 0 0 67 0;
#X connect 1 0 2 0;
#X connect 3 0 9 1;
#X connect 5 0 80 0;
#X connect 7 0 67 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 10 0 68 0;
#X connect 11 0 12 0;
#X connect 11 1 3 0;
#X connect 12 0 9 0;
#X connect 13 0 15 2;
#X connect 14 0 26 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 17 0 66 0;
#X connect 19 0 36 0;
#X connect 23 0 28 0;
#X connect 24 0 25 0;
#X connect 26 0 19 0;
#X connect 27 0 13 0;
#X connect 27 1 29 1;
#X connect 28 0 30 0;
#X connect 29 0 79 0;
#X connect 30 0 24 0;
#X connect 31 0 0 0;
#X connect 32 0 4 0;
#X connect 34 0 37 0;
#X connect 36 0 29 0;
#X connect 36 1 32 0;
#X connect 37 0 58 0;
#X connect 40 0 49 0;
#X connect 41 0 60 0;
#X connect 42 0 43 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 61 1;
#X connect 47 0 37 0;
#X connect 48 0 35 0;
#X connect 49 0 50 0;
#X connect 50 0 54 0;
#X connect 50 1 41 1;
#X connect 50 3 53 1;
#X connect 51 0 49 0;
#X connect 52 0 49 0;
#X connect 53 0 46 1;
#X connect 54 0 41 0;
#X connect 54 1 53 0;
#X connect 54 2 55 0;
#X connect 55 0 53 2;
#X connect 56 0 49 0;
#X connect 57 0 49 0;
#X connect 58 2 59 0;
#X connect 58 3 57 0;
#X connect 58 4 56 0;
#X connect 58 5 52 0;
#X connect 58 6 51 0;
#X connect 58 7 40 0;
#X connect 58 10 49 1;
#X connect 59 0 49 0;
#X connect 60 0 61 0;
#X connect 60 1 43 0;
#X connect 60 2 42 0;
#X connect 60 3 44 0;
#X connect 61 0 48 0;
#X connect 62 0 27 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 67 0;
#X connect 66 0 16 0;
#X connect 66 2 62 0;
#X connect 66 3 19 1;
#X connect 67 0 11 0;
#X connect 67 1 72 0;
#X connect 67 2 1 0;
#X connect 67 3 70 0;
#X connect 68 0 71 0;
#X connect 70 0 69 0;
#X connect 71 0 69 0;
#X connect 72 0 73 0;
#X connect 73 0 74 0;
#X connect 74 0 6 0;
#X connect 74 1 75 0;
#X connect 75 0 76 0;
#X connect 78 0 81 0;
#X connect 79 0 22 0;
#X connect 79 1 33 0;
#X connect 80 0 8 0;
#X connect 80 1 19 2;
#X connect 80 2 77 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 86 0;
#X connect 86 0 85 0;
#X restore 77 52 pd save;
#X obj 77 23 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 49 71 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#N canvas 89 67 628 675 load 0;
#X msg 64 168 read \$1;
#X obj 64 193 text define \$0-toload;
#X obj 45 20 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 45 43 openpanel;
#X obj 270 -24 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 270 24 text sequence \$0-toload;
#X obj 270 49 list trim;
#X obj 375 96 t a a, f 20;
#X floatatom 433 233 5 0 0 0 - - -, f 5;
#X msg 111 -15 read /home/zig/Nextcloud/PureData/APClooper/pdlooper/saveload/test/testfilesave.txt
, f 19;
#X obj 375 393 soundfiler;
#X floatatom 375 418 10 0 0 0 - - -, f 10;
#X obj 45 -3 inlet;
#X obj 375 275 list store;
#X obj 375 330 route @wav @param;
#X obj 433 252 list prepend;
#X msg 375 365 read -resize \$3 track\$4_l track\$4_r;
#X msg 600 461 symbol \$4-\$2-r;
#X obj 479 518 s;
#X msg 479 433 \$3;
#X obj 414 186 tabread dollarnumarray;
#X obj 375 165 t b f f;
#X floatatom 375 144 5 0 0 0 - - -, f 5;
#X msg 270 -1 line 0 \, tempo 10 msec \, auto;
#X msg 375 119 \$1;
#X obj 585 431 print params;
#X obj 280 390 print wav;
#X obj 375 300 list trim;
#X obj 414 211 t f f;
#X obj 403 521 s toui;
#X obj 375 444 pack f f;
#X msg 402 498 /create \$2;
#X obj 58 71 r fromui;
#X obj 58 96 routeOSC /load;
#X obj 165 222 print bang;
#X msg 123 170 clear;
#X obj 58 121 tosymbol;
#X obj 479 485 symbol;
#X obj 531 485 f;
#X obj 460 410 t a a a;
#X obj 479 458 route symbol float;
#X obj 375 567 t 5;
#X obj 375 593 s;
#X obj 375 469 t a a a;
#X obj 43 483 s toui;
#X obj 45 145 t b a b b;
#X obj 54 403 delay 500;
#X msg 43 369 /UIstatus Loading...;
#X msg 54 429 /UIstatus Loaded!, f 10;
#X text 122 415 500 ms should be plenty of time to load the wav after
the last row has been read \; , f 17;
#X obj 270 74 route @globalparam;
#X obj 270 151 s;
#X msg 270 124 \$2;
#X msg 297 123 symbol \$1-r;
#X obj 270 99 t l l;
#X msg 411 571 symbol \$2-statusset-r;
#X obj 375 543 delay 1000;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 45 0;
#X connect 4 0 23 0;
#X connect 5 0 6 0;
#X connect 5 1 46 0;
#X connect 6 0 50 0;
#X connect 7 0 24 0;
#X connect 7 1 15 1;
#X connect 8 0 15 0;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 30 0;
#X connect 12 0 2 0;
#X connect 13 0 27 0;
#X connect 14 0 16 0;
#X connect 14 1 39 0;
#X connect 15 0 13 1;
#X connect 16 0 10 0;
#X connect 16 0 26 0;
#X connect 17 0 18 1;
#X connect 19 0 40 0;
#X connect 20 0 28 0;
#X connect 21 0 13 0;
#X connect 21 1 30 1;
#X connect 21 2 20 0;
#X connect 22 0 21 0;
#X connect 23 0 5 0;
#X connect 24 0 22 0;
#X connect 27 0 14 0;
#X connect 28 1 8 0;
#X connect 30 0 43 0;
#X connect 31 0 29 0;
#X connect 32 0 33 0;
#X connect 33 0 36 0;
#X connect 35 0 1 0;
#X connect 36 0 45 0;
#X connect 37 0 18 0;
#X connect 38 0 18 0;
#X connect 39 0 25 0;
#X connect 39 1 19 0;
#X connect 39 2 17 0;
#X connect 40 0 37 0;
#X connect 40 1 38 0;
#X connect 41 0 42 0;
#X connect 43 0 56 0;
#X connect 43 1 55 0;
#X connect 43 2 31 0;
#X connect 45 0 4 0;
#X connect 45 1 0 0;
#X connect 45 2 35 0;
#X connect 45 3 47 0;
#X connect 46 0 48 0;
#X connect 47 0 44 0;
#X connect 48 0 44 0;
#X connect 50 0 54 0;
#X connect 50 1 7 0;
#X connect 52 0 51 0;
#X connect 53 0 51 1;
#X connect 54 0 52 0;
#X connect 54 1 53 0;
#X connect 55 0 42 1;
#X connect 56 0 41 0;
#X restore 48 95 pd load;
#X connect 1 0 0 0;
#X connect 2 0 3 0;