(file) Return to loadaudio.pd CVS log (file) (dir) Up to [Development] / JSOC / proj / globalhs / sosh

File: [Development] / JSOC / proj / globalhs / sosh / loadaudio.pd (download)
Revision: 1.3, Mon Apr 8 15:52:18 2019 UTC (4 years, 5 months ago) by tplarson
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, HEAD
Changes since 1.2: +73 -58 lines
new versions

#N canvas 136 116 908 566 10;
#X obj 43 954 soundfiler;
#X obj 41 1084 float;
#X obj 80 1051 t b f;
#X obj 88 -94 r data-dir;
#X msg 45 164 set \$1;
#X obj 89 196 makefilename;
#X obj 170 163 int;
#X obj 89 118 t b s;
#X obj 188 124 inlet;
#X msg 86 283 set \$1;
#X obj 130 315 makefilename;
#X obj 211 282 int;
#X obj 89 250 t b s;
#X obj 284 198 inlet;
#X obj 126 658 route list;
#X obj 126 632 list prepend symbol;
#X obj 42 717 makefilename %s_datar.wav;
#X obj 509 958 soundfiler;
#X obj 509 989 t b b;
#X obj 509 1062 float;
#X obj 579 1025 t b f;
#X obj 512 725 makefilename %s_datai.wav;
#X obj 349 730 spigot;
#X msg 509 852;
#X obj 284 245 abs;
#X obj 443 41 loadbang;
#X obj 88 -43 symbol;
#X obj 180 -95 inlet;
#X obj 177 -71 t b b;
#X msg 44 851;
#X obj 19 687 t b l l;
#X obj 232 1020 sel 0;
#X obj 265 1045 t b;
#X msg 232 1077 0;
#X msg 269 1078 1;
#X obj 232 1106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X text 227 1124 file loaded successfully?;
#X obj 19 1208 i;
#X obj 19 1262 outlet;
#X msg 83 822 set read -resize \$1 \$2-input-r;
#X obj 85 791 list append;
#X obj 42 742 t b s b;
#X msg 225 948 \; \$1-input-r normalize;
#X obj 511 750 t b s b;
#X obj 549 796 list append;
#X msg 690 951 \; \$1-input-i normalize;
#X msg 548 823 set read -resize \$1 \$2-input-i;
#X msg 470 97 \; \$1-input-r const 0;
#X msg 472 156 \; \$1-input-i const 0;
#X text 226 -97 go;
#X text 231 126 l, f 2;
#X text 328 198 m;
#X obj 252 -96 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 19 1234 sel 1;
#X msg 127 382 set \$1;
#X obj 171 414 makefilename;
#X obj 252 381 int;
#X obj 130 349 t b s;
#X obj 469 269 inlet;
#X text 523 268 day number;
#X obj 49 981 t f b b;
#X obj 41 1113 array size \$1-input-r;
#X obj 509 1097 array size \$1-input-i;
#X obj 158 764 f \$1;
#X obj 622 770 f \$1;
#X obj 225 919 f \$1;
#X obj 690 922 f \$1;
#X obj 445 68 f \$1;
#X msg 322 826 set;
#X obj 322 802 loadbang;
#X floatatom 354 1037 5 0 0 0 - - -, f 5;
#X obj 88 1022 r block-size;
#X obj 586 994 r block-size;
#X obj 354 1071 s nsamples;
#X msg 106 51 set \$1;
#X obj 191 53 symbol;
#X obj 230 7 r filestem;
#X obj 106 16 t b s;
#X obj 106 89 makefilename;
#X obj 230 29 symbol;
#X msg 168 492 set \$1;
#X obj 212 524 makefilename;
#X obj 293 491 int;
#X obj 171 459 t b s;
#X obj 373 356 r ndays;
#X msg 396 406 72;
#X floatatom 373 437 5 0 0 0 - - -, f 5;
#X obj 396 382 loadbang;
#X obj 89 -16 makefilename %s/%%s.%%%%%%%%%%%%%%%%dd_%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%dd.l=%%%%d_m=%%%%%%%%d
, f 99;
#X connect 0 0 60 0;
#X connect 1 0 61 0;
#X connect 2 0 29 0;
#X connect 2 1 1 1;
#X connect 3 0 26 1;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 4 0;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 10 0 57 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 9 0;
#X connect 13 0 24 0;
#X connect 14 0 30 0;
#X connect 15 0 14 0;
#X connect 16 0 41 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 62 0;
#X connect 20 0 23 0;
#X connect 20 1 19 1;
#X connect 21 0 43 0;
#X connect 22 0 21 0;
#X connect 23 0 17 0;
#X connect 24 0 11 1;
#X connect 24 0 22 1;
#X connect 25 0 67 0;
#X connect 26 0 88 0;
#X connect 27 0 28 0;
#X connect 28 0 26 0;
#X connect 28 1 67 0;
#X connect 29 0 0 0;
#X connect 30 0 37 0;
#X connect 30 1 16 0;
#X connect 30 2 22 0;
#X connect 31 0 33 0;
#X connect 31 1 32 0;
#X connect 31 1 70 0;
#X connect 32 0 34 0;
#X connect 33 0 35 0;
#X connect 34 0 35 0;
#X connect 35 0 37 1;
#X connect 37 0 53 0;
#X connect 39 0 29 0;
#X connect 40 0 39 0;
#X connect 41 0 29 0;
#X connect 41 1 40 0;
#X connect 41 2 63 0;
#X connect 43 0 23 0;
#X connect 43 1 44 0;
#X connect 43 2 64 0;
#X connect 44 0 46 0;
#X connect 46 0 23 0;
#X connect 52 0 28 0;
#X connect 53 0 38 0;
#X connect 54 0 55 0;
#X connect 55 0 83 0;
#X connect 56 0 55 0;
#X connect 57 0 56 0;
#X connect 57 1 54 0;
#X connect 58 0 56 1;
#X connect 60 0 31 0;
#X connect 60 1 1 0;
#X connect 63 0 40 1;
#X connect 64 0 44 1;
#X connect 65 0 42 0;
#X connect 66 0 45 0;
#X connect 67 0 47 0;
#X connect 67 0 48 0;
#X connect 68 0 29 0;
#X connect 68 0 23 0;
#X connect 69 0 68 0;
#X connect 70 0 73 0;
#X connect 71 0 2 0;
#X connect 72 0 20 0;
#X connect 74 0 78 0;
#X connect 75 0 78 0;
#X connect 76 0 79 0;
#X connect 77 0 75 0;
#X connect 77 1 74 0;
#X connect 78 0 7 0;
#X connect 79 0 75 1;
#X connect 80 0 81 0;
#X connect 81 0 15 0;
#X connect 82 0 81 0;
#X connect 83 0 82 0;
#X connect 83 1 80 0;
#X connect 84 0 86 0;
#X connect 85 0 86 0;
#X connect 86 0 82 1;
#X connect 87 0 85 0;
#X connect 88 0 77 0;

Karen Tian
Powered by
ViewCVS 0.9.4