risset_sampler.pd

#N canvas 513 234 587 400 12;
#N canvas 830 139 450 278 (subpatch) 0;
#X array \$0-rs_array 129069 float 2;
#X coords 0 1 129069 -1 200 80 2 0 0;
#X restore 20 99 graph;
#X symbolatom 20 184 33 0 0 0 - \$0-filename \$0-filenamedummy 10;
#N canvas 19 310 1404 533 sampleplayer 0;
#X obj 29 83 r \$0-slength;
#X obj 22 153 *;
#X floatatom 22 57 3 0 8 0 - - - 12;
#X obj 22 198 s \$0-tmeta;
#X obj 29 130 t b f;
#X floatatom 29 107 10 0 0 0 - - - 0;
#X floatatom 22 176 11 0 0 0 - - - 0;
#X floatatom 325 176 5 0 0 0 - - - 0;
#X obj 325 198 s \$0-b;
#X obj 22 440 env~;
#X obj 22 463 dbtorms;
#X obj 103 369 r \$0-slength;
#X obj 78 391 *~, f 4;
#X obj 78 440 *~;
#X obj 78 463 throw~ \$0-rs_bus;
#X obj 200 314 env~;
#X obj 200 335 dbtorms;
#X floatatom 200 356 5 0 0 0 - - - 0;
#X obj 200 379 vsl 19 85 0 1 0 0 empty empty empty 0 -9 0 12 #fcfcfc #000000 #000000 0 1;
#X text 365 175 b (bandwidth in octaves);
#X obj 1284 272 env~;
#X obj 1284 295 dbtorms;
#X obj 1287 319 hsl 85 19 0 1 0 0 empty empty 1\ Metabar 10 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1284 249 r~ \$0-tet;
#X obj 1287 367 hsl 85 19 0 1 0 0 empty \$0-tlT0 Stream\ 0 12 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1287 391 hsl 85 19 0 1 0 0 empty \$0-tlT1 Stream\ 1 12 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1287 415 hsl 85 19 0 1 0 0 empty \$0-tlT2 Stream\ 2 12 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1287 439 hsl 85 19 0 1 0 0 empty \$0-tlT3 Stream\ 3 12 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1287 463 hsl 85 19 0 1 0 0 empty \$0-tlT4 Stream\ 4 12 10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 22 487 s \$0-tlT0;
#X obj 272 487 s \$0-tlT1;
#X obj 522 487 s \$0-tlT2;
#X obj 772 487 s \$0-tlT3;
#X obj 1022 487 s \$0-tlT4;
#X obj 1168 107 r \$0-slength;
#X obj 1150 130 *~;
#X obj 1150 176 *~ 1;
#X obj 1175 34 r \$0-rc;
#X obj 1150 83 phasor~, f 10;
#X obj 1150 58 *, f 4;
#X obj 1150 34 tgl 19 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1185 58 sel 1;
#X obj 1150 198 throw~ \$0-rs_bus;
#X obj 602 35 r \$0-tmeta;
#X obj 697 35 r \$0-srate;
#X floatatom 602 83 9 0 0 0 - - - 0;
#X obj 602 59 expr 1/$f1*$f2;
#X obj 580 176 phasor~;
#X text 640 175 te/τ;
#X obj 580 130 *, f 4;
#X obj 587 153 sel 1, f 6;
#X obj 580 198 s~ \$0-tet;
#X obj 22 295 snake~ out, f 11;
#X obj 22 365 phasor~, f 9;
#X obj 22 249 r~ \$0-tet;
#X obj 22 342 *~;
#X obj 50 343 sel 1;
#X obj 272 440 env~;
#X obj 272 463 dbtorms;
#X obj 353 369 r \$0-slength;
#X obj 328 391 *~, f 4;
#X obj 328 440 *~;
#X obj 328 463 throw~ \$0-rs_bus;
#X obj 448 314 env~;
#X obj 448 335 dbtorms;
#X floatatom 448 356 5 0 0 0 - - - 0;
#X obj 448 379 vsl 19 85 0 1 0 0 empty empty empty 0 -9 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 272 295 snake~ out, f 11;
#X obj 272 365 phasor~, f 9;
#X obj 272 249 r~ \$0-tet;
#X obj 272 342 *~;
#X obj 300 343 sel 1;
#X obj 522 440 env~;
#X obj 522 463 dbtorms;
#X obj 603 369 r \$0-slength;
#X obj 578 391 *~, f 4;
#X obj 578 440 *~;
#X obj 578 463 throw~ \$0-rs_bus;
#X obj 698 314 env~;
#X obj 698 335 dbtorms;
#X floatatom 698 356 5 0 0 0 - - - 0;
#X obj 698 379 vsl 19 85 0 1 0 0 empty empty empty 0 -9 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 522 295 snake~ out, f 11;
#X obj 522 365 phasor~, f 9;
#X obj 522 249 r~ \$0-tet;
#X obj 522 342 *~;
#X obj 550 343 sel 1;
#X obj 772 440 env~;
#X obj 772 463 dbtorms;
#X obj 853 369 r \$0-slength;
#X obj 828 391 *~, f 4;
#X obj 828 440 *~;
#X obj 828 463 throw~ \$0-rs_bus;
#X obj 948 314 env~;
#X obj 948 335 dbtorms;
#X floatatom 948 356 5 0 0 0 - - - 0;
#X obj 948 379 vsl 19 85 0 1 0 0 empty empty empty 0 -9 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 772 295 snake~ out, f 11;
#X obj 772 365 phasor~, f 9;
#X obj 772 249 r~ \$0-tet;
#X obj 772 342 *~;
#X obj 800 343 sel 1;
#X obj 1022 440 env~;
#X obj 1022 463 dbtorms;
#X obj 1103 369 r \$0-slength;
#X obj 1078 391 *~, f 4;
#X obj 1078 440 *~;
#X obj 1078 463 throw~ \$0-rs_bus;
#X obj 1198 314 env~;
#X obj 1198 335 dbtorms;
#X floatatom 1198 356 5 0 0 0 - - - 0;
#X obj 1198 379 vsl 19 85 0 1 0 0 empty empty empty 0 -9 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1022 295 snake~ out, f 11;
#X obj 1022 365 phasor~, f 9;
#X obj 1022 249 r~ \$0-tet;
#X obj 1022 342 *~;
#X obj 1050 343 sel 1;
#X obj 28 415 tabread4~ \$0-rs_array;
#X obj 278 415 tabread4~ \$0-rs_array;
#X obj 528 415 tabread4~ \$0-rs_array;
#X obj 778 415 tabread4~ \$0-rs_array;
#X obj 1028 415 tabread4~ \$0-rs_array;
#X text 1020 33 Playback sample in original speed, f 17;
#X text 110 106 T (duration of original loop in samples), f 23;
#X text 112 175 τ (duration of metabar in samples), f 23;
#N canvas 744 88 591 621 stream_0 0;
#X obj 121 578 outlet~, f 8;
#X obj 12 33 r \$0-slength;
#X obj 12 131 /;
#X obj 22 104 t b f;
#X obj 22 81 r \$0-tmeta;
#X obj 119 196 *~;
#X obj 119 131 expr~ $v1+$v2;
#X obj 119 154 expr~ pow(2 \, $v1);
#X obj 12 57 expr $f1*ln(2);
#X obj 119 271 *~;
#X floatatom 12 154 13 0 0 0 - - - 0;
#X obj 12 177 sig~;
#X text 244 153 2^(te/τ)+v;
#X text 10 10 T*log2/τ;
#X text 16 258 Multiply with center rate, f 13;
#X obj 160 482 cos~;
#X obj 160 505 +~ 1;
#X obj 160 528 *~ 0.5;
#X obj 181 363 loadbang;
#X obj 181 387 expr 4*atan(1);
#X obj 181 411 t f f;
#X obj 181 435 * -1;
#X obj 160 460 clip~, f 8;
#X obj 160 290 expr~ $v1 / $v2;
#X obj 160 314 expr~ log($v1)/log(2);
#X text 167 386 π;
#X text 214 527 p(r) = 1/2 * (cos [π*b/2 * log2(r/rc)]/-π \, π/ + 1);
#X text 152 195 r(v \, te) = T*log2/τ * 2^(te/τ)+v;
#X obj 160 338 expr~ $v1*(4*atan(1)*$v2/2);
#X obj 346 314 sig~;
#X obj 346 290 r \$0-b;
#X obj 262 242 r \$0-rc;
#X obj 262 266 sig~;
#X obj 137 223 r \$0-rc;
#X obj 137 247 sig~;
#X obj 119 85 inlet~ te/τ;
#X obj 121 554 snake~;
#X obj 207 108 sig~ 0;
#X text 257 107 v (Stream level);
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 23 0;
#X connect 9 0 36 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 36 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 2;
#X connect 21 0 22 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 28 0 22 0;
#X connect 29 0 28 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 34 0 9 1;
#X connect 35 0 6 0;
#X connect 36 0 0 0;
#X connect 37 0 6 1;
#X restore 22 272 pd stream_0;
#N canvas 744 88 591 621 stream_2 0;
#X obj 121 578 outlet~, f 8;
#X obj 12 33 r \$0-slength;
#X obj 12 131 /;
#X obj 22 104 t b f;
#X obj 22 81 r \$0-tmeta;
#X obj 119 196 *~;
#X obj 119 131 expr~ $v1+$v2;
#X obj 119 154 expr~ pow(2 \, $v1);
#X obj 12 57 expr $f1*ln(2);
#X obj 119 271 *~;
#X floatatom 12 154 13 0 0 0 - - - 0;
#X obj 12 177 sig~;
#X text 244 153 2^(te/τ)+v;
#X text 10 10 T*log2/τ;
#X text 16 258 Multiply with center rate, f 13;
#X obj 160 482 cos~;
#X obj 160 505 +~ 1;
#X obj 160 528 *~ 0.5;
#X obj 181 363 loadbang;
#X obj 181 387 expr 4*atan(1);
#X obj 181 411 t f f;
#X obj 181 435 * -1;
#X obj 160 460 clip~, f 8;
#X obj 160 290 expr~ $v1 / $v2;
#X obj 160 314 expr~ log($v1)/log(2);
#X text 214 527 p(r) = 1/2 * (cos [π*b/2 * log2(r/rc)]/-π \, π/ + 1);
#X text 152 195 r(v \, te) = T*log2/τ * 2^(te/τ)+v;
#X obj 160 338 expr~ $v1*(4*atan(1)*$v2/2);
#X obj 346 314 sig~;
#X obj 346 290 r \$0-b;
#X obj 262 242 r \$0-rc;
#X obj 262 266 sig~;
#X obj 137 223 r \$0-rc;
#X obj 137 247 sig~;
#X obj 119 85 inlet~ te/τ;
#X obj 121 554 snake~;
#X obj 207 108 sig~ 2;
#X text 258 107 v (Stream level);
#X text 167 386 π;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 23 0;
#X connect 9 0 35 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 35 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 2;
#X connect 21 0 22 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 23 1;
#X connect 32 0 33 0;
#X connect 33 0 9 1;
#X connect 34 0 6 0;
#X connect 35 0 0 0;
#X connect 36 0 6 1;
#X restore 522 272 pd stream_2;
#N canvas 744 88 591 621 stream_3 0;
#X obj 121 578 outlet~, f 8;
#X obj 12 33 r \$0-slength;
#X obj 12 131 /;
#X obj 22 104 t b f;
#X obj 22 81 r \$0-tmeta;
#X obj 119 196 *~;
#X obj 119 131 expr~ $v1+$v2;
#X obj 119 154 expr~ pow(2 \, $v1);
#X obj 12 57 expr $f1*ln(2);
#X obj 119 271 *~;
#X floatatom 12 154 13 0 0 0 - - - 0;
#X obj 12 177 sig~;
#X text 244 153 2^(te/τ)+v;
#X text 10 10 T*log2/τ;
#X text 16 258 Multiply with center rate, f 13;
#X obj 160 482 cos~;
#X obj 160 505 +~ 1;
#X obj 160 528 *~ 0.5;
#X obj 181 363 loadbang;
#X obj 181 387 expr 4*atan(1);
#X obj 181 411 t f f;
#X obj 181 435 * -1;
#X obj 160 460 clip~, f 8;
#X obj 160 290 expr~ $v1 / $v2;
#X obj 160 314 expr~ log($v1)/log(2);
#X text 214 527 p(r) = 1/2 * (cos [π*b/2 * log2(r/rc)]/-π \, π/ + 1);
#X text 152 195 r(v \, te) = T*log2/τ * 2^(te/τ)+v;
#X obj 160 338 expr~ $v1*(4*atan(1)*$v2/2);
#X obj 346 314 sig~;
#X obj 346 290 r \$0-b;
#X obj 262 242 r \$0-rc;
#X obj 262 266 sig~;
#X obj 137 223 r \$0-rc;
#X obj 137 247 sig~;
#X obj 119 85 inlet~ te/τ;
#X obj 121 554 snake~;
#X obj 207 108 sig~ 3;
#X text 258 107 v (Stream level);
#X text 167 386 π;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 23 0;
#X connect 9 0 35 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 35 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 2;
#X connect 21 0 22 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 23 1;
#X connect 32 0 33 0;
#X connect 33 0 9 1;
#X connect 34 0 6 0;
#X connect 35 0 0 0;
#X connect 36 0 6 1;
#X restore 772 272 pd stream_3;
#N canvas 744 88 591 621 stream_4 0;
#X obj 121 578 outlet~, f 8;
#X obj 12 33 r \$0-slength;
#X obj 12 131 /;
#X obj 22 104 t b f;
#X obj 22 81 r \$0-tmeta;
#X obj 119 196 *~;
#X obj 119 131 expr~ $v1+$v2;
#X obj 119 154 expr~ pow(2 \, $v1);
#X obj 12 57 expr $f1*ln(2);
#X obj 119 271 *~;
#X floatatom 12 154 13 0 0 0 - - - 0;
#X obj 12 177 sig~;
#X text 244 153 2^(te/τ)+v;
#X text 10 10 T*log2/τ;
#X text 16 258 Multiply with center rate, f 13;
#X obj 160 482 cos~;
#X obj 160 505 +~ 1;
#X obj 160 528 *~ 0.5;
#X obj 181 363 loadbang;
#X obj 181 387 expr 4*atan(1);
#X obj 181 411 t f f;
#X obj 181 435 * -1;
#X obj 160 460 clip~, f 8;
#X obj 160 290 expr~ $v1 / $v2;
#X obj 160 314 expr~ log($v1)/log(2);
#X text 214 527 p(r) = 1/2 * (cos [π*b/2 * log2(r/rc)]/-π \, π/ + 1);
#X text 152 195 r(v \, te) = T*log2/τ * 2^(te/τ)+v;
#X obj 160 338 expr~ $v1*(4*atan(1)*$v2/2);
#X obj 346 314 sig~;
#X obj 346 290 r \$0-b;
#X obj 262 242 r \$0-rc;
#X obj 262 266 sig~;
#X obj 137 223 r \$0-rc;
#X obj 137 247 sig~;
#X obj 119 85 inlet~ te/τ;
#X obj 121 554 snake~;
#X obj 207 108 sig~ 4;
#X text 258 107 v (Stream level);
#X text 167 386 π;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 23 0;
#X connect 9 0 35 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 35 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 2;
#X connect 21 0 22 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 23 1;
#X connect 32 0 33 0;
#X connect 33 0 9 1;
#X connect 34 0 6 0;
#X connect 35 0 0 0;
#X connect 36 0 6 1;
#X restore 1022 272 pd stream_4;
#X obj 1150 153 tabread4~ \$0-rs_array;
#X obj 874 130 r \$0-srate;
#X obj 772 153 expr 1/$f1*$f2, f 15;
#X obj 772 130 r \$0-slength;
#X floatatom 772 176 13 0 0 0 - - - 12;
#X obj 772 198 s \$0-rc;
#X text 875 175 rc (center playback rate);
#X obj 325 130 loadbang;
#X msg 325 153 0.15;
#X obj 22 9 loadbang;
#X msg 22 33 4, f 1;
#N canvas 744 88 591 621 stream_1 0;
#X obj 121 578 outlet~, f 8;
#X obj 12 33 r \$0-slength;
#X obj 12 131 /;
#X obj 22 104 t b f;
#X obj 22 81 r \$0-tmeta;
#X obj 119 196 *~;
#X obj 119 131 expr~ $v1+$v2;
#X obj 119 154 expr~ pow(2 \, $v1);
#X obj 12 57 expr $f1*ln(2);
#X obj 119 271 *~;
#X floatatom 12 154 13 0 0 0 - - - 0;
#X obj 12 177 sig~;
#X text 244 153 2^(te/τ)+v;
#X text 10 10 T*log2/τ;
#X text 16 258 Multiply with center rate, f 13;
#X obj 160 482 cos~;
#X obj 160 505 +~ 1;
#X obj 160 528 *~ 0.5;
#X obj 181 363 loadbang;
#X obj 181 387 expr 4*atan(1);
#X obj 181 411 t f f;
#X obj 181 435 * -1;
#X obj 160 460 clip~, f 8;
#X obj 160 290 expr~ $v1 / $v2;
#X obj 160 314 expr~ log($v1)/log(2);
#X text 214 527 p(r) = 1/2 * (cos [π*b/2 * log2(r/rc)]/-π \, π/ + 1);
#X text 152 195 r(v \, te) = T*log2/τ * 2^(te/τ)+v;
#X obj 160 338 expr~ $v1*(4*atan(1)*$v2/2);
#X obj 346 314 sig~;
#X obj 346 290 r \$0-b;
#X obj 262 242 r \$0-rc;
#X obj 262 266 sig~;
#X obj 137 223 r \$0-rc;
#X obj 137 247 sig~;
#X obj 119 85 inlet~ te/τ;
#X obj 121 554 snake~;
#X text 257 107 v (Stream level);
#X obj 207 108 sig~ 1;
#X text 167 386 π;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 23 0;
#X connect 9 0 35 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 35 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 2;
#X connect 21 0 22 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 23 1;
#X connect 32 0 33 0;
#X connect 33 0 9 1;
#X connect 34 0 6 0;
#X connect 35 0 0 0;
#X connect 37 0 6 1;
#X restore 272 272 pd stream_1;
#X text 51 56 Metabar duration factor \, e.g. τ = T * 4, f 46;
#X obj 580 9 inlet playback;
#X obj 40 319 r \$0-rares;
#X obj 290 319 r \$0-rares;
#X obj 540 319 r \$0-rares;
#X obj 790 319 r \$0-rares;
#X obj 1040 319 r \$0-rares;
#X obj 615 130 s \$0-rares;
#X obj 580 106 f, f 2;
#X obj 602 106 t b f;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 4 0 1 0;
#X connect 4 1 1 1;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 29 0;
#X connect 11 0 12 1;
#X connect 12 0 117 0;
#X connect 13 0 14 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 20 0;
#X connect 34 0 35 1;
#X connect 35 0 129 0;
#X connect 36 0 42 0;
#X connect 37 0 39 1;
#X connect 38 0 35 0;
#X connect 39 0 38 0;
#X connect 40 0 39 0;
#X connect 40 0 41 0;
#X connect 41 1 38 1;
#X connect 43 0 46 0;
#X connect 44 0 46 1;
#X connect 45 0 150 0;
#X connect 46 0 45 0;
#X connect 47 0 51 0;
#X connect 49 0 47 0;
#X connect 50 1 47 1;
#X connect 52 0 55 0;
#X connect 52 1 13 1;
#X connect 52 1 15 0;
#X connect 53 0 12 0;
#X connect 53 0 9 0;
#X connect 54 0 125 0;
#X connect 55 0 53 0;
#X connect 56 1 53 1;
#X connect 57 0 58 0;
#X connect 58 0 30 0;
#X connect 59 0 60 1;
#X connect 60 0 118 0;
#X connect 61 0 62 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 67 0 70 0;
#X connect 67 1 61 1;
#X connect 67 1 63 0;
#X connect 68 0 60 0;
#X connect 68 0 57 0;
#X connect 69 0 140 0;
#X connect 70 0 68 0;
#X connect 71 1 68 1;
#X connect 72 0 73 0;
#X connect 73 0 31 0;
#X connect 74 0 75 1;
#X connect 75 0 119 0;
#X connect 76 0 77 0;
#X connect 78 0 79 0;
#X connect 79 0 80 0;
#X connect 80 0 81 0;
#X connect 82 0 85 0;
#X connect 82 1 76 1;
#X connect 82 1 78 0;
#X connect 83 0 75 0;
#X connect 83 0 72 0;
#X connect 84 0 126 0;
#X connect 85 0 83 0;
#X connect 86 1 83 1;
#X connect 87 0 88 0;
#X connect 88 0 32 0;
#X connect 89 0 90 1;
#X connect 90 0 120 0;
#X connect 91 0 92 0;
#X connect 93 0 94 0;
#X connect 94 0 95 0;
#X connect 95 0 96 0;
#X connect 97 0 100 0;
#X connect 97 1 91 1;
#X connect 97 1 93 0;
#X connect 98 0 90 0;
#X connect 98 0 87 0;
#X connect 99 0 127 0;
#X connect 100 0 98 0;
#X connect 101 1 98 1;
#X connect 102 0 103 0;
#X connect 103 0 33 0;
#X connect 104 0 105 1;
#X connect 105 0 121 0;
#X connect 106 0 107 0;
#X connect 108 0 109 0;
#X connect 109 0 110 0;
#X connect 110 0 111 0;
#X connect 112 0 115 0;
#X connect 112 1 106 1;
#X connect 112 1 108 0;
#X connect 113 0 105 0;
#X connect 113 0 102 0;
#X connect 114 0 128 0;
#X connect 115 0 113 0;
#X connect 116 1 113 1;
#X connect 117 0 13 0;
#X connect 118 0 61 0;
#X connect 119 0 76 0;
#X connect 120 0 91 0;
#X connect 121 0 106 0;
#X connect 125 0 52 0;
#X connect 126 0 82 0;
#X connect 127 0 97 0;
#X connect 128 0 112 0;
#X connect 129 0 36 0;
#X connect 130 0 131 1;
#X connect 131 0 133 0;
#X connect 132 0 131 0;
#X connect 133 0 134 0;
#X connect 136 0 137 0;
#X connect 137 0 7 0;
#X connect 138 0 139 0;
#X connect 139 0 2 0;
#X connect 140 0 67 0;
#X connect 142 0 50 0;
#X connect 142 0 148 0;
#X connect 142 0 149 0;
#X connect 143 0 55 1;
#X connect 143 0 56 0;
#X connect 144 0 70 1;
#X connect 144 0 71 0;
#X connect 145 0 85 1;
#X connect 145 0 86 0;
#X connect 146 0 100 1;
#X connect 146 0 101 0;
#X connect 147 0 115 1;
#X connect 147 0 116 0;
#X connect 149 0 49 0;
#X connect 150 0 149 0;
#X connect 150 1 49 1;
#X restore 20 245 pd sampleplayer;
#N canvas 92 169 454 284 master 0;
#X obj 179 222 dac~, f 5;
#X obj 331 123 vsl 15 65 0 1 0 0 \$0-mainvol \$0-mainvolinit VOL 0 -8 0 8 #fcfcfc #000000 #000000 0 1;
#X obj 13 20 loadbang;
#X obj 308 121 tgl 15 0 \$0-dac \$0-dacinit DAC 0 -6 0 8 #00ff04 #000000 #000000 0 1;
#X msg 13 146 \; pd dsp \$1;
#X obj 356 109 vu 15 80 \$0-vul empty -1 -8 0 10 #404040 #000000 0 0;
#X obj 379 109 vu 15 80 \$0-vur empty -1 -8 0 8 #404040 #000000 1 0;
#X obj 378 43 env~;
#X obj 13 123 r \$0-dac;
#X obj 13 43 f \$0;
#X obj 197 66 r \$0-mainvol;
#X obj 179 138 *~;
#X obj 223 202 s~ \$0-ar;
#X obj 378 20 r~ \$0-ar;
#X obj 179 43 expr~ atan($v1);
#X obj 197 90 sig~;
#X obj 197 114 lop~ 1;
#X obj 308 148 bng 15 250 50 0 \$0-mute \$0-muteinit Mute 0 -6 0 8 #fcfcfc #000000 #000000;
#X obj 13 189 r \$0-mute;
#X obj 13 212 f \$0;
#X msg 13 235 \; \$1-mainvolinit 0;
#X obj 179 160 clip~ -1 1;
#X obj 179 183 hip~ 5;
#X msg 13 66 \; \$1-dacinit 0 \; \$1-mainvolinit 0.7;
#X obj 179 20 catch~ \$0-rs_bus;
#X obj 378 66 - 100;
#X connect 2 0 9 0;
#X connect 7 0 25 0;
#X connect 8 0 4 0;
#X connect 9 0 23 0;
#X connect 10 0 15 0;
#X connect 11 0 21 0;
#X connect 13 0 7 0;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 16 0 11 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 22 0;
#X connect 22 0 0 1;
#X connect 22 0 12 0;
#X connect 22 0 0 0;
#X connect 24 0 14 0;
#X connect 25 0 6 0;
#X connect 25 0 5 0;
#X coords 0 -1 1 1 125 100 2 300 100;
#X restore 20 284 pd master;
#X obj 306 197 bng 19 250 50 0 empty empty empty 0 -10 0 12 #9f9f9f #000000 #000000;
#N canvas 266 304 738 191 paper 0;
#X obj 11 13 inlet;
#X obj 276 154 pdcontrol;
#X msg 276 85 browse https://www.semanticscholar.org/paper/Scheduling-and-composing-with-Risset-eternal-Stowell/df6a5bf9566d609b120fe06cd7c2541f6aea453c;
#X msg 11 37 dir;
#X obj 11 61 pdcontrol;
#X msg 11 85 browse \$1/assets/Stowell2011icmc.pdf;
#X text 274 60 Click below to open online resource.;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X restore 306 220 pd paper;
#X text 302 95 Risset Sampler is an implementation of Risset eternal accelerando rhythms for audio samples described by Dan Stowell in his 2011 paper "SCHEDULING AND COMPOSING WITH RISSET ETERNAL ACCELERANDO RHYTHMS", f 35;
#X text 328 196 <-- click to open paper;
#N canvas 688 330 387 394 sampleloader 0;
#X obj 18 39 openpanel;
#X obj 18 314 soundfiler, f 14;
#X obj 113 336 unpack f;
#X obj 18 68 pack s f, f 11;
#X obj 18 359 s \$0-slength;
#X obj 134 14 loadbang;
#X obj 92 39 f \$0;
#X obj 33 93 unpack s;
#X obj 113 359 s \$0-srate;
#X obj 65 162 list length;
#X floatatom 65 186 5 0 0 0 - - - 0;
#X obj 33 139 t l l;
#X obj 33 116 file split;
#X obj 33 233 list split;
#X obj 65 209 - 1;
#X obj 66 257 s \$0-filename;
#X msg 18 289 read -resize \$1 \$2-rs_array;
#X msg 134 39 symbol ./assets/MystiqueBreak.wav;
#X obj 18 14 inlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 1 1 2 0;
#X connect 2 0 8 0;
#X connect 3 0 16 0;
#X connect 3 0 7 0;
#X connect 5 0 6 0;
#X connect 5 0 17 0;
#X connect 6 0 3 1;
#X connect 7 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 13 0;
#X connect 11 1 9 0;
#X connect 12 0 11 0;
#X connect 13 1 15 0;
#X connect 14 0 13 1;
#X connect 16 0 1 0;
#X connect 17 0 3 0;
#X connect 18 0 0 0;
#X restore 20 53 pd sampleloader;
#X text 43 29 <-- load audio sample;
#X obj 20 30 bng 19 250 50 0 empty empty empty 0 -10 0 12 #9f9f9f #000000 #000000;
#X obj 20 221 tgl 19 0 empty empty empty 0 -10 0 12 #9f9f9f #ffffff #000000 0 1;
#X text 43 220 <-- playback risset rhythm;
#X text 372 260 Martin Heinze. 08.09.2024;
#X connect 4 0 5 0;
#X connect 10 0 8 0;
#X connect 11 0 2 0;