-
Notifications
You must be signed in to change notification settings - Fork 0
/
eq-pow-mix~.pd
executable file
·47 lines (47 loc) · 1.31 KB
/
eq-pow-mix~.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
#N canvas 1462 438 669 417 10;
#X obj 25 304 *~;
#X obj 104 303 *~;
#X obj 267 212 line~;
#X obj 267 240 cos~;
#X obj 184 210 line~;
#X obj 184 238 cos~;
#X obj 183 184 pack;
#X obj 182 129 t f b;
#X msg 226 156 10;
#X obj 267 185 pack;
#X msg 317 157 10;
#X obj 267 157 - 0.25;
#X obj 265 129 t f b;
#X obj 181 85 / 4;
#X text 29 29 Equal power fade;
#X obj 25 58 inlet~;
#X obj 102 61 inlet~;
#X obj 181 58 inlet;
#X text 117 343 after equal pwer panning (C) 2005 Christopher Burns;
#X obj 56 343 outlet~;
#X text 306 240 scale by cosine of pan angle: constant-power;
#X text 143 301 change gain for channel according to constant-power formula;
#X text 212 87 scale to 0 <= n <= 0.25 (for idiosyncratic pd cos~ object);
#X text 348 159 shift right channel 90 degrees in phase from left;
#X text 309 186 combine angle with 10 msec ramp time in a list;
#X text 318 212 create smooth (10 msec) transition to new pan angle;
#X connect 0 0 19 0;
#X connect 1 0 19 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 5 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 8 0;
#X connect 8 0 6 1;
#X connect 9 0 2 0;
#X connect 10 0 9 1;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X connect 12 1 10 0;
#X connect 13 0 7 0;
#X connect 13 0 12 0;
#X connect 15 0 0 0;
#X connect 16 0 1 0;
#X connect 17 0 13 0;