#N canvas 42 22 360 510 10; #X obj 88 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 70 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #N canvas 343 103 554 448 player 0; #X obj 218 76 r~ sync; #X obj 219 191 *~; #X obj 234 168 r nr-of-samples; #X obj 218 142 wrap~; #X obj 217 255 outlet~; #X obj 274 78 r phase-modulation; #X obj 273 100 sig~; #X obj 218 222 tabread4~ sampling; #X connect 0 0 3 0; #X connect 1 0 7 0; #X connect 2 0 1 1; #X connect 3 0 1 0; #X connect 5 0 6 0; #X connect 6 0 3 0; #X connect 7 0 4 0; #X restore 75 318 pd player; #X obj 74 395 *~; #X obj 89 372 dbtorms; #X obj 75 431 dac~; #X floatatom 89 349 5 0 100 0 - - -; #X floatatom 163 64 5 0 0 0 - - -; #X floatatom 70 108 15 0 0 0 - - -; #N canvas 145 40 548 582 load 0; #X obj 102 50 openpanel; #X obj 102 161 soundfiler; #X obj 102 208 t f b b; #X msg 141 232 \; pd dsp 1; #X obj 121 269 samplerate~; #X obj 102 311 /; #X obj 102 343 * 1000; #X obj 122 386 t b f; #X obj 102 441 s total-time-ms; #X msg 102 116 read -resize \$1 sampling \; sampling normalize; #X obj 166 204 s nr-of-samples; #X obj 102 414 / 1; #X obj 158 354 expr pow(2 \, $f1/12); #X obj 101 28 inlet; #X obj 159 328 inlet; #X obj 94 468 outlet; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 1 0 10 0; #X connect 2 0 5 0; #X connect 2 1 4 0; #X connect 2 2 3 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 11 0; #X connect 7 0 11 0; #X connect 7 1 11 1; #X connect 9 0 1 0; #X connect 11 0 8 0; #X connect 11 0 15 0; #X connect 12 0 7 0; #X connect 13 0 0 0; #X connect 14 0 12 0; #X restore 70 84 pd load sampling; #N canvas 0 0 519 460 guts 0; #X obj 15 135 metro; #X obj 373 157 vline~; #X obj 372 179 s~ sync; #X msg 373 129 0 \, 1 \$1; #X obj 54 22 r total-time-ms; #X obj 388 74 r total-time-ms; #X obj 373 18 r trig; #X obj 373 95 f; #X obj 14 418 table sampling; #X obj 200 99 s phase-modulation; #X obj 200 72 0; #X obj 71 290 change; #X obj 71 317 s trig; #X obj 15 166 f; #X obj 222 325 s nr-of-bars; #X floatatom 222 217 5 0 0 0 - - -; #X obj 347 230 s subdivision; #X floatatom 310 203 5 0 0 0 - - -; #X obj 249 266 *; #X obj 305 232 t b f; #X obj 249 292 s nr-of-ticks; #X obj 64 195 r nr-of-ticks; #X obj 15 314 s tick; #X obj 70 269 div; #X obj 88 241 r subdivision; #X obj 200 20 r tick; #X obj 200 42 select 0; #X obj 54 108 /; #X obj 73 45 r subdivision; #X obj 75 67 t b f; #X obj 42 166 + 1; #N canvas 195 53 497 532 cut 0; #X obj 194 232 r subdivision; #X obj 131 389 s phase-modulation; #X obj 131 332 /; #X obj 131 35 r trig; #X obj 131 269 random; #X obj 187 88 r subdivision; #X obj 131 118 random; #X obj 132 186 del; #X obj 131 162 *; #X obj 204 135 r tick-ms; #X obj 104 224 t b b; #X obj 131 63 select 0; #X floatatom 188 335 5 0 0 0 - - -; #X msg 186 312 1; #X msg 215 312 2; #X msg 246 311 4; #X obj 131 359 * 2; #X connect 0 0 2 1; #X connect 0 0 4 1; #X connect 2 0 16 0; #X connect 3 0 11 0; #X connect 4 0 2 0; #X connect 5 0 6 1; #X connect 6 0 8 0; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 9 0 8 1; #X connect 10 0 6 0; #X connect 10 1 4 0; #X connect 11 0 6 0; #X connect 12 0 16 1; #X connect 13 0 12 0; #X connect 14 0 12 0; #X connect 15 0 12 0; #X connect 16 0 1 0; #X restore 17 364 pd cut; #N canvas 423 0 511 704 roll 0; #X obj 307 124 r subdivision; #X obj 198 608 s phase-modulation; #X obj 274 38 r trig; #X obj 349 38 r nr-of-bars; #X obj 274 96 select; #X obj 274 148 random; #X obj 198 367 mod; #X obj 236 343 r subdivision; #X obj 198 318 spigot; #X obj 198 525 +; #X obj 193 225 r tick; #X obj 193 258 select 0; #X obj 193 282 0; #X obj 198 580 /; #X obj 259 538 r subdivision; #X obj 312 472 r subdivision; #X obj 279 496 random; #X obj 279 420 r tick; #X obj 279 453 select 0; #X obj 274 212 *; #X obj 274 236 del; #X obj 274 260 1; #X obj 349 63 - 1; #X obj 320 184 r tick-ms; #X obj 198 439 * -1; #X connect 0 0 5 1; #X connect 2 0 4 0; #X connect 3 0 22 0; #X connect 4 0 5 0; #X connect 5 0 19 0; #X connect 6 0 24 0; #X connect 7 0 6 1; #X connect 8 0 6 0; #X connect 9 0 13 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 8 0; #X connect 12 0 8 1; #X connect 13 0 1 0; #X connect 14 0 13 1; #X connect 15 0 16 1; #X connect 16 0 9 1; #X connect 17 0 18 0; #X connect 18 0 16 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 21 0 8 1; #X connect 22 0 4 1; #X connect 23 0 19 1; #X connect 24 0 9 0; #X restore 16 391 pd roll; #X obj 373 45 t b; #X obj 222 179 unpack; #X obj 69 137 s tick-ms; #X obj 15 227 mod; #X obj 15 101 inlet; #X obj 125 318 outlet; #X obj 222 154 inlet; #X connect 0 0 13 0; #X connect 1 0 2 0; #X connect 3 0 1 0; #X connect 4 0 27 0; #X connect 5 0 7 1; #X connect 6 0 33 0; #X connect 7 0 3 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 0 38 0; #X connect 13 0 36 0; #X connect 15 0 14 0; #X connect 15 0 18 0; #X connect 17 0 16 0; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 19 0 18 0; #X connect 19 1 18 1; #X connect 21 0 36 1; #X connect 23 0 11 0; #X connect 24 0 23 1; #X connect 25 0 26 0; #X connect 26 0 10 0; #X connect 27 0 0 1; #X connect 27 0 35 0; #X connect 28 0 29 0; #X connect 29 0 27 0; #X connect 29 1 27 1; #X connect 30 0 13 1; #X connect 33 0 7 0; #X connect 34 0 15 0; #X connect 34 1 17 0; #X connect 36 0 22 0; #X connect 36 0 23 0; #X connect 36 0 30 0; #X connect 37 0 0 0; #X connect 39 0 34 0; #X restore 88 229 pd guts; #X msg 127 166 4 16; #X msg 161 166 2 32; #X msg 198 166 4 32; #X msg 241 165 4 64; #X msg 71 165 2 8; #X msg 100 166 4 8; #X obj 127 198 t l; #X floatatom 89 252 5 0 0 0 - - -; #X text 68 26 1 Load loop; #X text 33 202 3 start; #X text 136 347 4 turn up volume; #X text 69 472 slp@2010; #X text 204 65 tempo change (semitones); #X text 67 146 2 select (bars \, subdivision); #X text 126 253 current bar; #X text 174 108 total time (ms); #X connect 0 0 10 0; #X connect 1 0 9 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 3 0 5 1; #X connect 4 0 3 1; #X connect 6 0 4 0; #X connect 7 0 9 1; #X connect 9 0 8 0; #X connect 10 0 18 0; #X connect 11 0 17 0; #X connect 12 0 17 0; #X connect 13 0 17 0; #X connect 14 0 17 0; #X connect 15 0 17 0; #X connect 16 0 17 0; #X connect 17 0 10 1;