/
recorder-mono~.pd
245 lines (245 loc) · 5.9 KB
/
recorder-mono~.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
#N canvas 614 45 579 575 12;
#X declare -lib zexy;
#X listbox 109 130 34 0 0 0 - \$0-status - 0;
#X obj 314 166 tgl 15 0 empty empty timestamp -20 -8 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 265 166 tgl 15 0 empty \$0-switch go 1 -8 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 421 20 loadbang;
#X msg 421 45 args 0;
#X obj 421 70 pdcontrol;
#X listbox 145 162 12 0 0 0 - \$0-rectime - 0;
#X obj 52 203 select 0 1, f 28;
#N canvas 375 47 450 587 processArgs 0;
#X obj 37 37 inlet;
#X obj 37 128 list split 1, f 31;
#X obj 144 153 t b b a, f 16;
#X obj 144 278 list store, f 16;
#X msg 198 178 0;
#X obj 144 178 until;
#X obj 144 203 f, f 5;
#X obj 144 228 t f f;
#X obj 198 203 + 2;
#X msg 144 253 get \$1 2;
#X obj 144 303 t b a b a, f 29;
#X obj 277 353 list store;
#X msg 144 328 get 1 1;
#X msg 277 328 get 0 1;
#X obj 144 353 list store;
#X msg 277 378 symbol \$1;
#X obj 144 472 send, f 19;
#X obj 101 37 inlet;
#X text 101 14 2nd inlet sets defaults (only at init);
#X msg 101 62 pdrec -bytes 2 -format wav -stamp 1;
#X obj 277 403 pack s \$0;
#X obj 37 153 s \$0-basename;
#X msg 277 428 symbol \$2\$1;
#X connect 0 0 1 0;
#X connect 1 0 21 0;
#X connect 1 1 2 0;
#X connect 2 0 5 0;
#X connect 2 1 4 0;
#X connect 2 2 3 1;
#X connect 3 0 10 0;
#X connect 3 1 5 1;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 8 0 6 1;
#X connect 9 0 3 0;
#X connect 10 0 12 0;
#X connect 10 1 14 1;
#X connect 10 2 13 0;
#X connect 10 3 11 1;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 14 0 16 0;
#X connect 15 0 20 0;
#X connect 17 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 22 0;
#X connect 22 0 16 1;
#X restore 421 120 pd processArgs;
#N canvas 509 56 808 465 makeArgList 0;
#X obj 74 33 inlet;
#X msg 74 367 open -bytes \$3 \$1.\$2;
#X obj 223 420 outlet;
#X obj 74 275 pack s s f, f 33;
#X obj 74 250 symbol;
#X obj 74 58 list prepend 1;
#X obj 74 83 list trim;
#X obj 74 108 route 0 1, f 93;
#N canvas 513 51 450 409 getstamp 0;
#X obj 61 38 inlet;
#X obj 61 63 t b b, f 15;
#X obj 163 126 time, f 16;
#X obj 61 126 date, f 12;
#X obj 170 257 makefilename %02d;
#X obj 148 232 makefilename %02d;
#X obj 126 207 makefilename %02d;
#X obj 61 332 outlet;
#X msg 61 307 symbol \$1-\$2-\$3-\$4\$5\$6;
#X obj 104 176 makefilename %02d;
#X obj 82 151 makefilename %02d;
#X obj 61 282 pack 0 s s s s s;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 6 0;
#X connect 2 1 5 0;
#X connect 2 2 4 0;
#X connect 3 0 11 0;
#X connect 3 1 10 0;
#X connect 3 2 9 0;
#X connect 4 0 11 5;
#X connect 5 0 11 4;
#X connect 6 0 11 3;
#X connect 8 0 7 0;
#X connect 9 0 11 2;
#X connect 10 0 11 1;
#X connect 11 0 8 0;
#X restore 696 250 pd getstamp;
#X obj 398 275 pack s s f s, f 43;
#X obj 398 250 symbol;
#X obj 398 133 t b b;
#X msg 398 367 open -bytes \$3 \$1-\$4.\$2;
#X msg 89 303 symbol \$1.\$2;
#X msg 413 303 symbol \$1-\$4.\$2;
#X obj 169 33 r \$0-stamp;
#X obj 113 225 r \$0-basename;
#X obj 188 250 r \$0-format;
#X obj 302 250 r \$0-bytes;
#X obj 89 328 s \$0-status;
#X obj 413 328 s \$0-status;
#X obj 437 225 r \$0-basename;
#X obj 497 250 r \$0-format;
#X obj 596 250 r \$0-bytes;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 11 0;
#X connect 8 0 9 3;
#X connect 9 0 12 0;
#X connect 9 0 14 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 11 1 8 0;
#X connect 12 0 2 0;
#X connect 13 0 19 0;
#X connect 14 0 20 0;
#X connect 15 0 5 1;
#X connect 16 0 4 1;
#X connect 17 0 3 1;
#X connect 18 0 3 2;
#X connect 21 0 10 1;
#X connect 22 0 9 1;
#X connect 23 0 9 2;
#X restore 189 347 pd makeArgList;
#X obj 189 372 t b a, f 14;
#X msg 189 397 start;
#X msg 369 168 set \$1;
#X obj 52 228 t b b;
#X msg 84 253 0;
#X msg 418 347 0;
#X msg 171 253 1;
#N canvas 268 225 450 407 timer 0;
#X obj 51 37 inlet;
#X obj 143 12 inlet;
#X obj 51 203 f;
#X obj 143 37 t f f;
#X obj 51 62 f;
#X obj 238 62 + 1;
#X obj 238 87 moses 60, f 11;
#X obj 238 112 t f b;
#X msg 270 137 0;
#X obj 51 228 t f f;
#X obj 103 203 +;
#X obj 312 112 t b b;
#X msg 312 137 0;
#X msg 344 137 1;
#X obj 51 87 t b f f;
#X obj 188 228 makefilename %%d:%02d;
#X msg 188 253 set \$1;
#X obj 188 278 makefilename;
#X obj 188 303 s \$0-rectime;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 4 1;
#X connect 3 1 2 1;
#X connect 4 0 14 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 11 0;
#X connect 7 0 4 1;
#X connect 7 1 8 0;
#X connect 8 0 10 1;
#X connect 9 0 17 0;
#X connect 9 1 10 0;
#X connect 10 0 2 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 12 0 4 1;
#X connect 13 0 10 1;
#X connect 14 0 2 0;
#X connect 14 1 15 0;
#X connect 14 2 5 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X restore 322 398 pd timer;
#X obj 23 59 inlet~ fwd;
#X obj 421 95 t a b, f 14;
#X obj 148 228 t b b b b;
#X obj 322 347 metro 1000;
#X obj 56 22 declare -lib zexy;
#X obj 194 59 route rec;
#X obj 194 84 s \$0-switch;
#X obj 52 342 f \$0;
#X msg 52 367 stop \; \$1-switch color 0;
#X obj 314 203 s \$0-stamp;
#X obj 369 143 r \$0-stamp;
#X obj 410 260 f \$0;
#X msg 410 285 \; \$1-switch color 16;
#X obj 23 484 writesf~ 1;
#X connect 1 0 27 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 19 0;
#X connect 7 0 13 0;
#X connect 7 1 20 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 31 0;
#X connect 11 0 31 0;
#X connect 12 0 1 0;
#X connect 13 0 25 0;
#X connect 13 1 14 0;
#X connect 14 0 21 0;
#X connect 15 0 17 1;
#X connect 16 0 21 0;
#X connect 18 0 31 0;
#X connect 18 1 23 0;
#X connect 19 0 8 0;
#X connect 19 1 8 1;
#X connect 20 0 9 0;
#X connect 20 1 16 0;
#X connect 20 2 15 0;
#X connect 20 3 29 0;
#X connect 21 0 17 0;
#X connect 23 0 24 0;
#X connect 23 1 8 0;
#X connect 25 0 26 0;
#X connect 26 0 31 0;
#X connect 28 0 12 0;
#X connect 29 0 30 0;
#X coords 0 -1 1 1 256 88 1 100 100;