blob: c75335eb20e21d7a109d3e85e1fa87a3be7cb4ee (
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
|
#N canvas 73 28 846 432 12;
#N canvas 213 187 495 352 input-sample 0;
#N canvas 0 0 450 300 graph1 0;
#X array array1 155948 float 0;
#X coords 0 1 155948 -1 400 300 1;
#X restore 55 22 graph;
#X text 149 386 INPUT SAMPLE;
#X restore 238 282 pd input-sample;
#N canvas 192 180 507 343 output-sample 0;
#N canvas 0 0 450 300 graph2 0;
#X array array2 160358 float 0;
#X coords 0 1 160358 -1 400 300 1;
#X restore 59 13 graph;
#X text 158 381 OUTPUT SAMPLE;
#X restore 237 305 pd output-sample;
#N canvas 116 150 735 425 guts 0;
#X msg 25 131 bang;
#X obj 25 354 openpanel;
#X obj 142 31 inlet;
#X obj 458 378 dac~;
#X obj 458 335 *~;
#X obj 473 312 line~;
#X obj 473 290 r master-amp;
#X msg 726 87 bang;
#X obj 726 109 savepanel;
#X obj 275 165 spigot;
#X msg 260 131 0;
#X msg 291 131 1;
#X obj 513 408 outlet;
#X obj 324 131 r frequency;
#X obj 263 320 tabwrite~ array2;
#X msg 263 194 bang;
#X obj 438 283 +~;
#X msg 143 131 \; pd dsp 1;
#X obj 458 356 hip~ 7;
#X obj 275 223 tabplay~ array1;
#X msg 453 127 bang;
#X obj 453 149 tabplay~ array2;
#X msg 726 130 write \$1 array2;
#X obj 726 151 soundfiler;
#X obj 142 52 route read run start hear save;
#N canvas 0 0 368 259 audio-transformation 0;
#X obj 111 70 r frequency;
#X obj 96 21 inlet~;
#X obj 96 178 outlet~;
#X obj 179 123 r q;
#X obj 111 94 pack 0 100;
#X obj 110 119 line~;
#X obj 96 153 vcf~;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 6 2;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 2 0;
#X restore 275 244 pd audio-transformation;
#X obj 513 387 env~ 16384;
#X obj 585 88 route normalized;
#X msg 585 184 write -normalize \$1 array2;
#X msg 585 142 bang;
#X obj 585 163 savepanel;
#X obj 585 209 soundfiler;
#X obj 25 406 soundfiler;
#X msg 25 383 read -resize -maxsize 1e+06 \$1 array1;
#X msg 25 452 \; array2 resize \$1;
#X obj 25 430 + 4410;
#X floatatom 94 428 0 0 0;
#X obj 413 132 r q;
#X connect 0 0 1 0;
#X connect 1 0 33 0;
#X connect 2 0 24 0;
#X connect 4 0 18 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 22 0;
#X connect 9 0 10 0;
#X connect 9 0 15 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 13 0 9 0;
#X connect 15 0 14 0;
#X connect 15 0 19 0;
#X connect 16 0 4 0;
#X connect 18 0 3 0;
#X connect 18 0 3 1;
#X connect 18 0 26 0;
#X connect 19 0 25 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 23 0;
#X connect 24 0 0 0;
#X connect 24 1 15 0;
#X connect 24 1 10 0;
#X connect 24 1 17 0;
#X connect 24 2 11 0;
#X connect 24 2 17 0;
#X connect 24 3 20 0;
#X connect 24 4 27 0;
#X connect 25 0 14 0;
#X connect 25 0 16 0;
#X connect 26 0 12 0;
#X connect 27 0 29 0;
#X connect 27 1 7 0;
#X connect 28 0 31 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 32 0 35 0;
#X connect 32 0 36 0;
#X connect 33 0 32 0;
#X connect 35 0 34 0;
#X connect 37 0 9 0;
#X restore 34 236 pd guts;
#X msg 34 131 run the transformation;
#X msg 34 173 hear the output buffer again;
#X text 34 91 click below to:;
#X msg 34 194 save the output buffer;
#X floatatom 562 334 0 0 120;
#N canvas 194 37 397 591 output 0;
#X obj 65 199 t b;
#X obj 65 150 f;
#X obj 65 100 inlet;
#X text 70 79 mute;
#X obj 65 224 f;
#X msg 132 240 0;
#X msg 65 125 bang;
#X obj 65 175 moses 1;
#X obj 132 215 t b f;
#X obj 94 434 outlet;
#X msg 94 409 set \$1;
#X obj 183 160 moses 1;
#X obj 221 437 dbtorms;
#X obj 221 461 pack 0 100;
#X obj 183 136 r master-lvl;
#X obj 94 375 r master-lvl;
#X obj 81 281 s master-lvl;
#X obj 221 486 s master-amp;
#X obj 204 240 loadbang;
#X msg 204 264 \; master-lvl 90;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 16 0;
#X connect 5 0 16 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 10 0 9 0;
#X connect 11 1 4 1;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 14 0 1 1;
#X connect 14 0 11 0;
#X connect 15 0 10 0;
#X connect 15 0 12 0;
#X connect 18 0 19 0;
#X restore 562 313 pd output;
#X msg 562 292 mute;
#X obj 562 355 s master-lvl;
#X text 604 291 <-- mute button;
#X floatatom 34 257 0 0 0;
#X text 35 300 100 maximum;
#X text 35 282 output meter;
#X text 600 335 <--set me;
#X msg 34 110 read an input file;
#X msg 34 215 save normalized to max amplitude;
#X msg 34 152 start transformation when I change f or q;
#X floatatom 479 164 0 0 0;
#X obj 479 185 s frequency;
#X text 479 85 center;
#X floatatom 482 229 0 0 10000;
#X text 482 210 "q";
#X obj 482 252 s q;
#X obj 479 143 mtof;
#X floatatom 479 122 0 0 128;
#X text 536 163 <- set in Hz;
#X text 533 230 <--set selectivity;
#X text 479 103 frequency;
#X text 534 123 <- set in MIDI units;
#X text 31 341 Note -- you can shift-click on the controls to change
them in hundredths. You can also click and type numbers in \, followed
by the "enter" key.;
#X text 16 5 Bandpass filter. Read in a sample first \, then you can
either set a frequency and hit the "run" button or else hit the "start..."
button and start the transformation by dragging on the frequency or
q control.;
#X text 552 377 OUTPUT LEVEL in dB (100 norm);
#X connect 2 0 12 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 16 0 2 0;
#X connect 17 0 2 0;
#X connect 18 0 2 0;
#X connect 19 0 20 0;
#X connect 22 0 24 0;
#X connect 25 0 19 0;
#X connect 26 0 25 0;
|
