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 1092 652 dac~ 1 2;
31 #X obj 1093 597 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 154 594 * 60;
46 #X obj 121 660 /;
47 #X floatatom 156 682 10 0 0 0 - - -, f 10;
48 #X obj 153 621 f;
49 #X obj 73 661 t b f;
50 #X obj 41 599 sel 0;
51 #X msg 41 626 1;
52 #X floatatom 1009 382 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 msg 1153 473 set \$1;
|
62 tplarson 1.2 #X msg 1153 509 1385-output;
|
63 tplarson 1.1 #X text 797 288 day number;
64 #X text 1034 277 l;
65 #X text 1062 297 n;
66 #X text 1098 316 m;
67 #X obj 926 404 *~;
68 #X obj 759 387 * 0.01;
69 #X obj 759 361 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
70 -1 -1 0 256;
71 #X text 759 343 volume (0-100);
72 #X text 925 255 start;
73 #X text 1195 290 on/off;
74 #X msg 25 452 2;
75 #X msg 107 452 8;
76 #X msg 66 452 4;
77 #X obj 156 712 / 1e+06;
78 #X text 233 680 transposition factor;
79 #X floatatom 1175 405 5 0 0 0 - - -, f 5;
80 #X obj 1107 436 *;
81 #X floatatom 1175 427 5 0 0 0 - - -, f 5;
82 #X obj 1099 390 t b f;
83 #X floatatom 982 406 5 0 0 0 - - -, f 5;
84 tplarson 1.1 #X obj 925 352 modefilter, f 33;
85 #X floatatom 1115 260 5 0 0 0 - - -, f 5;
86 #X obj 1115 210 loadbang;
87 #X msg 1115 235 1.2;
88 #X text 1160 259 width multiplier;
89 #X obj 902 65 r play-SR;
90 #X obj 737 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
91 1;
92 #X obj 605 106 * 0.01;
93 #X obj 605 80 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
94 -1 -1 0 256;
95 #X text 605 62 volume (0-100);
96 #X obj 605 156 *~;
97 #X obj 603 225 dac~ 1 2;
98 #X obj 604 192 audio_safety~;
99 #X obj 737 103 arbitrarySRmulti sumtest;
100 #X obj 938 148 array size sumtest;
101 #X floatatom 840 26 5 0 0 0 - - -, f 5;
102 #X obj 997 37 r sperday;
103 #X obj 997 65 * 72;
104 #X obj 938 96 t b f;
105 tplarson 1.1 #X text 691 24 number of timeseries;
106 #X obj 938 123 *;
107 #X obj 1078 125 min;
108 #X obj 1078 68 t b f;
109 #X obj 1078 37 r block-size;
110 #N canvas 1 109 1265 421 catarray 0;
111 #N canvas 0 50 450 250 (subpatch) 0;
112 #X array sumtest 1 float 2;
113 #X coords 0 1 1 -1 1000 300 1 0 0;
114 #X restore 149 74 graph;
115 #X msg 11 116 \; sumtest normalize;
116 #X msg 11 76 \; sumtest const 0;
117 #X obj 74 317 inlet;
118 #X obj 150 377 hsl 1000 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
119 -1 -1 0 1;
120 #X obj 27 543 soundfiler;
121 #X obj 27 395 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
122 -1;
123 #X text 63 401 save array to WAVE file;
124 #X obj 101 430 r play-SR;
125 #X obj 27 459 f;
126 tplarson 1.1 #X msg 27 504 write -wave -bytes 4 -rate \$1 ./wav_out/modecat sumtest
127 ;
128 #X connect 3 0 4 0;
129 #X connect 6 0 9 0;
130 #X connect 8 0 9 1;
131 #X connect 9 0 10 0;
132 #X connect 10 0 5 0;
133 #X restore 779 155 pd catarray;
134 #X msg 261 248 1440;
135 #X msg 313 247 1920;
136 #X obj 261 284 s sperday;
137 #X obj 843 205 r daynumber;
138 #X obj 843 233 t b f;
139 #X obj 787 665 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
140 -1 -1;
141 #X obj 824 680 modecat sumtest;
142 #X floatatom 914 567 5 0 0 0 - - -, f 5;
143 #X obj 875 644 *;
144 #X obj 893 617 r sperday;
145 #X text 811 548 day number of first timeseries;
146 #X obj 787 629 r outdone;
147 tplarson 1.1 #X obj 875 595 -;
148 #X obj 460 487 qlist;
149 #X obj 428 389 t b b;
150 #X obj 428 356 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
151 -1 -1;
152 #X msg 374 452 clear;
153 #X text 449 356 start sequencer;
154 #X text 331 452 stop;
155 #X obj 327 335 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
156 -1 -1;
157 #X obj 327 360 openpanel;
158 #X msg 327 391 set read \$1;
159 #X text 347 332 set sequence file;
160 #X msg 460 455;
161 #X msg 360 193 %dd.modes;
|
162 tplarson 1.2 #X obj 367 251 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
163 1;
164 #X obj 367 271 s mswitch;
165 #X obj 162 538 r cadence;
166 #X obj 162 564 t b f;
|
167 tplarson 1.1 #X connect 0 0 9 0;
168 #X connect 1 0 9 0;
169 #X connect 2 0 12 0;
170 #X connect 2 0 10 0;
171 #X connect 2 0 20 0;
172 #X connect 2 0 32 0;
173 #X connect 2 0 123 0;
174 #X connect 3 0 9 0;
175 #X connect 4 0 6 0;
176 #X connect 4 1 12 0;
177 #X connect 5 0 4 0;
178 #X connect 10 0 11 0;
179 #X connect 12 0 4 1;
180 #X connect 14 0 18 0;
181 #X connect 14 0 22 0;
182 #X connect 14 0 100 0;
183 #X connect 15 0 17 0;
184 #X connect 15 0 1 0;
185 #X connect 15 0 99 0;
186 #X connect 17 0 16 0;
187 #X connect 18 0 16 0;
188 tplarson 1.1 #X connect 20 0 19 0;
189 #X connect 20 0 15 0;
190 #X connect 21 0 19 0;
191 #X connect 21 0 14 0;
192 #X connect 22 0 9 0;
193 #X connect 24 0 23 0;
194 #X connect 26 0 25 0;
195 #X connect 26 0 25 1;
196 #X connect 27 0 33 0;
197 #X connect 27 0 38 0;
198 #X connect 28 0 27 0;
199 #X connect 30 0 27 0;
200 #X connect 31 0 27 0;
201 #X connect 32 0 27 0;
202 #X connect 34 0 37 0;
203 #X connect 34 0 43 0;
204 #X connect 38 0 41 0;
205 #X connect 39 0 40 0;
206 #X connect 40 0 67 0;
207 #X connect 41 0 39 0;
208 #X connect 42 0 41 0;
209 tplarson 1.1 #X connect 42 1 39 1;
210 #X connect 43 0 44 0;
211 #X connect 43 1 42 0;
212 #X connect 44 0 42 0;
213 #X connect 46 0 74 1;
214 #X connect 46 0 111 0;
215 #X connect 47 0 74 0;
216 #X connect 48 0 74 2;
217 #X connect 49 0 74 3;
218 #X connect 50 0 74 4;
219 #X connect 51 0 74 6;
220 #X connect 52 0 53 0;
221 #X connect 53 0 105 2;
222 #X connect 58 0 26 0;
223 #X connect 59 0 58 1;
224 #X connect 60 0 59 0;
225 #X connect 64 0 34 0;
226 #X connect 65 0 34 0;
227 #X connect 66 0 34 0;
228 #X connect 67 0 72 0;
229 #X connect 70 0 71 0;
230 tplarson 1.1 #X connect 72 0 70 0;
231 #X connect 72 1 70 1;
232 #X connect 73 0 70 0;
233 #X connect 74 0 58 0;
234 #X connect 74 1 73 0;
235 #X connect 74 2 45 0;
236 #X connect 74 3 69 0;
237 #X connect 74 4 52 0;
238 #X connect 75 0 74 5;
239 #X connect 76 0 77 0;
240 #X connect 77 0 75 0;
241 #X connect 79 0 87 2;
242 #X connect 80 0 87 0;
243 #X connect 81 0 84 1;
244 #X connect 82 0 81 0;
245 #X connect 84 0 86 0;
246 #X connect 86 0 85 0;
247 #X connect 86 0 85 1;
248 #X connect 87 0 84 0;
249 #X connect 87 1 98 0;
250 #X connect 89 0 87 1;
251 tplarson 1.1 #X connect 89 0 94 0;
252 #X connect 90 0 91 0;
253 #X connect 91 0 95 0;
254 #X connect 92 0 94 0;
255 #X connect 92 1 94 1;
256 #X connect 94 0 88 0;
257 #X connect 95 0 92 0;
258 #X connect 96 0 95 0;
259 #X connect 96 1 95 1;
260 #X connect 97 0 96 0;
261 #X connect 99 0 101 0;
262 #X connect 100 0 101 0;
263 #X connect 102 0 103 0;
264 #X connect 103 0 47 0;
265 #X connect 103 1 46 0;
266 #X connect 104 0 105 0;
267 #X connect 106 0 111 1;
268 #X connect 107 0 105 1;
269 #X connect 108 0 107 1;
270 #X connect 110 0 104 0;
271 #X connect 111 0 107 0;
272 tplarson 1.1 #X connect 113 0 112 0;
273 #X connect 113 1 122 0;
274 #X connect 114 0 113 0;
275 #X connect 115 0 112 0;
276 #X connect 118 0 119 0;
277 #X connect 119 0 120 0;
278 #X connect 120 0 122 0;
279 #X connect 122 0 112 0;
280 #X connect 123 0 23 0;
|
281 tplarson 1.2 #X connect 124 0 125 0;
282 #X connect 126 0 127 0;
283 #X connect 127 0 38 0;
284 #X connect 127 1 38 1;
|
Return to
example_concat.pd
CVS log
Up to [Development] / JSOC / proj / globalhs / sosh