aboutsummaryrefslogtreecommitdiff
path: root/player~.pd
diff options
context:
space:
mode:
Diffstat (limited to 'player~.pd')
-rw-r--r--player~.pd424
1 files changed, 282 insertions, 142 deletions
diff --git a/player~.pd b/player~.pd
index c0b81cf..cbe9b54 100644
--- a/player~.pd
+++ b/player~.pd
@@ -1,62 +1,17 @@
-#N canvas 1162 153 1005 740 10;
+#N canvas 1293 142 1009 686 10;
#X obj 23 -189 inlet speed;
-#X msg 223 154 set \$1;
-#X obj 327 44 symbol;
-#X obj 31 544 outlet~;
-#X obj 328 545 outlet~;
-#X obj 387 541 outlet size;
-#X obj 521 533 outlet done;
-#X obj 140 -29 sel 0;
-#X obj 34 515 *~;
-#X obj 105 3 s \$0stop;
-#X msg 13 -6 1 0;
-#X msg 186 21 \$1 0;
-#X obj 44 102 unpack f f;
-#X obj 424 205 flatspace/arraysize;
-#X msg 424 177 set \$1 \, bang;
-#X obj 24 -62 route bang list float;
+#X obj 428 347 outlet done;
#X obj 599 -97 iemlib/dollarg;
#X obj 600 -138 loadbang;
-#X obj 743 365 table \$0t 3;
-#X obj 31 300 tof/phasorshot~;
-#X obj 31 232 *;
#X obj 816 -118 inlet loop;
-#X obj 319 295 spigot 1;
-#X obj 350 236 == 0;
-#X obj 518 480 t b b b;
-#X msg 252 316 0 0;
-#X obj 146 136 clip 0 1;
#X obj 604 -72 tof/listUnfold;
#X obj 608 -46 route symbol float;
-#X obj 781 154 f;
-#X obj 26 139 moses 0;
-#X obj 122 188 -;
-#X obj 118 213 abs;
-#X obj 15 160 t f b;
-#X obj 65 162 t f b;
-#X msg 107 159 0;
-#X msg 67 195 1;
-#X obj 216 -141 soundfiler;
-#X msg 216 -178 read -resize \$1 \$2;
-#X obj 216 -202 list append \$0t;
-#X obj 42 65 t a b b;
-#X obj 465 -102 zexy/length;
-#X obj 380 -135 t a a;
-#X obj 469 -81 > 1;
-#X obj 357 -53 zexy/demultiplex 0 1;
-#X obj 269 197 ./smpToFreq;
-#X obj 463 55 list split 1;
-#X obj 586 116 route bang;
-#X obj 496 81 list split 2;
-#X obj 469 114 t l l;
-#X msg 544 283 \$1;
-#X obj 24 369 *~ 0;
-#X obj 18 442 tabread4~;
-#X obj 439 268 t f f;
-#X msg 256 43 0;
-#X obj 248 -70 b;
-#X obj 229 -32 symbol \$0t;
-#X obj 26 -156 route set open;
+#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;
@@ -80,94 +35,279 @@
#X connect 7 0 5 0;
#X connect 8 0 2 1;
#X connect 9 0 2 2;
-#X restore 119 475 pd trapezoid~;
-#X obj 452 321 t f f f;
-#X obj 280 129 t s b;
-#X obj 323 74 t s s;
-#X obj 176 233 r \$0stop;
-#X msg 178 256 0;
-#X connect 0 0 57 0;
-#X connect 1 0 52 0;
-#X connect 2 0 61 0;
-#X connect 7 0 9 0;
-#X connect 7 1 11 0;
-#X connect 8 0 3 0;
-#X connect 10 0 40 0;
-#X connect 11 0 40 0;
+#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 12 1 26 0;
-#X connect 13 0 53 0;
-#X connect 14 0 13 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 flatspace/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 40 0;
-#X connect 15 2 7 0;
-#X connect 15 3 42 0;
-#X connect 16 0 27 0;
-#X connect 17 0 16 0;
-#X connect 19 0 4 0;
-#X connect 19 0 51 0;
-#X connect 19 0 58 0;
-#X connect 19 1 22 0;
-#X connect 19 2 22 0;
-#X connect 20 0 19 0;
-#X connect 21 0 29 0;
-#X connect 22 0 24 0;
-#X connect 23 0 22 1;
-#X connect 24 0 6 0;
-#X connect 24 2 25 0;
-#X connect 25 0 19 0;
-#X connect 26 0 31 1;
-#X connect 27 0 28 0;
-#X connect 28 0 2 0;
-#X connect 28 1 29 0;
-#X connect 29 0 23 0;
-#X connect 29 0 19 2;
-#X connect 30 0 33 0;
-#X connect 30 1 34 0;
-#X connect 31 0 32 0;
-#X connect 32 0 19 1;
-#X connect 33 0 20 0;
-#X connect 33 1 36 0;
-#X connect 34 0 20 0;
-#X connect 34 1 35 0;
-#X connect 35 0 31 0;
-#X connect 36 0 31 0;
-#X connect 37 0 55 0;
-#X connect 38 0 37 0;
-#X connect 39 0 38 0;
-#X connect 40 0 12 0;
-#X connect 41 0 43 0;
-#X connect 42 0 44 0;
-#X connect 42 1 41 0;
-#X connect 43 0 44 1;
-#X connect 44 0 2 0;
-#X connect 44 1 46 0;
-#X connect 45 0 20 1;
-#X connect 46 0 60 0;
-#X connect 46 1 48 0;
-#X connect 47 1 53 0;
-#X connect 48 0 49 0;
-#X connect 48 2 47 0;
-#X connect 49 0 50 0;
-#X connect 49 1 45 0;
-#X connect 50 0 59 0;
-#X connect 51 0 52 0;
-#X connect 52 0 8 0;
-#X connect 53 0 59 0;
-#X connect 53 1 45 0;
-#X connect 54 0 7 0;
-#X connect 55 0 56 0;
-#X connect 56 0 2 0;
-#X connect 57 0 42 0;
-#X connect 57 1 39 0;
-#X connect 57 2 15 0;
-#X connect 58 0 8 1;
-#X connect 59 0 5 0;
-#X connect 59 1 51 1;
-#X connect 59 2 58 1;
-#X connect 60 0 1 0;
-#X connect 60 1 54 0;
-#X connect 61 0 60 0;
-#X connect 61 1 14 0;
-#X connect 62 0 63 0;
-#X connect 63 0 19 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;