/
efx.gui.pshift.ssb~.pd
99 lines (99 loc) · 2.5 KB
/
efx.gui.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
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
#N canvas 585 286 810 556 10;
#X obj -155 49 inlet~;
#X obj -124 70 inlet~;
#N canvas 728 395 610 447 dsp 0;
#X obj 217 173 cos~;
#X obj 260 151 +~ -0.25;
#X obj 260 174 cos~;
#X obj 132 212 *~;
#X obj 178 211 *~;
#X obj 131 236 -~;
#X text 8 173 pair of allpass;
#X text 7 190 filters to make;
#X text 7 208 90 degree phase;
#X text 5 225 shifted versions;
#X text 286 57 <-- shift frequency;
#X text 339 136 cosine and sine waves;
#X obj 217 127 phasor~;
#X text 232 212 <-- complex multipier;
#X text 231 229 (calculates real part);
#X text 338 151 to form the real and;
#X text 338 167 imaginary part of a;
#X text 338 184 complex sinusoid;
#X obj 132 174 hilbert~;
#X obj 132 67 inlet~;
#X text 124 380 From Pd audio example H09.ssb.modulation;
#X obj 132 266 outlet~ l;
#X obj 152 286 outlet~ l;
#X obj 217 57 r \$0-pitch;
#X floatatom 170 115 5 0 0 0 - - -;
#X obj 251 88 mtof;
#X obj 474 13 inlet;
#X obj 499 38 loadbang;
#X msg 499 61 1;
#X obj 474 87 switch~;
#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 21 0;
#X connect 5 0 22 0;
#X connect 12 0 1 0;
#X connect 12 0 0 0;
#X connect 18 0 3 0;
#X connect 18 1 4 0;
#X connect 19 0 18 0;
#X connect 23 0 25 0;
#X connect 23 0 12 0;
#X connect 23 0 24 0;
#X connect 26 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X restore -96 127 pd dsp;
#X obj -33 127 r \$0-mix;
#X obj -157 196 *~ 1.2;
#X obj -156 232 outlet~;
#X obj -95 232 outlet~;
#X obj -95 197 *~ 1.2;
#X obj 432 117 loadbang;
#X obj 304 100 s \$0-pitch;
#X obj 304 120 s \$0-mix;
#X obj 100 26 inlet pitch;
#X obj 120 51 inlet mix;
#X obj 100 117 gui.slider pitch 8000 0;
#X obj 100 134 gui.slider mix 1 -1;
#X obj 100 100 cnv 15 156 15 empty empty Pshift.ssb 5 8 0 8 -1 -162280
0;
#X obj 241 33 r \$1/sh.pitch;
#X obj 241 53 r \$1/sh.mix;
#X obj 302 180 xsssad \$1/sh.pitch;
#X obj 303 202 xsssad \$1/sh.mix;
#X obj -156 158 mix.xfade.curve.stereo~ 1 -1;
#X obj 9 195 mix.switchoglitch 12;
#X connect 0 0 2 0;
#X connect 0 0 20 0;
#X connect 1 0 2 0;
#X connect 1 0 20 1;
#X connect 2 0 20 2;
#X connect 2 1 20 3;
#X connect 3 0 20 4;
#X connect 4 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 18 2;
#X connect 8 0 19 2;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 9 0;
#X connect 13 1 18 1;
#X connect 14 0 10 0;
#X connect 14 1 19 1;
#X connect 16 0 13 0;
#X connect 17 0 14 0;
#X connect 18 0 13 0;
#X connect 19 0 14 0;
#X connect 20 0 4 0;
#X connect 20 1 7 0;
#X connect 20 3 21 0;
#X connect 21 0 2 1;
#X coords 0 -1 1 1 156 50 2 100 100;