blob: 9757e75cc3ce0f70a4f2292b6c74f2af6dff3937 (
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
|
#N canvas 265 153 333 190 10;
#N canvas 88 49 872 789 FFT_Analyse 0;
#X obj 101 102 inlet~;
#X obj 101 332 *~;
#X obj 132 331 *~;
#X obj 110 356 +~;
#X obj 111 377 powtodb~;
#N canvas 0 0 346 535 init_input_window 0;
#X obj 73 217 / 10;
#X obj 55 278 line 0 0.1;
#X msg 119 246 0;
#X obj 54 176 t f f b;
#X obj 54 239 pack;
#X obj 55 301 t f f;
#X obj 54 152 - 1;
#X obj 74 114 t f f;
#X obj 55 359 * 3.14159;
#X obj 55 381 sin;
#X msg 55 401 \$1 \$1;
#X obj 55 423 *;
#X text 119 334 0...0.99;
#X text 128 359 0...pi;
#X text 79 423 hanning;
#X msg 55 88 4096;
#X obj 100 88 f 4096;
#X obj 99 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 99 39 loadbang;
#X obj 74 333 / 4096;
#X obj 55 448 tabwrite \$0-window;
#X text 86 381 half-sine;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 3 2 2 0;
#X connect 4 0 1 0;
#X connect 5 0 19 0;
#X connect 5 1 20 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 1 19 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 20 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 8 0;
#X restore 161 276 pd init_input_window;
#N canvas 0 0 450 300 graph3 0;
#X array \$0-lin_scope 2048 float 0;
#X coords 0 100 2047 0 200 140 1;
#X restore 110 596 graph;
#N canvas 0 0 822 328 init_norm 0;
#X obj 43 230 outlet;
#X obj 43 187 - 100;
#X floatatom 43 208 9 0 0 0 - - -;
#X text 108 169 leistung -> techn. dB;
#X msg 43 69 4096;
#X obj 80 68 f 4096;
#X obj 80 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 80 26 loadbang;
#X obj 43 167 rmstodb;
#X obj 43 110 / 4;
#X text 74 103 faktor 2 wegen hanning;
#X text 74 114 weiterer faktor 2 \, weil wir nur die;
#X text 73 124 erste haelfte des konjungiert komplexen spektrum sehen
;
#X text 108 135 bzw. bearbeiten \, somit nur die haelfte der spektralen
energie;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 9 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X restore 126 401 pd init_norm;
#X obj 100 231 *~;
#X obj 110 425 -~ 60.206;
#X obj 123 519 *~ 0.98;
#X obj 110 541 +~;
#X obj 111 475 *~ 0.02;
#X msg 314 481 1 \$1;
#X obj 314 502 -;
#X obj 314 458 clip 0 1;
#X obj 314 437 / 100;
#X floatatom 314 413 5 0.5 100 0 - - -;
#X obj 333 366 loadbang;
#X obj 100 277 fft~;
#X obj 463 557 line 0 0.1;
#X obj 463 602 / 2;
#X obj 463 622 mtof;
#X msg 463 536 6 \, 273 26.7;
#X obj 463 580 t f f;
#X obj 494 602 - 6;
#X obj 463 642 / 44100;
#X obj 463 663 * 4096;
#X msg 656 633 6;
#X obj 656 653 / 2;
#X obj 656 673 mtof;
#X floatatom 656 693 9 0 0 0 - - -;
#X text 723 694 Hz;
#X obj 754 654 / 2;
#X obj 754 673 mtof;
#X floatatom 754 693 9 0 0 0 - - -;
#X text 822 693 Hz;
#X msg 754 634 273;
#X obj 656 612 t b b;
#X obj 463 516 metro 1000;
#X obj 463 498 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 463 458 loadbang;
#X msg 463 478 1;
#X obj 656 592 loadbang;
#X obj 468 245 loadbang;
#X obj 703 102 inlet;
#X obj 130 253 table \$0-window 4096;
#X obj 137 214 tabreceive~ \$0-window;
#X text 353 403 temporal lowpass;
#X text 355 415 parameter between 0 .. 100 %;
#X text 23 23 spectrum~;
#X text 120 23 draws the power of a spectrum in a logarithmic scale
;
#X text 118 36 (by Thomas Musil);
#X obj 123 498 tabreceive~ \$0-lin_scope;
#X obj 110 566 tabsend~ \$0-lin_scope;
#X obj 463 685 tabread4 \$0-lin_scope;
#X obj 468 267 f \$0;
#X text 553 536 transformation to log scale;
#X msg 333 385 100;
#X obj 314 341 max 0.5;
#X obj 314 319 min 100;
#X obj 440 107 inlet;
#X text 96 81 audio sig;
#X text 700 81 ON/OFF;
#X text 427 86 (0 .. 100);
#X text 408 72 temporal lowpass;
#X obj 703 125 switch~ 4096 2;
#X obj 533 244 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 463 707 tabwrite \$0-s;
#X msg 468 296 \; \$1-s xticks 0 12 2;
#X msg 491 330 \; \$1-s yticks 0 5 2;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 10 0 11 1;
#X connect 11 0 54 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 10 1;
#X connect 15 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 58 0;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 1 2 0;
#X connect 19 1 2 1;
#X connect 20 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 1 25 0;
#X connect 25 0 68 1;
#X connect 26 0 27 0;
#X connect 27 0 55 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 33 0;
#X connect 38 0 28 0;
#X connect 38 1 37 0;
#X connect 39 0 23 0;
#X connect 40 0 39 0;
#X connect 41 0 42 0;
#X connect 42 0 40 0;
#X connect 43 0 38 0;
#X connect 44 0 56 0;
#X connect 45 0 66 0;
#X connect 47 0 8 1;
#X connect 53 0 10 0;
#X connect 55 0 68 0;
#X connect 56 0 69 0;
#X connect 56 0 70 0;
#X connect 58 0 17 0;
#X connect 59 0 17 0;
#X connect 60 0 59 0;
#X connect 61 0 60 0;
#X connect 67 0 56 0;
#X restore 17 270 pd FFT_Analyse;
#X text 15 195 spectrum~.pd;
#X obj 63 249 inlet;
#X obj 17 249 inlet~;
#X obj 110 249 inlet;
#N canvas 0 0 450 300 graph3 0;
#X array \$0-s 268 float 0;
#X coords 0 100 267 0 267 140 1;
#X restore 33 17 graph;
#X obj 307 32 cnv 15 1 1 empty empty -10 0 0 0 10 -262144 -1 0;
#X obj 307 144 cnv 15 1 1 empty empty -90 0 0 0 10 -262144 -1 0;
#X obj 307 88 cnv 15 1 1 empty empty -50 0 0 0 10 -262144 -1 0;
#X obj 307 60 cnv 15 1 1 empty empty -30 0 0 0 10 -262144 -1 0;
#X obj 307 116 cnv 15 1 1 empty empty -70 0 0 0 10 -262144 -1 0;
#X obj 28 161 cnv 15 1 1 empty empty 10 0 5 0 10 -262144 -1 0;
#X obj 76 161 cnv 15 1 1 empty empty 40 0 5 0 10 -262144 -1 0;
#X obj 125 161 cnv 15 1 1 empty empty 160 0 5 0 10 -262144 -1 0;
#X obj 172 161 cnv 15 1 1 empty empty 640 0 5 0 10 -262144 -1 0;
#X obj 220 161 cnv 15 1 1 empty empty 2k56 0 5 0 10 -262144 -1 0;
#X obj 268 161 cnv 15 1 1 empty empty 10k2 0 5 0 10 -262144 -1 0;
#X obj 148 174 cnv 15 1 1 empty empty 320 0 5 0 10 -262144 -1 0;
#X obj 292 174 cnv 15 1 1 empty empty 20k5 0 5 0 10 -262144 -1 0;
#X obj 52 171 cnv 15 1 1 empty empty 20 0 9 0 10 -262144 -1 0;
#X obj 100 174 cnv 15 1 1 empty empty 80 0 5 0 10 -262144 -1 0;
#X obj 196 174 cnv 15 1 1 empty empty 1k28 0 5 0 10 -262144 -1 0;
#X obj 244 174 cnv 15 1 1 empty empty 5k12 0 5 0 10 -262144 -1 0;
#X obj 56 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 104 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 152 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 200 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 248 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 296 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X text 16 220 draws the power of the spectrum (log);
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 4 0 0 2;
#X coords 0 0 1 1 330 190 1;
|
