blob: c5028acea7e67f2ba9c6531576aedd22283518a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#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;
#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 connect 2 0 0 0;
#X connect 3 0 4 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 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;
|
