blob: 8ab0fd5ba9413dd8fecdb2e64713210e97951a31 (
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
|
#N canvas 11 0 977 644 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 557 vasp.update;
#X obj 66 577 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 66 537 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 409 389 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 msg 67 79 3;
#X msg 67 133 read -resize \$1 bufrei1;
#X obj 214 228 s bufrei1;
#X obj 224 252 s bufimi1;
#X connect 0 0 7 0;
#X connect 3 0 11 0;
#X connect 3 0 12 0;
#X connect 4 0 6 0;
#X connect 5 0 9 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 10 0;
#X connect 9 0 8 0;
#X connect 10 0 0 0;
#X restore 813 559 pd inside;
#X obj 67 261 vasp.upper;
#X obj 67 281 vasp.= 0;
#X text 157 283 clear upper (mirrored frequencies);
#X text 536 375 0 Hz;
#X text 674 379 sr/2;
#X text 813 377 44.1 kHz;
#X text 198 515 invers transform back to the time domain;
#X obj 424 352 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 66 465 vasp.update;
#X obj 66 485 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 544 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 0 - - -;
#X floatatom 453 310 5 0 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 403 pd tovasp;
#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 0 - - -;
#X floatatom 83 3 8 0 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 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 370 draw inside the wavedisplay and press spacebar (select)
or "s" (shift).;
#X msg 67 221 vasp bufrei1 bufimi1;
#X msg 66 424 set vasp \$1 bufrei1 \$2 bufimi1 \$2;
#X msg 66 517 vasp bufrei1 bufimi1;
#X msg 657 533 vasp bufrei1 bufimi1;
#X msg 67 113 vasp bufrei1;
#X text 67 64 change gain of a region in the frequency domain to filter
a buffer content;
#X text 205 221 transform to frequency domain;
#X text 65 355 select a region (frequecy band) \, a gainfactor;
#X floatatom 348 353 5 0 0 0 - - -;
#X obj 66 444 vasp.* 1;
#X text 395 353 and;
#X obj 544 113 synchrodisplay bufrei1 bufimi1 \$0;
#X obj 523 532 tabplay~ bufrei1;
#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 16 0;
#X connect 13 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 23 0 45 0;
#X connect 24 0 25 0;
#X connect 27 0 37 0;
#X connect 31 0 48 0;
#X connect 36 0 12 0;
#X connect 37 0 45 0;
#X connect 38 0 11 0;
#X connect 39 0 2 0;
#X connect 40 0 4 0;
#X connect 44 0 45 1;
#X connect 45 0 24 0;
#X connect 47 0 26 0;
#X connect 48 0 1 0;
#X connect 48 0 1 1;
|
