blob: c4ecebf1619e4f3cd1173829a5597618daaa41cb (
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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#N canvas 22 17 939 438 10;
#X obj 44 49 dsp;
#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 44 90 5 0 0 0 - - -;
#X floatatom 57 73 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array scope 512 float 0;
#X coords 0 1 511 -1 512 100 1;
#X restore 371 240 graph;
#X obj 121 178 tabwrite~ scope;
#X obj 211 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 0 450 300 graph2 0;
#X array filter 256 float 1;
#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32
0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667
0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333
-0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42
-0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74
-0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58
0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17
0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52
-0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08
-0.02 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 255 -1 256 100 1;
#X restore 502 -33 graph;
#X obj 136 91 del 100;
#X msg 781 2 \; filter const 0;
#X text 14 -28 spec2_tabreceive_enable~;
#X obj 278 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 295 47 enable;
#X text 209 -15 and enables/disables reading the table;
#N canvas 63 41 965 587 spec2_blockfilter~ 0;
#X obj 100 51 inlet~;
#X obj 102 381 outlet~;
#X obj 271 120 block~ 256 2;
#N canvas 0 0 450 300 graph1 0;
#X array rect 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 460 21 graph;
#X obj 276 459 tab_const rect;
#X obj 279 396 t b b;
#X msg 304 421 0 128 1;
#X msg 224 419 128 128 0;
#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 279 350 loadbang;
#X obj 101 309 /~ 256;
#X obj 101 108 *~;
#X obj 114 85 spec2_tabreceive~ rect;
#N canvas 0 0 450 300 graph1 0;
#X array real 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 691 177 graph;
#N canvas 0 0 450 300 graph1 0;
#X array imag 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 691 326 graph;
#X obj 697 56 inlet;
#X obj 697 80 t b;
#X text 351 190 1.arg: <symbol> table-name;
#X obj 291 54 inlet;
#X obj 101 131 rfft~;
#X obj 102 280 rifft~;
#X obj 158 260 spec2+~;
#X obj 40 257 spec2-~;
#X obj 32 212 spec2*~;
#X obj 85 215 spec2*~;
#X obj 146 214 spec2*~;
#X obj 205 214 spec2*~;
#X obj 247 149 spec2_tabreceive_enable~ real 0;
#X obj 263 174 spec2_tabreceive_enable~ imag 0;
#X text 352 205 2.arg: <float> enable-state;
#X obj 697 102 tab_rfft filter real imag 256;
#X connect 0 0 11 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 1 0;
#X connect 11 0 19 0;
#X connect 12 0 11 1;
#X connect 15 0 16 0;
#X connect 16 0 30 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 19 0 23 0;
#X connect 19 0 25 0;
#X connect 19 1 24 0;
#X connect 19 1 26 0;
#X connect 20 0 10 0;
#X connect 21 0 20 1;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 22 1;
#X connect 25 0 21 0;
#X connect 26 0 21 1;
#X connect 27 0 23 1;
#X connect 27 0 26 1;
#X connect 28 0 24 1;
#X connect 28 0 25 1;
#X restore 158 141 pd spec2_blockfilter~ using spec2_tabreceive_enable~
;
#X text 749 122 1.arg: <symbol> table-name;
#X msg 561 99 symbol filter;
#X text 749 134 2.arg: <float> enable-state;
#X obj 536 129 spec2_tabreceive_enable~ filter 1;
#X msg 496 89 1;
#X msg 524 89 0;
#X obj 159 117 dirac~;
#X text 150 2 iem_spec2 calculates only (blocksize/2 + 1) samples;
#X text 180 -27 receives spectrum from table with (blocksize/2 + 1)
;
#X text 90 302 IEM KUG;
#X text 74 290 musil;
#X text 104 290 @;
#X text 110 290 iem.at;
#X text 73 312 Graz \, Austria;
#X text 25 279 (c) Thomas Musil 2000 - 2006;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 6 0 14 2;
#X connect 6 0 8 0;
#X connect 8 0 5 0;
#X connect 8 0 21 0;
#X connect 11 0 14 1;
#X connect 14 0 5 0;
#X connect 16 0 18 0;
#X connect 19 0 18 0;
#X connect 20 0 18 0;
#X connect 21 0 14 0;
|
