-
Notifications
You must be signed in to change notification settings - Fork 4
/
GTD-8-effets.pd
232 lines (232 loc) · 6.95 KB
/
GTD-8-effets.pd
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
#N canvas 4 23 939 1005 10;
#X declare -path rj;
#X declare -path abs;
#X obj 19 91 declare -path rj;
#X obj 226 679 g_hsl dry 0 1;
#X obj 226 719 g_hsl amp 0 100;
#X obj 226 759 g_hsl hall 0 100;
#X obj 226 799 g_hsl freq 20 22050;
#X obj 226 839 g_hsl damp 0 100;
#X text 137 686 Dry/Wet Mix;
#X msg 226 656 amp 80 \, hall 80 \, freq 6000 \, damp 60;
#X obj 78 942 soundoutput;
#X obj 78 864 e_reverb \$0-rev;
#X obj 43 204 noise~;
#X obj 117 435 sig~;
#X text 218 486 q;
#X floatatom 201 467 5 0 0 0 - - -, f 5;
#X obj 47 499 vcf~ 1000 5;
#X obj 120 391 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6000 1;
#X obj 117 411 mtof;
#X obj 190 444 hsl 128 15 1 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 600 1;
#X obj 155 413 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 60 256;
#X obj 225 623 loadbang;
#X obj 70 292 soundoutput;
#X obj 92 561 soundoutput;
#X text 14 8 Les effets permmettent de transformer le son entrant en
fonction des paramètres fournis;
#X text 14 39 Il sont de nature très diverses \, mais ils se situent
généralement tout à la fin de la chaine audio avant les sorties
audio et ils peuvent se chainer !;
#X text 19 123 Ici nous générons un bruit blanc;
#X text 19 143 Il passe ensuite dans un filtre dont nous pouvons préciser
la fréquence de coupure et la largeur(q);
#X text 19 178 Puis dans un effet de reverbération;
#X obj 145 92 declare -path abs;
#N canvas 0 22 450 300 (subpatch) 0;
#X array E01-spectrum 128 float 0;
#X coords 0 0 127 127 257 130 1 0 0;
#X restore 608 614 graph;
#N canvas 45 83 558 569 fft 1;
#X obj 19 62 inlet~;
#X obj 85 214 inlet;
#X obj 19 92 rfft~;
#X obj 19 125 *~;
#X obj 50 125 *~;
#X obj 19 155 sqrt~;
#X obj 85 248 tabwrite~ E01-spectrum;
#X obj 332 109 block~ 4096 1;
#X obj 19 181 biquad~ 0 0 0 0 1;
#X text 83 93 Fourier series;
#X text 88 146 magnitude;
#X text 86 131 calculate;
#X text 21 3 This subpatch computes the spectrum of the incoming signal
with a (rectangular windowed) FFT. FFTs aren't properly introduced
until much later.;
#X text 83 62 signal to analyze;
#X text 182 166 delay two samples;
#X text 181 182 for better graphing;
#X obj 90 425 samplerate~;
#X obj 90 402 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 90 472 5 0 0 0 - - -, f 5;
#X obj 90 448 / 256;
#X obj 90 378 loadbang;
#X floatatom 90 541 5 0 0 0 - - -, f 5;
#X obj 98 494 s fundamental;
#X obj 90 517 ftom;
#X text 146 540 <-just out of curiosity \, here's the pitch;
#X text 14 319 At load time \, calculate a good choice of fundamental
frequency for showing spectra: the 16th bin in a 4096-point spectrum
\, so SR*16/4096 or SR/256.;
#X text 135 216 "bang" into this inlet to graph it;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 8 0 6 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 22 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 23 0 21 0;
#X restore 211 254 pd fft;
#X obj 250 232 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 45 83 558 569 fft 0;
#X obj 19 62 inlet~;
#X obj 85 214 inlet;
#X obj 19 92 rfft~;
#X obj 19 125 *~;
#X obj 50 125 *~;
#X obj 19 155 sqrt~;
#X obj 85 248 tabwrite~ E01-spectrum;
#X obj 332 109 block~ 4096 1;
#X obj 19 181 biquad~ 0 0 0 0 1;
#X text 83 93 Fourier series;
#X text 88 146 magnitude;
#X text 86 131 calculate;
#X text 21 3 This subpatch computes the spectrum of the incoming signal
with a (rectangular windowed) FFT. FFTs aren't properly introduced
until much later.;
#X text 83 62 signal to analyze;
#X text 182 166 delay two samples;
#X text 181 182 for better graphing;
#X obj 90 425 samplerate~;
#X obj 90 402 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 90 472 5 0 0 0 - - -, f 5;
#X obj 90 448 / 256;
#X obj 90 378 loadbang;
#X floatatom 90 541 5 0 0 0 - - -, f 5;
#X obj 98 494 s fundamental;
#X obj 90 517 ftom;
#X text 146 540 <-just out of curiosity \, here's the pitch;
#X text 14 319 At load time \, calculate a good choice of fundamental
frequency for showing spectra: the 16th bin in a 4096-point spectrum
\, so SR*16/4096 or SR/256.;
#X text 135 216 "bang" into this inlet to graph it;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 8 0 6 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 22 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 23 0 21 0;
#X restore 283 540 pd fft;
#X obj 322 518 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 45 83 558 569 fft 0;
#X obj 19 62 inlet~;
#X obj 85 214 inlet;
#X obj 19 92 rfft~;
#X obj 19 125 *~;
#X obj 50 125 *~;
#X obj 19 155 sqrt~;
#X obj 85 248 tabwrite~ E01-spectrum;
#X obj 332 109 block~ 4096 1;
#X obj 19 181 biquad~ 0 0 0 0 1;
#X text 83 93 Fourier series;
#X text 88 146 magnitude;
#X text 86 131 calculate;
#X text 21 3 This subpatch computes the spectrum of the incoming signal
with a (rectangular windowed) FFT. FFTs aren't properly introduced
until much later.;
#X text 83 62 signal to analyze;
#X text 182 166 delay two samples;
#X text 181 182 for better graphing;
#X obj 90 425 samplerate~;
#X obj 90 402 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 90 472 5 0 0 0 - - -, f 5;
#X obj 90 448 / 256;
#X obj 90 378 loadbang;
#X floatatom 90 541 5 0 0 0 - - -, f 5;
#X obj 98 494 s fundamental;
#X obj 90 517 ftom;
#X text 146 540 <-just out of curiosity \, here's the pitch;
#X text 14 319 At load time \, calculate a good choice of fundamental
frequency for showing spectra: the 16th bin in a 4096-point spectrum
\, so SR*16/4096 or SR/256.;
#X text 135 216 "bang" into this inlet to graph it;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 8 0 6 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 22 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 23 0 21 0;
#X restore 236 922 pd fft;
#X obj 275 900 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 283 230 Cliquer pour visualiser;
#X text 350 516 Cliquer pour visualiser;
#X text 307 899 Cliquer pour visualiser;
#X text 611 572 Visualisation;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 9 1;
#X connect 7 0 1 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 9 1 33 0;
#X connect 10 0 14 0;
#X connect 10 0 20 0;
#X connect 10 0 20 1;
#X connect 10 0 29 0;
#X connect 11 0 14 1;
#X connect 14 0 9 0;
#X connect 14 0 21 0;
#X connect 14 0 21 1;
#X connect 14 0 31 0;
#X connect 15 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 11 0;
#X connect 17 0 13 0;
#X connect 17 0 14 2;
#X connect 19 0 7 0;
#X connect 30 0 29 1;
#X connect 32 0 31 1;
#X connect 34 0 33 1;