equal_power_pan~.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

#N canvas 509 36 445 434 10;
#X obj 23 38 inlet~;
#X obj 234 48 inlet;
#X obj 23 322 outlet~;
#X obj 81 322 outlet~;
#X text 30 342 left;
#X text 84 342 right;
#X obj 234 124 expr if($f1 > 0 \, $f1 \, 0);
#X obj 234 105 expr if($f1 < 1 \, $f1 \, 1);
#X text 247 91 filter so 0 < f < 1;
#X text 130 368 (C) Copyright 2004 Hans-Christoph Steiner;
#X text 234 384 released under the GNU GPL;
#X obj 23 263 pan_core~;
#X obj 309 44 loadbang;
#X msg 309 64 0.5;
#X obj 39 184 expr cos($f1 * 3.14159 / 2);
#X obj 234 184 expr sin($f1 * 3.14159 / 2);
#X text 10 17 [equal_power_pan~];
#X connect 0 0 11 0;
#X connect 1 0 7 0;
#X connect 6 0 14 0;
#X connect 6 0 15 0;
#X connect 7 0 6 0;
#X connect 11 0 2 0;
#X connect 11 1 3 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X connect 14 0 11 1;
#X connect 15 0 11 2;