#N canvas 160 23 313 153 10; #X obj -4 -985 cnv 15 310 150 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 17 -965 bng 25 250 50 0 start none Start_Recording 30 12 0 14 -258113 -1 -1; #X obj 17 -935 bng 25 250 50 0 stop none Stop_Recording 30 12 0 14 -258113 -1 -1; #X obj 187 -875 bng 25 250 50 0 reverse none Reverse 30 12 0 14 -4032 -1 -1; #X obj 17 -905 bng 25 250 50 0 playonce none Play_Once 30 12 0 14 -4034 -1 -1; #X obj 17 -875 tgl 25 0 play loopr Loop 30 12 0 14 -257985 -1 -1 0 1; #N canvas 551 23 633 473 guts 0; #X obj 106 -895 writesf~; #X msg 106 -935 start; #X msg 209 -931 stop; #X obj 319 -842 soundfiler; #X obj 217 -773 tabplay~ temp\$0; #N canvas 207 153 616 406 reverse 0; #X obj 50 89 bng 15 250 50 0 empty empty Reverse_me 18 7 0 8 -262144 -1 -1; #X obj 50 180 until; #X obj 82 208 + 1; #X obj 50 208 f; #X obj 50 132 t f f f; #X obj 450 31 sel; #X obj 480 14 - 1; #X obj 50 234 t f f f; #X obj 450 103 until; #X obj 450 78 f; #X obj 450 136 f; #X obj 482 136 - 1; #X obj 537 212 f; #X obj 537 234 mod; #X obj 567 212 + 1; #X obj 450 161 t f b; #X obj 501 106 - 1; #X text 68 306 Copies array to a temporary location.; #X msg 267 104 0; #X obj 50 22 inlet; #X obj 401 233 sel 0; #X obj 401 255 outlet; #X msg 174 152 resize \$1; #X obj 306 304 table tempArray\$0; #X obj 69 282 tabwrite tempArray\$0; #X obj 69 258 tabread temp\$0; #X obj 174 176 s tempArray\$0; #X obj 50 108 arraysize temp\$0; #X obj 450 188 tabread tempArray\$0; #X obj 450 256 tabwrite temp\$0; #X text 58 370 This is from Guitar Extended \, Pierre Massat \, Thanks Pal; #X connect 0 0 18 0; #X connect 0 0 27 0; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 3 0 2 0; #X connect 3 0 7 0; #X connect 4 0 1 0; #X connect 4 1 6 0; #X connect 4 1 9 1; #X connect 4 1 16 0; #X connect 4 1 12 1; #X connect 4 1 13 1; #X connect 4 2 22 0; #X connect 5 0 9 0; #X connect 6 0 5 1; #X connect 7 0 5 0; #X connect 7 1 25 0; #X connect 7 2 24 1; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 10 0 15 0; #X connect 11 0 10 1; #X connect 12 0 13 0; #X connect 12 0 14 0; #X connect 13 0 29 1; #X connect 14 0 12 1; #X connect 15 0 20 0; #X connect 15 0 28 0; #X connect 15 1 12 0; #X connect 16 0 10 1; #X connect 18 0 10 1; #X connect 18 0 3 1; #X connect 19 0 0 0; #X connect 20 0 21 0; #X connect 22 0 26 0; #X connect 25 0 24 0; #X connect 27 0 4 0; #X connect 28 0 29 0; #X restore 469 -999 pd reverse; #X msg 421 -790 stop; #X msg 217 -803 bang; #X obj 435 -754 table temp\$0; #X obj 50 -728 dac~; #X obj 319 -820 t b; #X obj 50 -1040 adc~; #X obj 106 -1033 r start; #X obj 209 -956 r stop; #X obj 147 -810 r playonce; #X msg 147 -790 bang; #X obj 50 -782 *~ 1; #X obj 106 -756 *~ 1; #X obj 218 -743 tabplay~ temp\$0; #X msg 359 -742 stop; #X obj 217 -828 sel 1; #X obj 217 -854 r play; #X obj 166 -682 s loopr; #X msg 166 -701 0; #X obj 444 -676 \$0; #X msg 444 -648 \; temp\$1 const 0; #X obj 444 -699 r clear; #X obj 469 -1020 r reverse; #X obj 106 -984 + 1; #X obj 106 -1009 f; #X msg 106 -959 open loop\$1.wav; #X obj 319 -890 pack f f; #X msg 319 -866 read -resize loop\$2.wav temp\$1; #X obj 319 -914 \$0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 10 0; #X connect 4 0 17 0; #X connect 4 1 7 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 11 0 0 0; #X connect 11 1 0 0; #X connect 12 0 29 0; #X connect 13 0 2 0; #X connect 13 0 33 0; #X connect 14 0 15 0; #X connect 14 0 23 0; #X connect 15 0 18 0; #X connect 15 0 6 0; #X connect 16 0 9 0; #X connect 16 0 9 1; #X connect 17 0 0 0; #X connect 17 0 16 0; #X connect 18 0 17 0; #X connect 19 0 18 0; #X connect 20 0 19 0; #X connect 20 0 7 0; #X connect 20 1 6 0; #X connect 21 0 20 0; #X connect 23 0 22 0; #X connect 24 0 25 0; #X connect 26 0 24 0; #X connect 27 0 5 0; #X connect 28 0 29 1; #X connect 28 0 30 0; #X connect 28 0 31 1; #X connect 29 0 28 0; #X connect 30 0 0 0; #X connect 30 0 1 0; #X connect 31 0 32 0; #X connect 32 0 3 0; #X connect 33 0 31 0; #X restore 207 -966 pd guts; #X obj 187 -905 bng 25 250 50 0 clear none Clear 30 12 0 14 -159808 -1 -1;