#N canvas 179 297 728 409 12; #X msg 34 109 connect localhost 5000; #X obj 49 346 netsend 1; #X text 2 250 gmt should reply to this message by sending a unique wavefile name to given port; #X msg 373 129 open \$1; #X floatatom 49 367 5 0 0 0 - - -; #X msg 259 54 disconnect; #X obj 524 9 tgl 25 0 empty vz_mon_val record 0 -6 64 8 -195568 -258699 -62784 0 1; #X obj 524 43 select 0 1; #X obj 88 133 r samplenamerequest; #X msg 524 94 \; samplenamerequest bang; #X msg 524 68 stop; #X msg 567 69 start; #X text 7 -3 at loadbang and after recording a sound we send a message to gmt to request a new filename.; #X text 9 -16 if sound is on (@patch inputmon.pds) it should be recorded ; #X obj 373 78 netreceive 6000 1; #X obj 373 103 unpack s s; #X obj 459 270 writesf~ 2; #X obj 458 124 nbx 5 14 -1e+037 1e+037 0 1 tresh mtresh TRESHOLD 0 -6 192 10 -261689 -1 -258699 60 256; #X msg 89 85 send YOUMAYSEND 0; #X obj 34 38 loadbang; #X obj 204 184 r inputfreq; #X obj 89 206 pack s s 6000 f; #X msg 89 181 symbol send; #X msg 128 156 symbol REQUESTSAMPLENAME; #X obj 88 163 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 91 231 \$1 \$2 \$3 \$4; #X obj 89 61 metro 40; #X obj 459 145 inputmon _; #N canvas 724 232 564 682 doublebuffer 0; #X obj 33 277 inlet~; #X obj 87 279 inlet~; #X obj 35 505 tabwrite~; #N canvas 0 0 452 302 graph1 0; #X array buf1 88200 float 0; #X coords 0 1 88199 -1 200 140 1; #X restore 309 22 graph; #N canvas 0 0 450 300 graph2 0; #X array buf2 88200 float 0; #X coords 0 1 88199 -1 200 140 1; #X restore 310 174 graph; #X msg 26 102 set buf1; #X obj 19 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 19 76 select 0 1; #X obj 19 125 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 66 128 set buf2; #X obj 56 161 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 213 -81 inlet; #X obj 215 -33 switch~; #X obj 218 -58 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 201 -136 loadbang; #X msg 203 -109 0; #X msg 12 183 \; readbuffer buf2; #X msg 65 227 \; readbuffer buf1; #X obj 153 285 catch~ strgran; #X obj 19 30 metro 2010; #X obj 42 387 delwrite~ \$0-dl 2000; #X obj 42 410 delread~ \$0-dl 2000; #X obj 89 338 compressor~ 0.5; #X obj 84 469 compressor~ 0.5; #X obj 64 435 *~ 0.6; #X msg 50 -18 0; #X text 39 61 < DEBUGCUT!! - maybe cut metro?; #X obj 191 511 delwrite~ test 1000; #X obj 298 343 env~; #X floatatom 314 406 5 0 0 0 - - -; #X obj 87 312 *~ 4; #X connect 0 0 30 0; #X connect 1 0 30 0; #X connect 5 0 8 0; #X connect 5 0 2 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X connect 7 1 9 0; #X connect 8 0 2 0; #X connect 9 0 10 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 13 0; #X connect 13 0 12 0; #X connect 13 0 19 0; #X connect 14 0 15 0; #X connect 15 0 12 0; #X connect 18 0 23 0; #X connect 19 0 6 0; #X connect 21 0 24 0; #X connect 22 0 20 0; #X connect 22 0 23 0; #X connect 23 0 2 0; #X connect 23 0 27 0; #X connect 23 0 28 0; #X connect 24 0 23 0; #X connect 24 0 20 0; #X connect 25 0 19 0; #X connect 28 0 29 0; #X connect 30 0 22 0; #X restore 471 175 pd doublebuffer; #X obj 583 151 r doubbufinp; #X obj 138 282 r samplerec; #X obj 96 323 spigot; #X obj 139 305 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 522 206 r samplerec; #X obj 479 248 spigot; #X obj 522 230 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 457 316 s~ leftin; #X obj 555 317 s~ rightin; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 3 0 16 0; #X connect 5 0 1 0; #X connect 6 0 7 0; #X connect 7 0 10 0; #X connect 7 1 11 0; #X connect 8 0 24 0; #X connect 10 0 9 0; #X connect 10 0 34 0; #X connect 11 0 34 0; #X connect 14 0 15 0; #X connect 15 0 3 0; #X connect 17 0 27 0; #X connect 18 0 1 0; #X connect 19 0 23 0; #X connect 19 0 26 0; #X connect 19 0 0 0; #X connect 20 0 21 3; #X connect 21 0 25 0; #X connect 22 0 21 0; #X connect 23 0 21 1; #X connect 24 0 22 0; #X connect 25 0 31 0; #X connect 26 0 18 0; #X connect 27 0 16 0; #X connect 27 0 28 0; #X connect 27 0 36 0; #X connect 27 1 16 1; #X connect 27 1 28 1; #X connect 27 1 37 0; #X connect 29 0 28 2; #X connect 30 0 32 0; #X connect 31 0 1 0; #X connect 32 0 31 1; #X connect 33 0 35 0; #X connect 34 0 16 0; #X connect 35 0 34 1;