1 files changed, 79 insertions, 109 deletions

diff --git a/voicing_detector~/help-voicing_detector~.pd b/voicing_detector~/help-voicing_detector~.pd
index c5028ac..6faed88 100644
--- a/voicing_detector~/help-voicing_detector~.pd
+++ b/voicing_detector~/help-voicing_detector~.pd
@@ -1,115 +1,85 @@
-#N canvas 0 22 725 399 10;
-#N canvas 0 22 462 312 voicing_detect 0;
-#X obj 89 148 voicing_detector~;
-#X obj 329 147 block~ 1024;
-#X obj 89 91 inlet~;
-#X obj 203 93 inlet;
-#X obj 88 194 outlet;
-#X msg 233 120 bound \$1 \$2;
-#X msg 341 124 method \$1;
-#X obj 273 76 t b f;
-#X obj 254 104 pack 60 500;
-#X obj 255 45 inlet;
-#X obj 297 45 inlet;
-#X text 258 12 frequency;
-#X text 255 25 constraints;
-#X obj 341 93 inlet;
-#X obj 341 109 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
-1;
-#X text 341 57 0=avg-mag;
-#X text 341 70 1=mag-diff;
-#X connect 0 0 4 0;
-#X connect 2 0 0 0;
+#N canvas 0 0 510 323 10;
+#N canvas 119 189 450 300 voxdetect 0;
+#X obj 150 156 voicing_detector~;
+#X obj 150 99 inlet~;
+#X obj 307 124 block~ 1024;
+#X obj 264 95 inlet;
+#X obj 220 209 outlet~;
+#X obj 150 238 outlet;
+#X text 81 195 1=voiced;
+#X text 81 214 0=unvoiced;
+#X text 262 76 threshold (0-100);
+#X connect 0 0 5 0;
+#X connect 1 0 0 0;
+#X connect 1 0 4 0;
 #X connect 3 0 0 1;
-#X connect 5 0 0 0;
-#X connect 6 0 0 0;
-#X connect 7 0 8 0;
-#X connect 7 1 8 1;
-#X connect 8 0 5 0;
-#X connect 9 0 8 0;
-#X connect 10 0 7 0;
-#X connect 13 0 14 0;
-#X connect 14 0 6 0;
-#X restore 106 203 pd voicing_detect;
-#N canvas 0 22 555 302 playload 0;
-#X obj 28 132 tabplay~ testinput;
-#X obj 28 180 outlet~;
-#X obj 27 78 inlet;
-#X obj 177 74 inlet;
-#X obj 177 105 openpanel;
-#X msg 264 150 read -resize ../sound/voice.wav testinput;
-#X obj 177 139 soundfiler;
-#X msg 177 122 read -resize \$1 testinput;
-#X obj 360 134 loadbang;
-#X connect 0 0 1 0;
+#X restore 96 199 pd voxdetect;
+#X obj 139 71 bng 15 250 50 0 empty empty load-voice -38 -6 0 8 -262144
+-1 -1;
+#N canvas 0 0 450 300 play 0;
+#X obj 82 157 tabplay~ voice;
+#X obj 190 66 inlet;
+#X obj 53 67 inlet;
+#X obj 111 66 inlet;
+#X obj 48 140 metro;
+#X obj 84 196 outlet~;
+#X connect 0 0 5 0;
+#X connect 1 0 4 1;
 #X connect 2 0 0 0;
 #X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X restore 95 139 pd play;
+#X obj 95 115 bng 15 250 50 0 empty empty play 0 -6 0 8 -262144 -1
+-1;
+#X obj 117 102 tgl 15 0 empty empty loop 0 -6 0 8 -262144 -1 -1 0 1
+;
+#N canvas 0 0 450 300 load 0;
+#X obj 77 135 soundfiler;
+#X obj 77 169 outlet;
+#X obj 161 101 loadbang;
+#X obj 80 84 openpanel;
+#X obj 80 27 inlet;
+#X msg 8 101 read -resize \$1 voice;
+#X obj 77 152 / 44.1;
+#X obj 114 47 samplerate~;
+#X obj 114 64 / 1000;
+#X msg 77 118 read -resize beauty.wav voice;
+#X connect 0 0 6 0;
+#X connect 2 0 9 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
 #X connect 4 0 7 0;
-#X connect 5 0 6 0;
-#X connect 7 0 6 0;
-#X connect 8 0 5 0;
-#X restore 106 64 pd playload;
-#X msg 178 41 bang;
-#X text 210 40 load file;
-#N canvas 0 0 450 300 graph1 0;
-#X array testinput 1.31596e+06 float 0;
-#X coords 0 1 1.31596e+06 -1 300 100 1;
-#X restore 402 28 graph;
-#N canvas 0 22 454 304 graph1 0;
-#X array voicing 300 float 0;
-#X coords 0 1.1 299 -0.1 300 50 1;
-#X restore 402 130 graph;
-#N canvas 0 22 454 304 graphit 1;
-#X obj 105 53 inlet;
-#X obj 132 153 count 300;
-#X obj 104 82 t f b;
-#X obj 161 53 inlet;
-#X obj 104 187 tabwrite voicing;
-#X connect 0 0 2 0;
-#X connect 1 0 4 1;
-#X connect 2 0 4 0;
-#X connect 2 1 1 0;
-#X connect 3 0 1 1;
-#X restore 107 274 pd graphit;
-#X text 133 321 AMDF Voicing Detector - uses the difference between
-the average and the magnitude of an autocorrelation function to determine
-whether speech is voiced or not.;
-#X text 130 367 (C) 2005 Edward Kelly and Nicolas Chetry;
-#X msg 105 23 bang;
-#X text 141 20 play file;
-#X obj 139 91 adc~;
-#X floatatom 204 114 5 0 0 1 threshold - -;
-#X msg 204 98 20;
-#X obj 204 82 loadbang;
-#X obj 139 114 *~ 0;
-#X obj 179 95 tgl 15 0 empty empty mic 0 -6 0 8 -262144 -1 -1 0 1;
-#X floatatom 106 237 5 0 0 0 - - -;
-#X text 42 228 voiced/;
-#X text 35 241 unvoiced;
-#X floatatom 179 163 5 0 0 0 - - -;
-#X floatatom 220 163 5 0 0 1 constraints - -;
-#X msg 186 139 60;
-#X msg 223 139 500;
-#X text 273 173 (Hz);
-#X obj 250 204 tgl 15 0 empty empty method 0 -6 0 8 -262144 -1 -1 0
-1;
-#X obj 262 141 loadbang;
-#X connect 0 0 17 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 1;
-#X connect 9 0 1 0;
-#X connect 9 0 6 1;
-#X connect 11 0 15 0;
-#X connect 12 0 0 1;
-#X connect 13 0 12 0;
+#X connect 5 0 0 0;
+#X connect 6 0 1 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 1;
+#X connect 9 0 0 0;
+#X restore 139 86 pd load;
+#N canvas 0 0 450 300 graph2 0;
+#X array voice 1.31596e+06 float 0;
+#X coords 0 1 1.31596e+06 -1 100 70 1;
+#X restore 281 55 graph;
+#X floatatom 96 234 5 0 0 0 - - -;
+#X obj 166 233 dac~;
+#X obj 217 44 vsl 15 101 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 3700 1;
+#X floatatom 193 168 5 0 0 0 - - -;
+#X text 79 253 The voicing detector estimates whether a frame of speech
+is voiced (uses the vocal chords) or unvoiced (does not).;
+#X text 128 288 (Gnu) Edward Kelly and Nicolas Chetry 2005;
+#X msg 15 131 \; pd dsp \$1;
+#X obj 15 102 tgl 15 0 empty empty audio_on 0 -6 0 8 -262144 -1 -1
+0 1;
+#X obj 124 162 adc~;
+#X connect 0 0 7 0;
+#X connect 0 1 8 0;
+#X connect 0 1 8 1;
+#X connect 1 0 5 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 1;
+#X connect 5 0 2 2;
+#X connect 9 0 10 0;
+#X connect 10 0 0 1;
 #X connect 14 0 13 0;
 #X connect 15 0 0 0;
-#X connect 16 0 15 1;
-#X connect 17 0 6 0;
-#X connect 20 0 0 2;
-#X connect 21 0 0 3;
-#X connect 22 0 20 0;
-#X connect 23 0 21 0;
-#X connect 25 0 0 4;
-#X connect 26 0 23 0;
-#X connect 26 0 22 0;