1 tplarson 1.1 #N canvas 1 52 1265 635 10;
2 #X msg 269 98 65536;
3 #X msg 262 75 131072;
4 #X obj 245 32 loadbang;
5 #X msg 273 126 32768;
6 #X obj 27 87 set-directory;
7 #X obj 27 50 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1
8 ;
9 #X obj 28 112 s data-dir;
10 #X msg 29 154 \; pd dsp 1;
11 #X msg 29 196 \; pd dsp 0;
12 #X obj 234 162 s block-size;
13 #X msg 341 64 50;
14 #X obj 341 107 s window-ramp;
15 #X msg 153 83 ../data, f 10;
16 #X obj 360 133 window-gen;
17 #X obj 207 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
18 -1 -1;
19 #X obj 150 221 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
20 -1 -1;
21 #X obj 150 286 s cadence;
22 tplarson 1.1 #X msg 150 248 60;
23 #X msg 207 248 45;
|
24 tplarson 1.3 #X obj 121 191 s filestem;
25 #X msg 151 154 mdi;
26 #X msg 195 154 hmi;
|
27 tplarson 1.1 #X msg 261 193 262144;
28 #X obj 344 220 s fileblank;
29 #X msg 344 165 average.modes;
|
30 tplarson 1.2 #X obj 744 518 dac~ 1 2;
31 #X obj 744 488 audio_safety~;
|
32 tplarson 1.1 #X obj 24 373 nbx 10 20 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
33 -204786 -1 -1 8000 256;
34 #X msg 24 345 44100;
35 #X text 130 377 desired SR;
36 #X msg 79 345 22050;
37 #X msg 136 345 11025;
38 #X msg 74 319 8000;
|
39 tplarson 1.2 #X obj 24 402 s play-SR;
40 #X obj 23 462 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
|
41 tplarson 1.3 -1 -1 0 256;
|
42 tplarson 1.2 #X text 130 472 2 = 1 octave lower;
43 #X text 130 458 downshift factor;
44 #X floatatom 974 397 5 0 0 0 - - -, f 5;
45 #X floatatom 877 309 5 0 0 0 - - -, f 5;
46 #X obj 842 308 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
47 tplarson 1.1 -1 -1;
|
48 tplarson 1.2 #X floatatom 928 311 5 0 0 0 - - -, f 5;
49 #X floatatom 975 313 5 0 0 0 - - -, f 5;
50 #X floatatom 1022 315 5 0 0 0 - - -, f 5;
51 #X obj 1140 336 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
|
52 tplarson 1.1 0 1;
|
53 tplarson 1.2 #X obj 745 460 *~;
54 #X obj 814 459 * 0.01;
55 #X obj 814 433 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
|
56 tplarson 1.3 -1 -1 0 256;
|
57 tplarson 1.2 #X text 814 415 volume (0-100);
58 #X text 1164 334 on/off;
59 #X msg 23 431 2;
60 #X msg 105 431 8;
61 #X msg 64 431 4;
62 #X floatatom 1035 384 5 0 0 0 - - -, f 5;
63 #X floatatom 1034 402 5 0 0 0 - - -, f 5;
64 #X obj 877 351 modefilter, f 33;
65 #X floatatom 1067 313 5 0 0 0 - - -, f 5;
66 #X text 1109 313 width multiplier;
|
67 tplarson 1.1 #X obj 991 61 r play-SR;
68 #X obj 826 59 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
69 1;
70 #X obj 705 127 * 0.01;
71 #X obj 705 101 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
72 -1 -1 0 256;
73 #X text 705 83 volume (0-100);
74 #X obj 744 179 *~;
75 #X obj 742 248 dac~ 1 2;
76 #X obj 743 215 audio_safety~;
77 #X obj 826 99 arbitrarySRmulti sumtest;
78 #X obj 1027 144 array size sumtest;
79 #X floatatom 929 22 5 0 0 0 - - -, f 5;
80 #X obj 1086 33 r sperday;
81 #X obj 1086 61 * 72;
82 #X obj 1027 92 t b f;
83 #X text 780 20 number of timeseries;
84 #X obj 1027 119 *;
85 #X obj 1167 121 min;
86 #X obj 1167 64 t b f;
87 #X obj 1167 33 r block-size;
|
88 tplarson 1.3 #N canvas 1 88 1265 421 catarray 0;
|
89 tplarson 1.1 #N canvas 0 50 450 250 (subpatch) 0;
|
90 tplarson 1.3 #X array sumtest 1 float 2;
91 #X coords 0 1 1 -1 1000 300 1 0 0;
|
92 tplarson 1.1 #X restore 149 74 graph;
93 #X msg 11 120 \; sumtest normalize;
94 #X msg 11 76 \; sumtest const 0;
95 #X obj 74 317 inlet;
96 #X obj 150 377 hsl 1000 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
97 -1 -1 0 1;
98 #X obj 27 543 soundfiler;
99 #X obj 27 395 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
100 -1;
101 #X text 63 401 save array to WAVE file;
102 #X obj 101 430 r play-SR;
103 #X obj 27 459 f;
104 #X msg 27 504 write -wave -bytes 4 -rate \$1 ./wav_out/modecat sumtest
105 ;
106 #X connect 3 0 4 0;
107 #X connect 6 0 9 0;
108 #X connect 8 0 9 1;
109 #X connect 9 0 10 0;
110 #X connect 10 0 5 0;
|
111 tplarson 1.3 #X restore 877 184 pd catarray;
|
112 tplarson 1.1 #X msg 261 248 1440;
113 #X msg 313 247 1920;
114 #X obj 261 284 s sperday;
115 #X obj 605 181 qlist;
116 #X obj 573 36 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
117 -1;
118 #X msg 663 56 clear;
119 #X text 594 36 start sequencer;
120 #X text 627 56 stop;
121 #X obj 472 15 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
122 -1;
123 #X obj 472 54 openpanel;
124 #X msg 472 85 set read \$1;
125 #X text 492 12 set sequence file;
126 #X msg 360 193 %dd.modes;
127 #X obj 1180 151 array size sum1;
128 #X obj 1159 173 array size sum2;
129 #X obj 373 285 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
130 1;
131 #X obj 373 305 s window-on;
132 #X text 344 270 turn windowing on/off;
133 tplarson 1.1 #X msg 373 253 0;
|
134 tplarson 1.3 #X obj 519 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
135 tplarson 1.1 -1 -1;
|
136 tplarson 1.3 #X obj 519 520 modecat sumtest;
137 #X obj 570 472 *;
138 #X obj 588 440 r sperday;
|
139 tplarson 1.2 #X obj 893 530 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
140 tplarson 1.1 -1 -1;
|
141 tplarson 1.3 #X obj 621 467 loadbang;
142 #X obj 519 403 applywindow sum2;
143 #X msg 621 495 sum2;
144 #X msg 628 372 sum1;
145 #X obj 893 471 r outdone;
146 #X obj 519 379 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
147 tplarson 1.1 -1 -1;
|
148 tplarson 1.3 #X obj 628 348 loadbang;
|
149 tplarson 1.2 #X obj 893 554 modesum sum1;
150 #X msg 1065 471 set \$1;
|
151 tplarson 1.3 #X msg 1065 501 1038-output;
|
152 tplarson 1.2 #X obj 928 282 r l;
153 #X obj 975 283 r n;
154 #X obj 1022 283 r m;
155 #X obj 877 285 r day;
|
156 tplarson 1.3 #X obj 278 355 r daylnm;
157 #X obj 278 387 parsedaylnm;
|
158 tplarson 1.2 #X obj 842 261 r startbang;
|
159 tplarson 1.3 #X obj 538 289 r dayindex;
160 #X obj 538 341 t b f;
|
161 tplarson 1.1 #X msg 532 232 next;
162 #X msg 474 120 print;
163 #X msg 475 150 rewind;
164 #X obj 573 83 t b b b b;
165 #X obj 461 184 r bangnext;
|
166 tplarson 1.2 #X obj 893 587 s bangnext;
|
167 tplarson 1.3 #X obj 519 578 s bangnext;
|
168 tplarson 1.1 #X obj 24 282 r samprate;
169 #X obj 990 20 r numseries;
|
170 tplarson 1.3 #X msg 648 556 \; sum1 const 0;
|
171 tplarson 1.1 #X msg 586 219 \; sumtest normalize;
172 #X floatatom 341 87 5 0 0 0 - - -, f 5;
173 #N canvas 1 52 1066 438 sumarrays 0;
174 #N canvas 0 50 450 250 (subpatch) 0;
175 #X array sum2 103680 float 2;
176 #X coords 0 1 103680 -1 200 140 1;
177 #X restore 130 68 graph;
178 #X msg 17 71 \; sum2 const 0;
179 #X obj 36 320 soundfiler;
180 #X obj 36 208 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
181 -1;
182 #X text 72 215 save array to WAVE file;
183 #X obj 36 247 f;
184 #X obj 137 243 r play-SR;
185 #X msg 15 116 \; sum2 normalize;
186 #X msg 386 121 \; sum1 normalize;
187 #N canvas 0 50 450 250 (subpatch) 0;
188 #X array sum1 103680 float 2;
189 #X coords 0 1 103680 -1 200 140 1;
190 #X restore 512 73 graph;
191 #X msg 387 79 \; sum1 const 0;
192 tplarson 1.1 #X msg 36 273 write -wave -bytes 4 -rate \$1 ./wav_out/sumwindowed
193 sum2;
194 #X obj 458 347 soundfiler;
195 #X obj 458 235 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
196 -1;
197 #X text 494 242 save array to WAVE file;
198 #X obj 458 274 f;
199 #X obj 559 270 r play-SR;
200 #X msg 458 300 write -wave -bytes 4 -rate \$1 ./wav_out/modesum sum1
201 ;
202 #X connect 3 0 5 0;
203 #X connect 5 0 11 0;
204 #X connect 6 0 5 1;
205 #X connect 11 0 2 0;
206 #X connect 13 0 15 0;
207 #X connect 15 0 17 0;
208 #X connect 16 0 15 1;
209 #X connect 17 0 12 0;
210 #X restore 1018 190 pd sumarrays;
|
211 tplarson 1.2 #X obj 234 297 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
212 1;
213 #X obj 234 317 s mswitch;
214 #X obj 23 493 s shiftfactor;
215 #X obj 23 558 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
216 -1 -1 0 256;
217 #X obj 23 589 s absshift;
218 #X obj 151 430 r downfactor;
219 #X obj 151 526 r downabs;
220 #X msg 23 527 10000;
221 #X msg 340 571 0;
222 #X obj 340 547 t b;
223 #X obj 208 578 t b;
224 #X msg 208 602 1;
225 #X obj 340 596 s shiftswitch;
226 #X text 126 561 absolute downshift (bins);
227 #X obj 1067 278 r width;
|
228 tplarson 1.3 #X floatatom 538 315 5 0 0 0 - - -, f 5;
|
229 tplarson 1.2 #X obj 1142 448 loadbang;
230 #X obj 1142 473 del 100;
|
231 tplarson 1.3 #X obj 893 499 del 100;
232 #X obj 519 552 del 100;
233 #X obj 127 121 route mdi hmi;
234 #X obj 127 30 r instrument;
235 #X obj 1083 568 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
236 -1 -1;
237 #X msg 605 149;
238 #X msg 1124 548 \; sum1 const 0 \; sum2 const 0 \; sumtest const 0
239 ;
|
240 tplarson 1.1 #X connect 0 0 9 0;
241 #X connect 1 0 9 0;
242 #X connect 2 0 12 0;
243 #X connect 2 0 10 0;
244 #X connect 2 0 20 0;
245 #X connect 2 0 32 0;
|
246 tplarson 1.3 #X connect 2 0 89 0;
247 #X connect 2 0 95 0;
|
248 tplarson 1.1 #X connect 3 0 9 0;
249 #X connect 4 0 6 0;
250 #X connect 4 1 12 0;
251 #X connect 5 0 4 0;
|
252 tplarson 1.3 #X connect 10 0 131 0;
|
253 tplarson 1.1 #X connect 12 0 4 1;
254 #X connect 14 0 18 0;
255 #X connect 14 0 22 0;
|
256 tplarson 1.2 #X connect 14 0 78 0;
|
257 tplarson 1.1 #X connect 15 0 17 0;
258 #X connect 15 0 1 0;
|
259 tplarson 1.2 #X connect 15 0 77 0;
|
260 tplarson 1.1 #X connect 17 0 16 0;
261 #X connect 18 0 16 0;
262 #X connect 20 0 19 0;
263 #X connect 20 0 15 0;
264 #X connect 21 0 19 0;
265 #X connect 21 0 14 0;
266 #X connect 22 0 9 0;
267 #X connect 24 0 23 0;
268 #X connect 26 0 25 0;
269 #X connect 26 0 25 1;
270 #X connect 27 0 33 0;
271 #X connect 28 0 27 0;
272 #X connect 30 0 27 0;
273 #X connect 31 0 27 0;
274 #X connect 32 0 27 0;
|
275 tplarson 1.3 #X connect 34 0 135 0;
276 #X connect 34 0 142 0;
277 #X connect 37 0 108 2;
|
278 tplarson 1.2 #X connect 38 0 54 1;
279 #X connect 39 0 54 0;
280 #X connect 40 0 54 2;
281 #X connect 41 0 54 3;
282 #X connect 42 0 54 4;
283 #X connect 43 0 54 6;
284 #X connect 44 0 26 0;
285 #X connect 45 0 44 1;
286 #X connect 46 0 45 0;
287 #X connect 49 0 34 0;
288 #X connect 50 0 34 0;
289 #X connect 51 0 34 0;
290 #X connect 54 0 44 0;
291 #X connect 54 1 53 0;
292 #X connect 54 2 37 0;
293 #X connect 54 3 52 0;
|
294 tplarson 1.3 #X connect 54 4 109 0;
|
295 tplarson 1.2 #X connect 55 0 54 5;
296 #X connect 57 0 65 2;
297 #X connect 58 0 65 0;
298 #X connect 59 0 62 1;
299 #X connect 60 0 59 0;
300 #X connect 62 0 64 0;
301 #X connect 64 0 63 0;
302 #X connect 64 0 63 1;
303 #X connect 65 0 62 0;
304 #X connect 65 1 76 0;
305 #X connect 67 0 65 1;
306 #X connect 67 0 72 0;
307 #X connect 68 0 69 0;
308 #X connect 69 0 73 0;
309 #X connect 70 0 72 0;
310 #X connect 70 1 72 1;
311 #X connect 72 0 66 0;
312 #X connect 73 0 70 0;
|
313 tplarson 1.3 #X connect 73 0 90 0;
|
314 tplarson 1.2 #X connect 73 0 91 0;
315 #X connect 74 0 73 0;
316 #X connect 74 1 73 1;
|
317 tplarson 1.1 #X connect 75 0 74 0;
|
318 tplarson 1.2 #X connect 77 0 79 0;
319 #X connect 78 0 79 0;
|
320 tplarson 1.3 #X connect 80 1 130 0;
321 #X connect 81 0 123 0;
|
322 tplarson 1.2 #X connect 82 0 80 0;
323 #X connect 85 0 86 0;
324 #X connect 86 0 87 0;
|
325 tplarson 1.3 #X connect 87 0 156 0;
326 #X connect 89 0 23 0;
327 #X connect 92 0 93 0;
328 #X connect 95 0 92 0;
329 #X connect 96 0 97 0;
330 #X connect 97 0 129 0;
331 #X connect 97 0 152 0;
332 #X connect 98 0 97 1;
|
333 tplarson 1.2 #X connect 99 0 98 1;
|
334 tplarson 1.3 #X connect 100 0 108 0;
335 #X connect 101 0 103 0;
336 #X connect 102 0 96 0;
337 #X connect 103 0 97 2;
338 #X connect 104 0 102 1;
339 #X connect 105 0 151 0;
340 #X connect 106 0 102 0;
341 #X connect 107 0 104 0;
342 #X connect 108 0 125 0;
343 #X connect 109 0 110 0;
344 #X connect 110 0 108 1;
345 #X connect 111 0 40 0;
346 #X connect 112 0 41 0;
347 #X connect 113 0 42 0;
348 #X connect 114 0 38 0;
349 #X connect 115 0 116 0;
350 #X connect 117 0 39 0;
351 #X connect 118 0 148 0;
352 #X connect 119 0 106 0;
353 #X connect 119 1 98 0;
354 #X connect 120 0 80 0;
|
355 tplarson 1.2 #X connect 121 0 80 0;
356 #X connect 122 0 80 0;
|
357 tplarson 1.3 #X connect 123 0 120 0;
358 #X connect 123 1 120 0;
359 #X connect 123 2 122 0;
360 #X connect 123 3 156 0;
361 #X connect 124 0 120 0;
362 #X connect 127 0 27 0;
363 #X connect 128 0 67 0;
364 #X connect 131 0 11 0;
365 #X connect 133 0 134 0;
366 #X connect 136 0 137 0;
367 #X connect 136 0 143 0;
368 #X connect 138 0 34 0;
369 #X connect 139 0 136 0;
370 #X connect 140 0 136 0;
371 #X connect 141 0 145 0;
372 #X connect 142 0 141 0;
373 #X connect 143 0 144 0;
|
374 tplarson 1.2 #X connect 144 0 145 0;
|
375 tplarson 1.3 #X connect 147 0 55 0;
376 #X connect 148 0 119 0;
377 #X connect 149 0 150 0;
378 #X connect 150 0 110 0;
379 #X connect 151 0 100 0;
380 #X connect 152 0 126 0;
381 #X connect 153 0 20 0;
382 #X connect 153 1 21 0;
383 #X connect 154 0 153 0;
384 #X connect 155 0 157 0;
385 #X connect 156 0 80 0;
|
Return to
example_sequencer.pd
CVS log
Up to [Development] / JSOC / proj / globalhs / sosh