SIMPLE AUDIO RECORDER FOR pd

#N canvas 1422 194 831 453 10;
#X text 36 31 object to write a signal in an array;
#X msg 43 131 bang;
#X obj 23 211 tabwrite~ array99;
#N canvas 0 0 450 300 graph1 0;
#X array array99 441000 float 0;
#X coords 0 1 440999 -1 150 100 1;
#X restore 831 26 graph;
#X text 149 213 creation argument initializes array name;
#X msg 86 177 set array99;
#X msg 507 114 \; pd dsp 1;
#X msg 576 114 \; pd dsp 0;
#X text 85 133 bang to start recording;
#X text 165 173 set the destination array;
#X msg 43 153 stop;
#X text 85 154 stop recording;
#X obj 15 82 adc~;
#X floatatom 425 273 0 0 0 0 - - -;
#X text 542 159 creation argument initializes array name;
#X obj 425 159 tabplay~ array99;
#X obj 425 247 env~ 16384;
#X obj 501 254 *~;
#X obj 514 235 line~;
#X msg 514 194 0.1 100;
#X msg 530 215 0 100;
#X text 576 195 on;
#X text 571 214 off;
#X text 562 232 envelope;
#X text 562 243 generator;
#X text 515 179 amplitude controls:;
#X text 545 293 audio output;
#X obj 501 273 hip~ 5;
#X msg 421 130 bang;
#X text 396 26 The tabplay~ object plays a sample \, or part of one
\, with no transposition or interpolation. It is cheaper than tabread4~
and there are none of tabread4~'s interpolation artifacts.;
#X obj 501 305 dac~;
#X text 419 106 TABLE PLAYER;
#X text 418 288;
#X text 60 81 <---------RECORD FROM ANOTHER SOURCE;
#X connect 1 0 2 0;
#X connect 5 0 2 0;
#X connect 10 0 2 0;
#X connect 12 0 2 0;
#X connect 12 1 2 0;
#X connect 15 0 16 0;
#X connect 15 0 17 0;
#X connect 16 0 13 0;
#X connect 17 0 27 0;
#X connect 18 0 17 1;
#X connect 19 0 18 0;
#X connect 20 0 18 0;
#X connect 27 0 30 0;
#X connect 27 0 30 1;
#X connect 28 0 15 0;