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 150 \; pd dsp 1;
11 #X msg 29 196 \; pd dsp 0;
12 #X obj 234 162 s block-size;
13 #X msg 341 69 50;
14 #X obj 341 101 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 #X obj 132 190 s filestem;
25 #X msg 150 122 mdi;
26 #X msg 165 147 hmi;
27 #X msg 261 193 262144;
28 #X obj 344 220 s fileblank;
29 #X msg 344 165 average.modes;
30 #X obj 792 519 dac~ 1 2;
31 #X obj 792 489 audio_safety~;
32 #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 #X obj 24 416 s play-SR;
40 #X obj 25 483 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
41 -1 -1 0 256;
42 #X text 132 493 2 = 1 octave lower;
43 tplarson 1.1 #X text 132 479 downshift factor;
44 #X obj 25 514 s shift-factor;
45 #X obj 146 547 * 60;
46 #X obj 113 613 /;
47 #X floatatom 113 639 10 0 0 0 - - -, f 10;
48 #X obj 145 574 f;
49 #X obj 65 614 t b f;
50 #X obj 33 552 sel 0;
51 #X msg 33 579 1;
52 #X floatatom 1022 398 5 0 0 0 - - -, f 5;
53 #X floatatom 875 290 5 0 0 0 - - -, f 5;
54 #X obj 935 273 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
55 -1 -1;
56 #X floatatom 990 281 5 0 0 0 - - -, f 5;
57 #X floatatom 1022 300 5 0 0 0 - - -, f 5;
58 #X floatatom 1056 319 5 0 0 0 - - -, f 5;
59 #X obj 1171 292 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
60 0 1;
61 #X text 797 288 day number;
62 #X text 1034 277 l;
63 #X text 1062 297 n;
64 tplarson 1.1 #X text 1098 316 m;
65 #X obj 793 461 *~;
66 #X obj 862 460 * 0.01;
67 #X obj 862 434 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
68 -1 -1 0 256;
69 #X text 862 416 volume (0-100);
70 #X text 925 255 start;
71 #X text 1195 290 on/off;
72 #X msg 25 452 2;
73 #X msg 107 452 8;
74 #X msg 66 452 4;
75 #X text 86 657 transposition factor;
76 #X floatatom 1148 390 5 0 0 0 - - -, f 5;
77 #X floatatom 1147 408 5 0 0 0 - - -, f 5;
78 #X obj 925 352 modefilter, f 33;
79 #X floatatom 1115 260 5 0 0 0 - - -, f 5;
80 #X obj 1115 210 loadbang;
81 #X msg 1115 235 1.2;
82 #X text 1160 259 width multiplier;
83 #X obj 991 61 r play-SR;
84 #X obj 826 59 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
85 tplarson 1.1 1;
86 #X obj 705 127 * 0.01;
87 #X obj 705 101 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
88 -1 -1 0 256;
89 #X text 705 83 volume (0-100);
90 #X obj 705 177 *~;
91 #X obj 703 246 dac~ 1 2;
92 #X obj 704 213 audio_safety~;
93 #X obj 826 99 arbitrarySRmulti sumtest;
94 #X obj 1027 144 array size sumtest;
95 #X floatatom 929 22 5 0 0 0 - - -, f 5;
96 #X obj 1086 33 r sperday;
97 #X obj 1086 61 * 72;
98 #X obj 1027 92 t b f;
99 #X text 780 20 number of timeseries;
100 #X obj 1027 119 *;
101 #X obj 1167 121 min;
102 #X obj 1167 64 t b f;
103 #X obj 1167 33 r block-size;
104 #N canvas 1 108 1265 421 catarray 0;
105 #N canvas 0 50 450 250 (subpatch) 0;
106 tplarson 1.1 #X array sumtest 1 float 2;
107 #X coords 0 1 1 -1 1000 300 1 0 0;
108 #X restore 149 74 graph;
109 #X msg 11 116 \; sumtest normalize;
110 #X msg 11 76 \; sumtest const 0;
111 #X obj 74 317 inlet;
112 #X obj 150 377 hsl 1000 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
113 -1 -1 0 1;
114 #X obj 27 543 soundfiler;
115 #X obj 27 395 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
116 -1;
117 #X text 63 401 save array to WAVE file;
118 #X obj 101 430 r play-SR;
119 #X obj 27 459 f;
120 #X msg 27 504 write -wave -bytes 4 -rate \$1 ./wav_out/modecat sumtest
121 ;
122 #X connect 3 0 4 0;
123 #X connect 6 0 9 0;
124 #X connect 8 0 9 1;
125 #X connect 9 0 10 0;
126 #X connect 10 0 5 0;
127 tplarson 1.1 #X restore 868 151 pd catarray;
128 #X msg 261 248 1440;
129 #X msg 313 247 1920;
130 #X obj 261 284 s sperday;
131 #X obj 843 205 r daynumber;
132 #X obj 843 233 t b f;
133 #X obj 605 181 qlist;
134 #X obj 573 83 t b b;
135 #X obj 573 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
136 -1;
137 #X msg 519 146 clear;
138 #X text 594 50 start sequencer;
139 #X text 476 146 stop;
140 #X obj 472 29 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
141 -1;
142 #X obj 472 54 openpanel;
143 #X msg 472 85 set read \$1;
144 #X text 492 26 set sequence file;
145 #X msg 605 149;
146 #X msg 360 193 %dd.modes;
147 #X obj 1180 151 array size sum1;
148 tplarson 1.1 #X obj 1159 173 array size sum2;
149 #X obj 474 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
150 1;
151 #X obj 474 232 s window-on;
152 #X text 432 253 turn windowing on/off;
153 #X msg 474 180 0;
154 #X floatatom 709 483 5 0 0 0 - - -, f 5;
155 #X floatatom 397 381 5 0 0 0 - - -, f 5;
156 #X obj 457 364 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
157 -1 -1;
158 #X floatatom 512 372 5 0 0 0 - - -, f 5;
159 #X floatatom 544 391 5 0 0 0 - - -, f 5;
160 #X floatatom 579 408 5 0 0 0 - - -, f 5;
161 #X obj 693 383 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
162 1;
163 #X text 319 379 day number;
164 #X text 556 368 l;
165 #X text 584 388 n;
166 #X text 620 407 m;
167 #X text 447 346 start;
168 #X text 717 381 on/off;
169 tplarson 1.1 #X floatatom 536 473 5 0 0 0 - - -, f 5;
170 #X floatatom 536 492 5 0 0 0 - - -, f 5;
171 #X obj 447 443 modefilter, f 33;
172 #X floatatom 637 351 5 0 0 0 - - -, f 5;
173 #X obj 637 301 loadbang;
174 #X msg 637 326 1.2;
175 #X text 682 350 width multiplier;
176 #X obj 365 296 r daynumber;
177 #X obj 365 324 t b f;
178 #X obj 307 657 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
179 -1 -1;
180 #X obj 307 704 modecat sumtest;
181 #X floatatom 397 591 5 0 0 0 - - -, f 5;
182 #X obj 358 673 *;
183 #X obj 376 641 r sperday;
184 #X text 264 574 day number of first timeseries;
185 #X obj 727 629 modeaddition sum1;
186 #X obj 674 614 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
187 -1 -1;
188 #X obj 494 606 loadbang;
189 #X msg 1100 485 \; sum1 normalize;
190 tplarson 1.1 #N canvas 0 50 450 250 (subpatch) 0;
191 #X array sum1 103680 float 2;
192 #X coords 0 1 103680 -1 200 140 1;
193 #X restore 1033 530 graph;
194 #X msg 1114 442 \; sum1 const 0;
195 #X obj 681 712 applywindow sum2;
196 #X msg 494 634 sum2;
197 #X msg 790 684 sum1;
198 #N canvas 1 52 646 365 sumarray 0;
199 #N canvas 0 50 450 250 (subpatch) 0;
200 #X array sum2 103680 float 2;
201 #X coords 0 1 103680 -1 200 140 1;
202 #X restore 130 68 graph;
203 #X msg 17 71 \; sum2 const 0;
204 #X obj 36 320 soundfiler;
205 #X obj 36 208 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
206 -1;
207 #X text 72 215 save array to WAVE file;
208 #X obj 36 247 f;
209 #X obj 137 243 r play-SR;
210 #X msg 15 116 \; sum2 normalize;
211 tplarson 1.1 #X msg 36 273 write -wave -bytes 4 -rate \$1 ./wav_out/windowed sum2
212 ;
213 #X connect 3 0 5 0;
214 #X connect 5 0 8 0;
215 #X connect 6 0 5 1;
216 #X connect 8 0 2 0;
217 #X restore 1090 695 pd sumarray;
218 #X obj 727 653 del 50;
219 #X obj 584 521 r outdone;
220 #X obj 615 556 + 1;
221 #X obj 674 584 sel 0;
222 #X obj 584 554 f 0;
223 #X obj 674 553 mod 2;
224 #X floatatom 615 588 5 0 0 0 - - -, f 5;
225 #X msg 602 252 0;
226 #X obj 690 684 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
227 -1 -1;
228 #X obj 790 660 loadbang;
229 #X obj 358 619 -;
230 #X connect 0 0 9 0;
231 #X connect 1 0 9 0;
232 tplarson 1.1 #X connect 2 0 12 0;
233 #X connect 2 0 10 0;
234 #X connect 2 0 20 0;
235 #X connect 2 0 32 0;
236 #X connect 2 0 109 0;
237 #X connect 2 0 115 0;
238 #X connect 3 0 9 0;
239 #X connect 4 0 6 0;
240 #X connect 4 1 12 0;
241 #X connect 5 0 4 0;
242 #X connect 10 0 11 0;
243 #X connect 12 0 4 1;
244 #X connect 14 0 18 0;
245 #X connect 14 0 22 0;
246 #X connect 14 0 94 0;
247 #X connect 15 0 17 0;
248 #X connect 15 0 1 0;
249 #X connect 15 0 93 0;
250 #X connect 17 0 16 0;
251 #X connect 18 0 16 0;
252 #X connect 20 0 19 0;
253 tplarson 1.1 #X connect 20 0 15 0;
254 #X connect 21 0 19 0;
255 #X connect 21 0 14 0;
256 #X connect 22 0 9 0;
257 #X connect 24 0 23 0;
258 #X connect 26 0 25 0;
259 #X connect 26 0 25 1;
260 #X connect 27 0 33 0;
261 #X connect 27 0 38 0;
262 #X connect 28 0 27 0;
263 #X connect 30 0 27 0;
264 #X connect 31 0 27 0;
265 #X connect 32 0 27 0;
266 #X connect 34 0 37 0;
267 #X connect 34 0 43 0;
268 #X connect 38 0 41 0;
269 #X connect 39 0 40 0;
270 #X connect 41 0 39 0;
271 #X connect 42 0 41 0;
272 #X connect 42 1 39 1;
273 #X connect 43 0 44 0;
274 tplarson 1.1 #X connect 43 1 42 0;
275 #X connect 44 0 42 0;
276 #X connect 45 0 144 4;
277 #X connect 46 0 68 1;
278 #X connect 47 0 68 0;
279 #X connect 48 0 68 2;
280 #X connect 49 0 68 3;
281 #X connect 50 0 68 4;
282 #X connect 51 0 68 6;
283 #X connect 56 0 26 0;
284 #X connect 57 0 56 1;
285 #X connect 58 0 57 0;
286 #X connect 62 0 34 0;
287 #X connect 63 0 34 0;
288 #X connect 64 0 34 0;
289 #X connect 68 0 56 0;
290 #X connect 68 1 67 0;
291 #X connect 68 2 45 0;
292 #X connect 68 3 66 0;
293 #X connect 68 4 144 2;
294 #X connect 69 0 68 5;
295 tplarson 1.1 #X connect 70 0 71 0;
296 #X connect 71 0 69 0;
297 #X connect 73 0 81 2;
298 #X connect 74 0 81 0;
299 #X connect 75 0 78 1;
300 #X connect 76 0 75 0;
301 #X connect 78 0 80 0;
302 #X connect 80 0 79 0;
303 #X connect 80 0 79 1;
304 #X connect 81 0 78 0;
305 #X connect 81 1 92 0;
306 #X connect 83 0 81 1;
307 #X connect 83 0 88 0;
308 #X connect 84 0 85 0;
309 #X connect 85 0 89 0;
310 #X connect 86 0 88 0;
311 #X connect 86 1 88 1;
312 #X connect 88 0 82 0;
313 #X connect 89 0 86 0;
314 #X connect 89 0 110 0;
315 #X connect 89 0 111 0;
316 tplarson 1.1 #X connect 90 0 89 0;
317 #X connect 90 1 89 1;
318 #X connect 91 0 90 0;
319 #X connect 93 0 95 0;
320 #X connect 94 0 95 0;
321 #X connect 96 0 97 0;
322 #X connect 97 0 47 0;
323 #X connect 97 1 46 0;
324 #X connect 99 0 98 0;
325 #X connect 99 0 161 0;
326 #X connect 99 1 108 0;
327 #X connect 100 0 99 0;
328 #X connect 101 0 98 0;
329 #X connect 104 0 105 0;
330 #X connect 105 0 106 0;
331 #X connect 106 0 108 0;
332 #X connect 108 0 98 0;
333 #X connect 109 0 23 0;
334 #X connect 112 0 113 0;
335 #X connect 115 0 112 0;
336 #X connect 116 0 144 3;
337 tplarson 1.1 #X connect 117 0 131 1;
338 #X connect 117 0 140 0;
339 #X connect 118 0 131 0;
340 #X connect 119 0 131 2;
341 #X connect 120 0 131 3;
342 #X connect 121 0 131 4;
343 #X connect 122 0 131 6;
344 #X connect 131 0 56 0;
345 #X connect 131 1 130 0;
346 #X connect 131 2 116 0;
347 #X connect 131 3 129 0;
348 #X connect 131 4 144 1;
349 #X connect 132 0 131 5;
350 #X connect 133 0 134 0;
351 #X connect 134 0 132 0;
352 #X connect 136 0 137 0;
353 #X connect 137 0 118 0;
354 #X connect 137 1 117 0;
355 #X connect 138 0 139 0;
356 #X connect 140 0 164 1;
357 #X connect 141 0 139 1;
358 tplarson 1.1 #X connect 142 0 141 1;
359 #X connect 144 0 154 0;
360 #X connect 145 0 144 0;
361 #X connect 146 0 151 0;
362 #X connect 150 0 138 0;
363 #X connect 151 0 139 2;
364 #X connect 152 0 150 1;
365 #X connect 154 0 162 0;
366 #X connect 155 0 158 0;
367 #X connect 156 0 158 1;
368 #X connect 156 0 159 0;
369 #X connect 156 0 160 0;
370 #X connect 157 0 145 0;
371 #X connect 158 0 156 0;
372 #X connect 159 0 157 0;
373 #X connect 161 0 158 1;
374 #X connect 162 0 150 0;
375 #X connect 163 0 152 0;
376 #X connect 164 0 141 0;
|
Return to
example_concat2.pd
CVS log
Up to [Development] / JSOC / proj / globalhs / sosh