Return to example_sum.pd CVS log

Up to [Development] / JSOC / proj / globalhs / sosh

new versions

#N canvas 1 52 1265 635 10;
#X floatatom 501 247 5 0 0 0 - - -, f 5;
#X obj 1079 58 bng 20 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X floatatom 1078 86 5 0 0 0 - - -, f 5;
#X floatatom 1079 103 5 0 0 0 - - -, f 5;
#X floatatom 1079 121 5 0 0 0 - - -, f 5;
#X obj 1161 88 tgl 40 0 empty empty empty 17 7 0 10 -261234 -1 -1 0
1;
#X msg 822 318 set \$1;
#X msg 803 349 1277-output;
#X obj 40 100 set-directory;
#X obj 40 63 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1
;
#X obj 41 125 s data-dir;
#X msg 63 156 \; pd dsp 1;
#X msg 62 191 \; pd dsp 0;
#X text 488 225 day number;
#X text 1118 83 l;
#X text 1119 102 n;
#X text 1119 120 m;
#X obj 297 500 *~;
#X text 1204 92 on/off;
#X obj 45 327 nbx 10 20 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-204786 -1 -1 8000 256;
#X msg 45 299 44100;
#X text 151 331 desired SR;
#X msg 100 299 22050;
#X msg 157 299 11025;
#X msg 87 269 8000;
#X obj 45 370 s play-SR;
#X obj 298 587 dac~ 1 2;
#X obj 297 532 audio_safety~;
#X obj 390 377 * 0.01;
#X obj 390 349 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 50 256;
#X text 390 331 volume (0-100);
#X obj 45 437 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 4 256;
#X text 152 447 2 = 1 octave lower;
#X text 149 432 downshift factor;
#X msg 45 406 2;
#X msg 118 409 8;
#X msg 81 407 4;
#X obj 95 555 * 60;
#X obj 95 606 /;
#X floatatom 77 633 10 0 0 0 - - -, f 10;
#X obj 95 582 f;
#X obj 39 607 t b f;
#X obj 13 524 sel 0;
#X msg 13 551 1;
#X floatatom 1161 134 8 0 0 0 - - -, f 8;
#X obj 85 707 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 16 652 transposition factor;
#X obj 929 38 r play-SR;
#X obj 799 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 667 78 * 0.01;
#X obj 667 52 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 0 256;
#X text 667 34 volume (0-100);
#X obj 667 128 *~;
#X obj 665 197 dac~ 1 2;
#X obj 666 164 audio_safety~;
#X msg 694 316 set \$1;
#X msg 731 349 3.9448;
#X obj 501 274 s day-number;
#X obj 680 246 r day-number;
#X text 1154 54 mode 1;
#X text 1101 63 find;
#X obj 757 317 t b b b;
#X obj 1079 141 bng 20 250 50 0 empty empty empty 17 7 0 10 -260097
-1 -1;
#X text 1101 146 add;
#N canvas 221 119 761 519 sumarray 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array sumhold 103680 float 2;
#X coords 0 1 103680 -1 200 140 1;
#X restore 191 49 graph;
#X obj 36 320 soundfiler;
#X obj 36 208 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 72 215 save array to WAVE file;
#X obj 466 168 array size sumhold;
#X obj 36 247 f;
#X obj 137 243 r play-SR;
#X obj 466 63 r nsamples;
#X obj 466 133 min;
#X obj 466 94 t b f;
#X obj 449 41 r block-size;
#X msg 36 273 write -wave -bytes 4 -rate \$1 ./wav_out/modesum sumhold
;
#X msg 31 110 \; sumhold normalize;
#X msg 31 70 \; sumhold const 0;
#X connect 2 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 10 0 8 0;
#X connect 11 0 1 0;
#X restore 502 87 pd sumarray;
#X msg 771 423 set \$1;
#X msg 752 454 1297-output;
#X msg 643 421 set \$1;
#X msg 680 454 0.4437;
#X obj 629 351 r day-number;
#X obj 706 422 t b b b;
#X obj 1081 186 bng 20 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X floatatom 1080 214 5 0 0 0 - - -, f 5;
#X floatatom 1081 231 5 0 0 0 - - -, f 5;
#X floatatom 1081 249 5 0 0 0 - - -, f 5;
#X obj 1164 215 tgl 40 0 empty empty empty 17 7 0 10 -261234 -1 -1
0 1;
#X text 1120 211 l;
#X text 1121 230 n;
#X text 1121 248 m;
#X text 1206 220 on/off;
#X floatatom 1163 262 8 0 0 0 - - -, f 8;
#X text 1103 191 find;
#X obj 1081 269 bng 20 250 50 0 empty empty empty 17 7 0 10 -260097
-1 -1;
#X text 1103 274 add;
#X text 1155 182 mode 2;
#X msg 727 526 set \$1;
#X msg 708 557 1317-output;
#X msg 599 524 set \$1;
#X msg 636 557 0.9569;
#X obj 585 454 r day-number;
#X obj 662 525 t b b b;
#X obj 1082 312 bng 20 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X floatatom 1081 340 5 0 0 0 - - -, f 5;
#X floatatom 1082 357 5 0 0 0 - - -, f 5;
#X floatatom 1082 375 5 0 0 0 - - -, f 5;
#X obj 1165 341 tgl 40 0 empty empty empty 17 7 0 10 -261234 -1 -1
0 1;
#X text 1121 337 l;
#X text 1122 356 n;
#X text 1122 374 m;
#X text 1207 346 on/off;
#X floatatom 1164 388 8 0 0 0 - - -, f 8;
#X text 1104 317 find;
#X obj 1082 395 bng 20 250 50 0 empty empty empty 17 7 0 10 -260097
-1 -1;
#X text 1104 400 add;
#X text 1156 308 mode 3;
#X msg 680 628 set \$1;
#X msg 661 659 1337-output;
#X msg 552 626 set \$1;
#X msg 589 659 1.7791;
#X obj 538 556 r day-number;
#X obj 615 627 t b b b;
#X obj 1082 437 bng 20 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X floatatom 1081 465 5 0 0 0 - - -, f 5;
#X floatatom 1082 482 5 0 0 0 - - -, f 5;
#X floatatom 1082 500 5 0 0 0 - - -, f 5;
#X obj 1165 466 tgl 40 0 empty empty empty 17 7 0 10 -261234 -1 -1
0 1;
#X text 1121 462 l;
#X text 1122 481 n;
#X text 1122 499 m;
#X text 1207 471 on/off;
#X floatatom 1164 513 8 0 0 0 - - -, f 8;
#X text 1104 442 find;
#X obj 1082 520 bng 20 250 50 0 empty empty empty 17 7 0 10 -260097
-1 -1;
#X text 1104 525 add;
#X text 1156 433 mode 4;
#X msg 634 730 set \$1;
#X msg 615 761 1357-output;
#X msg 506 728 set \$1;
#X msg 543 761 4.0711;
#X obj 492 658 r day-number;
#X obj 569 729 t b b b;
#X obj 1082 566 bng 20 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X floatatom 1081 594 5 0 0 0 - - -, f 5;
#X floatatom 1082 611 5 0 0 0 - - -, f 5;
#X floatatom 1082 629 5 0 0 0 - - -, f 5;
#X obj 1165 595 tgl 40 0 empty empty empty 17 7 0 10 -261234 -1 -1
0 1;
#X text 1121 591 l;
#X text 1122 610 n;
#X text 1122 628 m;
#X text 1207 600 on/off;
#X floatatom 1164 642 8 0 0 0 - - -, f 8;
#X text 1104 571 find;
#X obj 1082 649 bng 20 250 50 0 empty empty empty 17 7 0 10 -260097
-1 -1;
#X text 1104 654 add;
#X text 1156 562 mode 5;
#X obj 121 722 modesum sumhold;
#X msg 503 161 \; sumhold normalize;
#X msg 503 121 \; sumhold const 0;
#X obj 799 75 arbitrarySR sumhold;
#X text 1222 133 Hz;
#X text 1224 261 Hz;
#X text 1226 387 Hz;
#X text 1226 513 Hz;
#X text 1224 641 Hz;
#X obj 642 283 modefilter, f 33;
#X obj 591 388 modefilter, f 33;
#X obj 547 491 modefilter, f 33;
#X obj 500 593 modefilter, f 33;
#X obj 454 695 modefilter, f 33;
#X msg 280 75 65536;
#X msg 273 52 131072;
#X obj 256 9 loadbang;
#X msg 284 103 32768;
#X obj 245 139 s block-size;
#X msg 352 46 50;
#X obj 352 78 s window-ramp;
#X msg 164 60 ../data, f 10;
#X obj 371 110 window-gen;
#X obj 218 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 161 198 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 161 263 s cadence;
#X msg 161 225 60;
#X msg 218 225 45;
#X obj 143 167 s filestem;
#X msg 161 99 mdi;
#X msg 176 124 hmi;
#X msg 272 170 262144;
#X obj 355 197 s fileblank;
#X msg 355 142 average.modes;
#X msg 371 170 %dd.modes;
#X obj 277 207 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 277 227 s mswitch;
#X obj 45 468 s shiftfactor;
#X obj 102 505 r cadence;
#X obj 102 531 t b f;
#X floatatom 279 294 5 0 0 0 - - -, f 5;
#X text 266 272 width mulitplier;
#X obj 761 715 r widmult;
#X obj 279 321 s widmult;
#X obj 773 604 r widmult;
#X obj 820 495 r widmult;
#X obj 862 392 r widmult;
#X obj 901 285 r widmult;
#X connect 0 0 57 0;
#X connect 1 0 5 0;
#X connect 1 0 154 0;
#X connect 2 0 154 2;
#X connect 3 0 154 3;
#X connect 4 0 154 4;
#X connect 5 0 154 6;
#X connect 6 0 7 0;
#X connect 7 0 145 1;
#X connect 8 0 10 0;
#X connect 8 1 166 0;
#X connect 9 0 8 0;
#X connect 17 0 27 0;
#X connect 19 0 25 0;
#X connect 19 0 37 0;
#X connect 20 0 19 0;
#X connect 22 0 19 0;
#X connect 23 0 19 0;
#X connect 24 0 19 0;
#X connect 27 0 26 0;
#X connect 27 0 26 1;
#X connect 28 0 17 1;
#X connect 29 0 28 0;
#X connect 31 0 42 0;
#X connect 31 0 182 0;
#X connect 34 0 31 0;
#X connect 35 0 31 0;
#X connect 36 0 31 0;
#X connect 37 0 40 0;
#X connect 38 0 39 0;
#X connect 40 0 38 0;
#X connect 41 0 40 0;
#X connect 41 1 38 1;
#X connect 42 0 43 0;
#X connect 42 1 41 0;
#X connect 43 0 41 0;
#X connect 45 0 145 0;
#X connect 47 0 148 1;
#X connect 48 0 148 0;
#X connect 49 0 52 1;
#X connect 50 0 49 0;
#X connect 52 0 54 0;
#X connect 54 0 53 0;
#X connect 54 0 53 1;
#X connect 55 0 56 0;
#X connect 56 0 145 2;
#X connect 58 0 154 1;
#X connect 61 0 45 0;
#X connect 61 1 56 0;
#X connect 61 2 7 0;
#X connect 62 0 61 0;
#X connect 65 0 66 0;
#X connect 66 0 145 1;
#X connect 67 0 68 0;
#X connect 68 0 145 2;
#X connect 69 0 155 1;
#X connect 70 0 45 0;
#X connect 70 1 68 0;
#X connect 70 2 66 0;
#X connect 71 0 75 0;
#X connect 71 0 155 0;
#X connect 72 0 155 2;
#X connect 73 0 155 3;
#X connect 74 0 155 4;
#X connect 75 0 155 6;
#X connect 82 0 70 0;
#X connect 85 0 86 0;
#X connect 86 0 145 1;
#X connect 87 0 88 0;
#X connect 88 0 145 2;
#X connect 89 0 156 1;
#X connect 90 0 45 0;
#X connect 90 1 88 0;
#X connect 90 2 86 0;
#X connect 91 0 95 0;
#X connect 91 0 156 0;
#X connect 92 0 156 2;
#X connect 93 0 156 3;
#X connect 94 0 156 4;
#X connect 95 0 156 6;
#X connect 102 0 90 0;
#X connect 105 0 106 0;
#X connect 106 0 145 1;
#X connect 107 0 108 0;
#X connect 108 0 145 2;
#X connect 109 0 157 1;
#X connect 110 0 45 0;
#X connect 110 1 108 0;
#X connect 110 2 106 0;
#X connect 111 0 115 0;
#X connect 111 0 157 0;
#X connect 112 0 157 2;
#X connect 113 0 157 3;
#X connect 114 0 157 4;
#X connect 115 0 157 6;
#X connect 122 0 110 0;
#X connect 125 0 126 0;
#X connect 126 0 145 1;
#X connect 127 0 128 0;
#X connect 128 0 145 2;
#X connect 129 0 158 1;
#X connect 130 0 45 0;
#X connect 130 1 128 0;
#X connect 130 2 126 0;
#X connect 131 0 135 0;
#X connect 131 0 158 0;
#X connect 132 0 158 2;
#X connect 133 0 158 3;
#X connect 134 0 158 4;
#X connect 135 0 158 6;
#X connect 142 0 130 0;
#X connect 148 0 52 0;
#X connect 154 0 17 0;
#X connect 154 2 55 0;
#X connect 154 3 44 0;
#X connect 154 4 6 0;
#X connect 155 0 17 0;
#X connect 155 2 67 0;
#X connect 155 3 80 0;
#X connect 155 4 65 0;
#X connect 156 0 17 0;
#X connect 156 2 87 0;
#X connect 156 3 100 0;
#X connect 156 4 85 0;
#X connect 157 0 17 0;
#X connect 157 2 107 0;
#X connect 157 3 120 0;
#X connect 157 4 105 0;
#X connect 158 0 17 0;
#X connect 158 2 127 0;
#X connect 158 3 140 0;
#X connect 158 4 125 0;
#X connect 159 0 163 0;
#X connect 160 0 163 0;
#X connect 161 0 166 0;
#X connect 161 0 164 0;
#X connect 161 0 174 0;
#X connect 161 0 178 0;
#X connect 161 0 24 0;
#X connect 161 0 34 0;
#X connect 162 0 163 0;
#X connect 164 0 165 0;
#X connect 166 0 8 1;
#X connect 168 0 172 0;
#X connect 168 0 176 0;
#X connect 169 0 171 0;
#X connect 169 0 160 0;
#X connect 171 0 170 0;
#X connect 172 0 170 0;
#X connect 174 0 173 0;
#X connect 174 0 169 0;
#X connect 175 0 173 0;
#X connect 175 0 168 0;
#X connect 176 0 163 0;
#X connect 178 0 177 0;
#X connect 179 0 177 0;
#X connect 180 0 181 0;
#X connect 183 0 184 0;
#X connect 184 0 37 0;
#X connect 184 1 37 1;
#X connect 185 0 188 0;
#X connect 187 0 158 5;
#X connect 189 0 157 5;
#X connect 190 0 156 5;
#X connect 191 0 155 5;
#X connect 192 0 154 5;