aboutsummaryrefslogtreecommitdiff
path: root/memento/careOSC.pd
blob: 3b5c25ffb4357d4a14ada874af4c09aceef02a16 (plain)
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
#N canvas 159 71 136 70 10;
#N canvas 108 9 1009 776 guts 0;
#X msg 136 235 chdir;
#N canvas 0 0 710 488 listdirs 0;
#X obj 35 14 inlet;
#X obj 284 279 outlet;
#X obj 348 27 inlet;
#X msg 240 13 getsub;
#X obj 286 250 textfile;
#X msg 269 168 clear;
#X msg 357 165 print;
#X obj 239 43 t b a b;
#X msg 220 191 rewind;
#X text 356 253 toplevel dirs;
#X obj 299 100 spigot;
#X msg 301 69 0;
#X msg 329 70 1;
#X obj 428 281 outlet;
#X obj 37 89 select getsub output;
#X msg 452 154 bang;
#X obj 38 48 symbol;
#X obj 40 40;
#X obj 361 279 outlet;
#X obj 299 138 prepend add;
#X connect 0 0 16 0;
#X connect 2 0 10 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 18 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 7 0 11 0;
#X connect 7 1 13 0;
#X connect 7 2 5 0;
#X connect 7 2 12 0;
#X connect 8 0 4 0;
#X connect 10 0 19 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 14 0 3 0;
#X connect 14 1 4 0;
#X connect 15 0 4 0;
#X connect 16 0 14 0;
#X connect 19 0 4 0;
#X restore 79 315 pd listdirs;
#X msg 79 238 getsub;
#X msg 93 264 output;
#N canvas 0 0 710 488 listdirs 0;
#X obj 35 14 inlet;
#X obj 284 279 outlet;
#X obj 348 27 inlet;
#X msg 240 13 getsub;
#X obj 286 250 textfile;
#X msg 269 168 clear;
#X msg 357 165 print;
#X obj 239 43 t b a b;
#X msg 220 191 rewind;
#X text 356 253 toplevel dirs;
#X obj 299 100 spigot;
#X msg 301 69 0;
#X msg 329 70 1;
#X obj 428 281 outlet;
#X obj 37 89 select getsub output;
#X msg 452 154 bang;
#X obj 38 48 symbol;
#X obj 361 279 outlet;
#X obj 309 148 prepend add;
#X connect 0 0 16 0;
#X connect 2 0 10 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 17 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 7 0 11 0;
#X connect 7 1 13 0;
#X connect 7 2 5 0;
#X connect 7 2 12 0;
#X connect 8 0 4 0;
#X connect 10 0 18 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 14 0 3 0;
#X connect 14 1 4 0;
#X connect 15 0 4 0;
#X connect 16 0 14 0;
#X connect 18 0 4 0;
#X restore 448 208 pd listdirs;
#X msg 421 174 getsub;
#X obj 339 170 symbol;
#X msg 486 176 output;
#X msg 298 198 chdir \$1;
#X msg 219 141 absdir \$1;
#X obj 198 119 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 62 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 216 73 loadbang;
#X obj 61 200 t b b b b;
#X obj 79 342 send \$0-top;
#X obj 344 77 r \$0-top;
#X obj 352 135 t b b b b a;
#X obj 469 149 until;
#X msg 219 98 1;
#X obj 584 327 prepend chdir;
#X msg 526 330 getall;
#X obj 542 275 t b a a;
#X obj 779 378 symbol;
#X msg 776 358 \$1;
#X obj 739 293 prepend list;
#X obj 781 322 t a a;
#X msg 700 404 \$2;
#X msg 757 436 set \$1;
#X obj 761 479 prepend nothing;
#X obj 783 408 makefilename %s/preset;
#X obj 549 557 prepend nothing;
#X obj 605 468 makefilename;
#X msg 586 532 set \$1;
#X msg 629 444 set \$1%s;
#X obj 693 648 textfile;
#X obj 689 611 prepend add;
#X msg 797 571 clear;
#X msg 62 401 print;
#X obj 476 101 del 250;
#X text 536 96 savety measure;
#X obj 214 320 pool RRADICAL;
#X obj 575 366 pool RRADICAL;
#X text 47 75 bang for save!;
#X text 907 615 write file;
#X obj 865 586 prepend write;
#X obj 863 529 r \$0-save;
#X obj 78 146 r \$0-create;
#X obj 860 555 savepanel;
#X obj 693 705 outlet;
#X obj 714 675 until;
#X obj 534 594 r \$0-load;
#X obj 537 626 openpanel;
#X msg 539 647 read \$1;
#X obj 530 669 t b b a;
#X msg 567 696 rewind;
#X text 122 365 list topdirs;
#X text 538 208 list subdirs (presets!);
#X obj 430 623 r \$0-loadfile;
#X obj 323 616 inlet;
#X obj 323 642 s \$0-loadfile;
#X connect 0 0 40 0;
#X connect 1 0 14 0;
#X connect 1 2 40 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 21 0;
#X connect 4 1 3 0;
#X connect 4 1 17 1;
#X connect 4 2 40 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X connect 8 0 40 0;
#X connect 9 0 40 0;
#X connect 10 0 9 0;
#X connect 11 0 13 0;
#X connect 12 0 18 0;
#X connect 13 0 37 0;
#X connect 13 1 3 0;
#X connect 13 2 2 0;
#X connect 13 3 0 0;
#X connect 13 3 36 0;
#X connect 15 0 16 0;
#X connect 16 1 38 0;
#X connect 16 2 17 0;
#X connect 16 3 5 0;
#X connect 16 4 6 0;
#X connect 17 0 7 0;
#X connect 18 0 9 0;
#X connect 19 0 41 0;
#X connect 20 0 41 0;
#X connect 21 0 20 0;
#X connect 21 1 19 0;
#X connect 21 2 24 0;
#X connect 22 0 29 0;
#X connect 22 0 33 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 1 23 0;
#X connect 26 0 28 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 27 0;
#X connect 30 0 35 0;
#X connect 31 0 32 0;
#X connect 32 0 30 0;
#X connect 33 0 31 0;
#X connect 34 0 48 0;
#X connect 34 1 49 1;
#X connect 35 0 34 0;
#X connect 36 0 34 0;
#X connect 37 0 34 0;
#X connect 38 0 17 1;
#X connect 40 1 1 1;
#X connect 40 1 4 1;
#X connect 41 0 30 0;
#X connect 41 1 31 0;
#X connect 44 0 34 0;
#X connect 45 0 47 0;
#X connect 46 0 11 0;
#X connect 47 0 44 0;
#X connect 49 0 34 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 49 0;
#X connect 53 1 54 0;
#X connect 53 2 34 0;
#X connect 54 0 34 0;
#X connect 57 0 52 0;
#X connect 58 0 59 0;
#X restore 23 4 pd guts;
#X obj 13 28 bng 24 250 50 0 \$0-create \$0-create create 0 -6 0 8
-24198 -1 -1;
#X obj 57 28 bng 24 250 50 0 \$0-save \$0-save save 0 -6 0 8 -241291
-1 -1;
#X obj 98 29 bng 24 250 50 0 \$0-load \$0-load load 0 -6 0 8 -258699
-1 -1;
#X obj 49 49 outlet;
#X obj 92 5 inlet;
#X connect 0 0 4 0;
#X connect 5 0 0 0;
#X coords 0 0 1 1 120 60 1;