#N canvas 298 82 155 84 10;
#X obj 4 230 tabwrite~ \$0-table;
#X obj 4 266 table \$0-table \$1;
#X text 5 83 \$1 = length in samples;
#X obj 4 104 inlet~ signal;
#X obj 274 407 tabread4~ \$0-table;
#X obj 274 326 *~ \$1;
#X obj 273 300 phasor~;
#X obj 273 271 expr 1/$f1;
#X obj 273 124 f \$1;
#X obj 273 148 / 44100;
#X obj 273 97 loadbang;
#X obj 274 352 +~ 1;
#X obj 274 490 outlet~;
#X obj 2 22 tgl 20 0 \$0-s_ctrl_rec \$0-r_ctrl_rec REC 3 10 0 10 -66577
-258699 -262144 0 1;
#X obj 110 128 sel 0 1;
#X text 329 135 get length (secs);
#X msg 132 155 bang;
#X msg 93 155 stop;
#X obj 132 204 delay;
#X obj 162 182 * 1000;
#X obj 110 102 r \$0-s_ctrl_rec;
#X obj 132 284 s \$0-r_ctrl_rec;
#X msg 377 271 0;
#X obj 48 25 hsl 100 12 0 441000 0 0 \$0-s_ctrl_playhead \$0-r_ctrl_playhead
Playhead 10 6 0 10 -66577 -258699 -262144 691 1;
#X msg 338 97 bang;
#X obj 2 62 nbx 5 14 -1e+37 1e+37 0 0 \$0-s_ctrl_speed \$0-r_ctrl_speed
play_length 0 -6 0 10 -66577 -195568 -1 10 256;
#X obj 72 62 bng 15 250 50 0 \$0-s_ctrl_reset \$0-r_ctrl_reset reset
0 -6 0 10 -66577 -195568 -1;
#N canvas 0 0 450 300 playhead_control 0;
#X obj 134 127 s \$0-r_ctrl_playhead;
#X obj 134 103 snapshot~;
#X obj 134 79 metro 10;
#X obj 134 55 loadbang;
#X msg 199 55 bang;
#X obj 18 52 inlet~ signal;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X restore 298 384 pd playhead_control;
#N canvas 0 0 450 300 speed_control 0;
#X obj 44 28 inlet length_secs;
#X obj 44 186 outlet length_secs;
#X obj 76 118 s \$0-r_ctrl_speed;
#X obj 76 90 f;
#X obj 108 146 r \$0-s_ctrl_speed;
#X obj 104 65 r \$0-s_ctrl_reset;
#X obj 65 146 sel 0;
#X connect 0 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 6 1 1 0;
#X restore 297 212 pd speed_control;
#N canvas 0 0 450 300 defaults 0;
#X obj 20 12 loadbang;
#X obj 20 97 s \$0-r_ctrl_env;
#X msg 20 72 20;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 11 298 pd defaults;
#N canvas 520 265 450 398 envelope 0;
#X obj 28 265 outlet~;
#X obj 29 14 inlet~ phasor;
#X obj 28 178 threshold~;
#X obj 57 44 r \$0-s_ctrl_env;
#X obj 28 239 line~;
#X obj 28 213 pack 0 f;
#X obj 93 213 pack 1 f;
#X obj 57 94 expr 1-$f1;
#X msg 57 153 set \$1 0 \$2 0;
#X obj 57 124 pack f f;
#X obj 168 203 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 192 203 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 117 176 0;
#X msg 149 176 1;
#X obj 57 68 / 4410;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 0 10 0;
#X connect 2 1 6 0;
#X connect 2 1 11 0;
#X connect 3 0 6 1;
#X connect 3 0 5 1;
#X connect 3 0 14 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 9 0;
#X connect 8 0 2 0;
#X connect 9 0 8 0;
#X connect 12 0 2 1;
#X connect 13 0 2 1;
#X connect 14 0 7 0;
#X connect 14 0 9 1;
#X restore 296 432 pd envelope;
#X obj 274 456 *~;
#X obj 106 63 nbx 3 14 0 1e+37 0 0 \$0-s_ctrl_env \$0-r_ctrl_env window
0 -6 0 10 -66577 -166441 -1 20 256;
#X obj 141 248 s \$0-r_ctrl_env;
#X obj 393 98 inlet b_synch;
#X connect 3 0 0 0;
#X connect 4 0 31 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 6 0 30 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 9 0 19 0;
#X connect 9 0 28 0;
#X connect 10 0 8 0;
#X connect 11 0 4 0;
#X connect 11 0 27 0;
#X connect 14 0 17 0;
#X connect 14 1 16 0;
#X connect 14 1 22 0;
#X connect 16 0 0 0;
#X connect 16 0 18 0;
#X connect 17 0 0 0;
#X connect 18 0 21 0;
#X connect 18 0 22 0;
#X connect 18 0 33 0;
#X connect 19 0 18 1;
#X connect 20 0 14 0;
#X connect 22 0 6 1;
#X connect 24 0 8 0;
#X connect 28 0 7 0;
#X connect 30 0 31 1;
#X connect 31 0 12 0;
#X connect 34 0 22 0;
#X coords 0 0 1 1 175 65 1;