aboutsummaryrefslogtreecommitdiff
path: root/pan_gogins~.pd
blob: 281573dd7c07af8a636322d31f5e82e28ba072d4 (plain)
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
#N canvas 229 280 522 407 10;
#X floatatom 94 35 4 -45 45 0 - - -;
#X floatatom 112 85 0 0 0 0 - - -;
#N canvas 184 223 495 266 output 0;
#X obj 338 160 t b;
#X obj 338 110 f;
#X obj 338 60 inlet;
#X text 344 29 mute;
#X obj 338 185 f;
#X msg 425 178 0;
#X msg 338 85 bang;
#X obj 338 135 moses 1;
#X obj 425 153 t b f;
#X obj 397 117 moses 1;
#X obj 83 148 dbtorms;
#X obj 397 92 r master-lvl;
#X obj 83 42 r master-lvl;
#X obj 338 210 s master-lvl;
#X obj -15 176 inlet~;
#X obj 199 41 inlet;
#X text 199 18 level;
#X obj 199 100 s master-lvl;
#X msg 96 65 set \$1;
#X obj 96 89 outlet;
#X msg 214 64 \; pd dsp 1;
#X obj 83 194 line~;
#X obj -15 207 *~;
#X obj -15 236 dac~;
#X obj 83 171 pack 0 50;
#X text -17 153 audio;
#X text 93 110 show level;
#X obj 31 182 inlet~;
#X obj 31 218 *~;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 21 0 28 1;
#X connect 22 0 23 0;
#X connect 24 0 21 0;
#X connect 27 0 28 0;
#X connect 28 0 23 1;
#X restore 74 112 pd output;
#X msg 132 84 MUTE;
#X text 166 83 <-- output amplitude;
#N canvas 5 21 600 400 pulse 0;
#X obj 175 203 cos~;
#X obj 175 131 -~ 0.5;
#X obj 175 179 clip~ -0.5 0.5;
#X obj 175 227 hip~ 5;
#X obj 175 155 *~ 82;
#X obj 175 107 phasor~ 16;
#X obj 175 251 outlet~;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X restore 22 33 pd pulse;
#X msg 21 177 \; pd dsp 1;
#X msg 91 177 \; pd dsp 0;
#X text 43 208 ON;
#X text 108 208 OFF;
#X obj 22 152 loadbang;
#X text 133 36 angle in degrees range -45 to 45;
#X obj 22 58 pan_gogins~;
#X text 17 324 pan_gogins~ a modification of pan~ by Ian Mott;
#X text 16 341 implements an algorithm conceived by Michael Gogins
and described at: http://www.csounds.com/ezine/autumn1999/beginners/
;
#X connect 0 0 12 1;
#X connect 1 0 2 2;
#X connect 2 0 1 0;
#X connect 3 0 2 3;
#X connect 5 0 12 0;
#X connect 10 0 6 0;
#X connect 12 0 2 0;
#X connect 12 1 2 1;