-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathdksndload-text.pd
204 lines (204 loc) · 4.98 KB
/
dksndload-text.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
#N canvas 526 142 1874 1009 12;
#X obj 194 279 text get \$1;
#X obj 199 181 text size \$1;
#X obj 196 218 dkfor;
#X obj 189 318 list prepend 0;
#X text 396 187 0 - no prefix/suffix for arrays;
#X text 389 209 1 - prefix for arrays;
#X text 391 235 2 - suffix for arrays;
#X obj 360 512 list split 1;
#X obj 192 393 route 0, f 25;
#X obj 377 563 list split 1;
#X text 463 508 take off router;
#X text 522 578 take off path;
#X obj 732 27 inlet;
#X text 788 33 symbol to append/prepend;
#X obj 994 16 inlet;
#X text 1038 21 none/prepend/append;
#X obj 1016 379 clip 0 2;
#X obj 1016 403 i;
#X obj 1278 18 inlet;
#X text 1331 21 text symbol;
#X obj 1246 137 symbol;
#N canvas 1645 329 733 610 list-munger 0;
#X obj 76 56 inlet;
#X obj 57 126 list length;
#X obj 45 219 list store;
#X obj 57 150 dkfor, f 23;
#X msg 44 184 get \$1 1;
#X obj 51 303 makefilename;
#X obj 54 412 list store;
#X obj 76 80 t l l b;
#X obj 54 455 outlet;
#X obj 274 57 inlet;
#X obj 445 50 inlet;
#X text 323 54 symbol to add;
#X text 499 49 none/prepend/append;
#X obj 274 81 list prepend 0;
#X obj 269 132 route 0 1 2;
#X obj 289 172 symbol;
#X msg 289 196 set \$1%s;
#X obj 371 174 symbol;
#X msg 371 198 set %s\$1;
#X msg 51 327 append \$1;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 3 1 6 0;
#X connect 4 0 2 0;
#X connect 5 0 19 0;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 7 1 2 1;
#X connect 7 2 6 1;
#X connect 9 0 13 0;
#X connect 10 0 13 1;
#X connect 13 0 14 0;
#X connect 14 1 15 0;
#X connect 14 2 17 0;
#X connect 15 0 16 0;
#X connect 16 0 5 0;
#X connect 17 0 18 0;
#X connect 18 0 5 0;
#X connect 19 0 6 0;
#X restore 434 661 pd list-munger;
#X f 54;
#X obj 195 693 list append, f 25;
#X obj 179 783 soundfiler;
#X obj 181 733 list prepend read -resize -maxsize 1.0584e+09;
#X obj 181 757 list trim;
#X obj 204 52 inlet;
#X text 260 50 trigger;
#X obj 197 248 t f f, f 18;
#X obj 173 860 f;
#X obj 293 849 + 1;
#X msg 309 804 0;
#X obj 293 873 t f f;
#X obj 293 897 >= 1;
#X obj 293 921 sel 1;
#X obj 293 945 outlet;
#X text 349 947 donebang;
#X obj 727 362 t s s;
#X obj 767 389 dksymbollen;
#X obj 769 422 > 0;
#X obj 766 485 * 1;
#X obj 766 509 t f f;
#X obj 735 328 symbol \$2;
#X obj 1048 286 loadbang;
#X obj 1025 345 f \$3;
#X text 822 508 to append/prepend \, symbol must be nonempty;
#X obj 191 487 list split 1;
#X text 283 448 take off path;
#N canvas 538 727 760 594 path-appender 0;
#X obj 103 73 inlet;
#X obj 317 75 inlet;
#X text 385 69 to-prepend;
#X text 149 71 input path;
#X obj 303 171 symbol;
#X obj 303 195 t s s;
#X obj 337 226 dksymbollen;
#X obj 119 273 list prepend 0;
#X obj 119 297 route 0 1;
#X obj 121 418 outlet;
#X obj 189 373 makefilename;
#X msg 264 305 set \$1%s;
#X obj 337 250 > 0;
#X msg 203 181 0;
#X obj 317 99 route bang;
#X obj 167 334 symbol;
#X connect 0 0 7 0;
#X connect 1 0 14 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 5 1 6 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 15 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 7 1;
#X connect 13 0 7 1;
#X connect 14 0 13 0;
#X connect 14 1 4 0;
#X connect 15 0 10 0;
#X restore 183 631 pd path-appender;
#X obj 202 84 route bang path symbol mode text, f 176;
#X obj 179 807 > 0;
#X obj 179 831 sel 1;
#X obj 204 129 t b b;
#X obj 718 150 route bang;
#X msg 860 287 0;
#X obj 1016 427 t b f;
#X text 1724 30 derek kwan;
#X text 1725 54 pdkvabs;
#X text 1725 80 gpl v 3 2018;
#X text 986 612 args - text path/array list;
#X text 1032 633 symbol to add;
#X text 1038 658 none/prepend/append;
#X text 1041 681 text symbol;
#X text 979 721 inlets - trigger (or setting args);
#X text 1037 744 symbol to add;
#X text 1036 762 none/prepend/append;
#X text 1038 787 text symbol;
#X text 71 22 dksndload-text - give a text sound manifest and load
it;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 28 0;
#X connect 3 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 46 0;
#X connect 8 1 7 0;
#X connect 9 0 48 0;
#X connect 9 1 21 0;
#X connect 12 0 42 0;
#X connect 14 0 44 0;
#X connect 16 0 17 0;
#X connect 17 0 55 0;
#X connect 18 0 20 0;
#X connect 20 0 1 1;
#X connect 20 0 0 3;
#X connect 21 0 22 1;
#X connect 22 0 24 0;
#X connect 23 0 50 0;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 26 0 49 0;
#X connect 28 0 0 0;
#X connect 28 1 33 1;
#X connect 29 0 30 0;
#X connect 30 0 32 0;
#X connect 31 0 29 1;
#X connect 32 0 33 0;
#X connect 32 1 29 1;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 21 1;
#X connect 37 1 38 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 3 1;
#X connect 41 1 21 2;
#X connect 42 0 37 0;
#X connect 43 0 44 0;
#X connect 44 0 16 0;
#X connect 46 0 48 0;
#X connect 46 1 22 1;
#X connect 48 0 22 0;
#X connect 49 0 52 0;
#X connect 49 1 48 1;
#X connect 49 2 53 0;
#X connect 49 3 44 0;
#X connect 49 4 20 0;
#X connect 50 0 51 0;
#X connect 51 0 29 0;
#X connect 52 0 1 0;
#X connect 52 1 31 0;
#X connect 53 0 54 0;
#X connect 53 1 42 0;
#X connect 54 0 39 0;
#X connect 55 0 42 0;
#X connect 55 1 40 1;