/
efx.pshift.ssb~.pd
44 lines (44 loc) · 1.14 KB
/
efx.pshift.ssb~.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
#N canvas 588 329 810 513 10;
#X obj 250 144 cos~;
#X obj 293 122 +~ -0.25;
#X obj 293 145 cos~;
#X obj 165 183 *~;
#X obj 211 182 *~;
#X obj 164 207 -~;
#X floatatom 296 64 5 0 0 0 - - -;
#X text 41 144 pair of allpass;
#X text 40 161 filters to make;
#X text 40 179 90 degree phase;
#X text 38 196 shifted versions;
#X text 338 36 <-- shift frequency;
#X text 372 107 cosine and sine waves;
#X obj 250 98 phasor~;
#X text 265 183 <-- complex multipier;
#X text 264 200 (calculates real part);
#X text 371 122 to form the real and;
#X text 371 138 imaginary part of a;
#X text 371 155 complex sinusoid;
#X obj 165 145 hilbert~;
#X obj 165 38 inlet~;
#X text 157 351 From Pd audio example H09.ssb.modulation;
#X obj 165 237 outlet~ l;
#X obj 185 257 outlet~ l;
#X obj 250 37 inlet shift;
#X obj 467 17 loadbang;
#X obj 467 42 f \$1;
#X connect 0 0 3 1;
#X connect 1 0 2 0;
#X connect 2 0 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 22 0;
#X connect 5 0 23 0;
#X connect 13 0 1 0;
#X connect 13 0 0 0;
#X connect 19 0 3 0;
#X connect 19 1 4 0;
#X connect 20 0 19 0;
#X connect 24 0 6 0;
#X connect 24 0 13 0;
#X connect 25 0 26 0;
#X connect 26 0 13 0;