path: root/player~.pd

#N canvas 1293 142 1009 686 10;
#X obj 23 -189 inlet speed;
#X obj 428 347 outlet done;
#X obj 599 -97 iemlib/dollarg;
#X obj 600 -138 loadbang;
#X obj 816 -118 inlet loop;
#X obj 604 -72 tof/listUnfold;
#X obj 608 -46 route symbol float;
#X obj 477 181 f;
#N canvas 1451 321 853 603 reader~ 0;
#X obj 74 541 *~;
#X obj 32 279 tof/phasorshot~;
#X obj 68 442 *~ 0;
#X obj 58 497 tabread4~;
#N canvas 1143 272 704 519 trapezoid~ 0;
#X obj 33 29 inlet~ control~;
#X obj 524 33 inlet samples;
#X obj 209 343 cyclone/trapezoid~ 0.1 0.9;
#X msg 319 141 100 \$1;
#X obj 322 169 /;
#X obj 339 245 -;
#X obj 280 253 t f f;
#X msg 340 220 1 \$1;
#X obj 275 299 sig~;
#X obj 358 308 sig~;
#X obj 200 422 outlet~;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 1;
#X connect 9 0 2 2;
#X restore 264 468 pd trapezoid~;
#X msg 298 315 set \$1;
#X obj 64 57 unpack f f f;
#X obj 56 321 *~ 0;
#X obj 56 356 +~ 0;
#X obj 82 573 outlet~;
#X obj 666 22 inlet loop;
#X obj 64 13 inlet speed start end;
#X obj 17 111 *;
#X obj 351 570 outlet~;
#X obj 614 564 outlet done;
#X obj 433 568 outlet samples;
#X obj 233 16 inlet stop;
#X msg 233 46 0;
#X obj 133 197 moses 0;
#X obj 424 511 f;
#X obj 344 49 t b l;
#X obj 559 485 spigot 1;
#X obj 644 437 == 0;
#X obj 616 512 t b b;
#X obj 203 112 expr abs($f2-$f1);
#X obj 254 176 expr $f3/($f2*$f1);
#X obj 175 266 *;
#X msg 165 222 1;
#X obj 17 218 abs;
#X msg 134 225 -1;
#X obj 22 160 t b f b f;
#X msg 58 214 0;
#X obj 405 17 inlet table table samples rate;
#X obj 415 79 unpack s s f f;
#X obj 196 574 outlet~;
#X obj 161 498 tabread4~;
#X obj 173 532 *~;
#X msg 346 319 set \$1;
#X obj 63 384 cyclone/pong~ 1 0 1;
#X connect 0 0 9 0;
#X connect 1 0 7 0;
#X connect 1 1 21 0;
#X connect 1 2 21 0;
#X connect 2 0 3 0;
#X connect 2 0 35 0;
#X connect 3 0 0 0;
#X connect 4 0 0 1;
#X connect 4 0 36 1;
#X connect 5 0 3 0;
#X connect 6 0 12 0;
#X connect 6 1 8 1;
#X connect 6 1 24 0;
#X connect 6 2 24 1;
#X connect 7 0 8 0;
#X connect 8 0 38 0;
#X connect 10 0 1 2;
#X connect 10 0 22 0;
#X connect 11 0 6 0;
#X connect 12 0 30 0;
#X connect 16 0 17 0;
#X connect 17 0 1 0;
#X connect 18 0 29 0;
#X connect 18 1 27 0;
#X connect 19 0 15 0;
#X connect 20 0 17 0;
#X connect 20 1 33 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 14 0;
#X connect 23 1 17 0;
#X connect 24 0 25 0;
#X connect 24 0 26 1;
#X connect 25 0 12 1;
#X connect 26 0 7 1;
#X connect 27 0 26 0;
#X connect 28 0 1 0;
#X connect 29 0 26 0;
#X connect 30 0 19 0;
#X connect 30 1 28 0;
#X connect 30 2 31 0;
#X connect 30 3 18 0;
#X connect 31 0 1 1;
#X connect 32 0 20 0;
#X connect 33 0 5 0;
#X connect 33 1 37 0;
#X connect 33 2 19 1;
#X connect 33 2 4 1;
#X connect 33 2 2 1;
#X connect 33 2 25 1;
#X connect 33 3 25 2;
#X connect 35 0 36 0;
#X connect 36 0 34 0;
#X connect 37 0 35 0;
#X connect 38 0 4 0;
#X connect 38 0 2 0;
#X connect 38 0 13 0;
#X restore 22 255 pd reader~;
#N canvas 1170 204 818 584 openInternal 0;
#X obj 183 168 soundfiler;
#X obj 185 -179 inlet;
#X obj 248 391 outlet;
#X obj 183 -97 iemlib/soundfile_info;
#X msg 183 -124 read \$1;
#X msg 449 266 \$1;
#X obj 183 200 t b f;
#X msg 183 13 \$2;
#X obj 183 -67 t l l l;
#X msg 184 126 read -resize -maxsize 2.14748e+09 \$1 \$2 \$3;
#X obj 582 -41 table \$0R 3;
#X obj 181 231 zexy/demultiplex 0 1;
#X msg 299 168 \$5;
#X obj 299 191 > 1;
#X obj 180 84 list append \$0L \$0R;
#X obj 249 364 pack s s f f;
#X obj 130 287 symbol \$0L;
#X obj 288 279 symbol \$0R;
#X obj 199 286 symbol \$0L;
#X obj 138 226 t b b;
#X obj 184 -149 cyclone/tosymbol;
#X obj 582 -13 table \$0L 3;
#X connect 0 0 6 0;
#X connect 1 0 20 0;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 5 0 15 3;
#X connect 6 0 19 0;
#X connect 6 1 15 2;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 8 1 12 0;
#X connect 8 2 5 0;
#X connect 9 0 0 0;
#X connect 11 0 18 0;
#X connect 11 1 17 0;
#X connect 12 0 13 0;
#X connect 13 0 11 1;
#X connect 14 0 9 0;
#X connect 15 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 15 1;
#X connect 18 0 15 1;
#X connect 19 0 16 0;
#X connect 19 1 11 0;
#X connect 20 0 4 0;
#X restore 201 -49 pd openInternal;
#N canvas 1434 33 816 756 setExternal 0;
#X obj 149 605 outlet;
#X obj 490 278 samplerate~;
#X obj 170 380 arraysize;
#X msg 184 341 set \$1 \, bang;
#X obj 154 -114 inlet table (table) (length) (rate);
#X obj 272 28 route symbol float;
#X msg 274 54 2;
#X msg 323 54 1;
#X obj 230 88 list split;
#X obj 147 500 pack s s f f;
#X obj 371 201 list split 2;
#X obj 339 241 unpack;
#X obj 449 231 t f b;
#X obj 20 169 list split 2;
#X obj 204 239 spigot;
#X obj 321 143 t a b;
#X msg 349 169 0;
#X obj 267 -2 zexy/packel 2;
#X obj 86 129 t a a;
#X obj 200 -71 list;
#X obj 228 -30 t a a b;
#X msg 99 228 list \$1 \$1;
#X obj 263 114 route bang;
#X msg 265 146 1;
#X obj 206 298 t a b;
#X connect 1 0 9 3;
#X connect 2 0 9 2;
#X connect 3 0 2 0;
#X connect 4 0 19 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 8 1;
#X connect 7 0 8 1;
#X connect 8 0 18 0;
#X connect 8 1 22 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 10 2 12 0;
#X connect 11 0 9 2;
#X connect 11 1 9 3;
#X connect 12 0 9 2;
#X connect 12 1 1 0;
#X connect 13 0 9 0;
#X connect 13 2 21 0;
#X connect 14 0 24 0;
#X connect 15 0 10 0;
#X connect 15 1 16 0;
#X connect 16 0 14 1;
#X connect 17 0 5 0;
#X connect 18 0 13 0;
#X connect 18 1 14 0;
#X connect 19 0 20 0;
#X connect 20 0 8 0;
#X connect 20 1 17 0;
#X connect 20 2 7 0;
#X connect 21 0 9 0;
#X connect 22 0 23 0;
#X connect 22 1 15 0;
#X connect 23 0 14 1;
#X connect 24 0 3 0;
#X connect 24 1 1 0;
#X restore 313 -49 pd setExternal;
#X obj 324 348 outlet samples;
#X obj 2 -104 route bang list float open set;
#N canvas 1150 101 936 787 triggerMaker 0;
#X obj 22 29 inlet bang;
#X obj 147 27 inlet list;
#X obj 296 28 inlet float;
#X obj 356 117 sel 0;
#X obj 185 267 clip 0 1;
#X msg 23 171 1 0 1;
#X msg 453 220 \$1 0 1;
#X obj 145 133 list split 3;
#X obj 244 263 clip 0 1;
#X obj 152 231 unpack;
#X obj 120 172 unpack f f f;
#X obj 121 369 pack f f f;
#X msg 258 399 1;
#X obj 114 538 outlet play;
#X obj 367 541 outlet stop;
#X obj 218 356 moses 0;
#X obj 148 275 t f f;
#X msg 215 400 0;
#X connect 0 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 14 0;
#X connect 3 1 6 0;
#X connect 4 0 11 1;
#X connect 5 0 13 0;
#X connect 6 0 13 0;
#X connect 7 0 10 0;
#X connect 7 2 9 0;
#X connect 8 0 11 2;
#X connect 9 0 16 0;
#X connect 9 1 4 0;
#X connect 10 0 11 0;
#X connect 10 1 4 0;
#X connect 10 2 8 0;
#X connect 11 0 13 0;
#X connect 12 0 11 2;
#X connect 15 0 17 0;
#X connect 15 1 12 0;
#X connect 16 0 11 0;
#X connect 16 1 15 0;
#X connect 17 0 11 2;
#X restore -2 79 pd triggerMaker;
#X text 216 -5 Notes: when reading into the internal table \, it does
read the samplerate (miller's fault). Should maybe add a soundfile_info
there.;
#X obj 24 350 outlet~ left;
#X obj 108 351 outlet~ right;
#X obj 208 349 outlet~ progress;
#X connect 0 0 12 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 1 7 0;
#X connect 7 0 8 3;
#X connect 8 0 15 0;
#X connect 8 1 16 0;
#X connect 8 2 17 0;
#X connect 8 3 11 0;
#X connect 8 4 1 0;
#X connect 9 0 8 2;
#X connect 10 0 8 2;
#X connect 12 0 13 0;
#X connect 12 1 13 1;
#X connect 12 2 13 2;
#X connect 12 3 9 0;
#X connect 12 4 10 0;
#X connect 13 0 8 0;
#X connect 13 1 8 1;