blob: 3a3f8438ce42c3fde6d03b4f3057e8424326c239 (
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
|
#N canvas 11 0 973 640 10;
#X obj 75 32 cnv 15 15 15 empty empty filter_example 0 10 1 14 -262144
-1 0;
#X obj 523 555 dac~;
#N canvas 0 0 413 295 clear_buffers 0;
#X obj 49 73 vasp.= 0;
#X obj 49 49 inlet;
#X obj 49 97 vasp.u;
#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X restore 657 556 pd clear_buffers;
#X obj 304 113 filelist \$0;
#X obj 67 133 vasp.noise;
#X text 151 112 generate white noise or;
#X obj 67 153 vasp.* 0.5;
#X obj 67 173 vasp.update;
#X obj 67 193 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 66 547 vasp.update;
#X obj 66 567 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 66 527 vasp.c!fft;
#X obj 67 241 vasp.cfft;
#X obj 67 301 vasp.update;
#X obj 67 321 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#N canvas 132 132 405 385 inside 0;
#X obj 66 154 soundfiler;
#X obj 84 238 s \$0-sample-length;
#X obj 66 208 s \$0-draw_display;
#X msg 214 206 resize \$1;
#X obj 214 159 loadbang;
#X obj 67 53 loadbang;
#X msg 214 180 88200;
#X obj 66 178 t b f f;
#X obj 67 101 filelisthandler \$0;
#X obj 214 228 s bufre1;
#X obj 224 252 s bufim1;
#X msg 67 133 read -resize \$1 bufre1;
#X msg 67 79 3;
#X connect 0 0 7 0;
#X connect 3 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 6 0;
#X connect 5 0 12 0;
#X connect 6 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 7 1 1 0;
#X connect 7 2 3 0;
#X connect 8 0 11 0;
#X connect 11 0 0 0;
#X connect 12 0 8 0;
#X restore 813 559 pd inside;
#X text 67 64 clear a region in the frequency domain to get a filter
;
#X msg 67 113 vasp bufre1;
#X msg 67 221 vasp bufre1 bufim1;
#X obj 67 261 vasp.upper;
#X obj 67 281 vasp.= 0;
#X obj 523 532 tabplay~ bufre1;
#X msg 657 533 vasp bufre1 bufim1;
#X text 157 283 clear upper (mirrored frequencies);
#X text 539 374 0 Hz;
#X text 677 379 sr/2;
#X text 816 377 44.1 kHz;
#X text 190 506 invers transform back to the time domain;
#X obj 66 434 vasp.= 0;
#X msg 66 414 set vasp \$1 bufre1 \$2 bufim1 \$2;
#X obj 290 348 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 66 455 vasp.update;
#X obj 66 475 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X msg 66 507 vasp bufre1 bufim1;
#X obj 545 110 synchrodisplay bufre1 bufim1 \$0;
#X text 818 94 real;
#X text 789 235 imaginary;
#X obj 545 395 s \$0-data;
#N canvas 109 162 271 247 tovasp 0;
#N canvas 0 0 577 409 conversion 0;
#X obj 123 53 inlet;
#X obj 123 93 unpack;
#X obj 160 182 r \$0-sample-length;
#X obj 123 242 / 1;
#X obj 154 242 / 1;
#X obj 123 268 * 44100;
#X obj 202 207 loadbang;
#X obj 202 230 samplerate~;
#X obj 123 299 outlet;
#X obj 180 269 * 44100;
#X obj 180 300 outlet;
#X obj 366 253 runden;
#X obj 366 231 - 0;
#X text 450 272 offset;
#X obj 366 177 t b f;
#X obj 366 206 0;
#X obj 366 317 outlet;
#X obj 123 116 t f f f;
#X text 370 271 length;
#X obj 447 254 runden;
#X text 121 326 lb (Hz);
#X text 183 325 rb (Hz);
#X obj 366 295 pack;
#X obj 123 73 change2;
#X floatatom 459 223 12 0 0;
#X floatatom 453 310 5 0 0;
#X connect 0 0 23 0;
#X connect 1 0 17 0;
#X connect 1 1 4 0;
#X connect 1 1 15 1;
#X connect 2 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 5 1;
#X connect 7 0 9 1;
#X connect 9 0 10 0;
#X connect 11 0 22 0;
#X connect 12 0 11 0;
#X connect 14 0 15 0;
#X connect 14 1 12 1;
#X connect 15 0 12 0;
#X connect 17 0 3 0;
#X connect 17 1 14 0;
#X connect 17 2 19 0;
#X connect 17 2 24 0;
#X connect 19 0 22 1;
#X connect 19 0 25 0;
#X connect 22 0 16 0;
#X connect 23 0 1 0;
#X restore 89 64 pd conversion;
#X obj 89 44 r \$0-data;
#X obj 162 153 outlet;
#X obj 89 98 s \$0-freqdisplayl;
#X obj 125 124 s \$0-freqdisplayr;
#X connect 0 0 3 0;
#X connect 0 1 4 0;
#X connect 0 2 2 0;
#X connect 1 0 0 0;
#X restore 66 393 pd tovasp;
#X text 193 224 transform;
#N canvas 0 0 140 20 Herznumbers 0;
#X obj 0 0 cnv 15 140 20 empty empty empty 20 12 0 14 -262144 -66577
0;
#X floatatom 0 3 8 0 0;
#X floatatom 83 3 8 0 0;
#X obj 28 30 r \$0-freqdisplayl;
#X obj 28 54 r \$0-freqdisplayr;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X coords 0 0 1 1 140 20 1;
#X restore 642 434 pd Herznumbers;
#X text 547 436 selection from;
#X text 701 436 to;
#X text 66 348 select a region (frequecy band) and;
#X obj 523 512 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 545 509 play;
#X text 657 511 clear;
#X text 785 436 Hz;
#X text 65 360 draw inside the wavedisplay and press spacebar (select)
or "s" (shift).;
#X connect 4 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 11 0 9 0;
#X connect 12 0 19 0;
#X connect 13 0 14 0;
#X connect 17 0 4 0;
#X connect 18 0 12 0;
#X connect 19 0 20 0;
#X connect 20 0 13 0;
#X connect 21 0 1 0;
#X connect 21 0 1 1;
#X connect 22 0 2 0;
#X connect 28 0 31 0;
#X connect 29 0 28 0;
#X connect 30 0 28 0;
#X connect 31 0 32 0;
#X connect 33 0 11 0;
#X connect 34 0 37 0;
#X connect 38 0 29 0;
#X connect 44 0 21 0;
|
