-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathchannel.pd
178 lines (178 loc) · 4.99 KB
/
channel.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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
#N canvas 0 0 1522 772 12;
#X obj 101 18 inlet;
#X obj 1344 314 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1344 334 f \$1;
#X floatatom 1344 358 5 0 0 0 - - -;
#X text 1327 276 |TESTING SECTION|;
#X text 1341 291 LOG: Clone instance number;
#X obj 101 47 route note polytouch control prgm aftouch pitch-bend
;
#X obj 341 96 s \$0-aftouch;
#X obj 401 75 s \$0-pitch-bend;
#X obj 281 118 s \$0-prgm;
#X obj 221 139 s \$0-control;
#X obj 161 161 s \$0-polytouch;
#X obj 101 184 s \$0-notein;
#X obj 24 101 print note;
#X obj 97 391 outlet~;
#X obj 192 390 outlet~;
#N canvas 0 0 1920 976 note-parser 0;
#X obj 55 70 unpack f f;
#X obj 55 132 pack f f f;
#X obj 55 38 r \$0-notein;
#X obj 55 156 s \$0-note-2-voice;
#X obj 26 184 print note2voice;
#X obj 55 103 poly 10 1, f 10;
#X connect 0 0 5 0;
#X connect 0 1 5 1;
#X connect 1 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 5 0 1 0;
#X connect 5 1 1 1;
#X connect 5 2 1 2;
#X restore 96 276 pd note-parser;
#N canvas 0 0 1920 988 channel-mod 0;
#X obj 17 133 outlet~;
#X obj 218 127 outlet~;
#X obj 19 18 catch~ \$0-voice-out-left;
#X obj 214 19 catch~ \$0-voice-out-right;
#N canvas 0 0 1920 988 pan 0;
#X obj 201 123 * 0.0078745;
#X obj 201 99 spigot;
#X obj 201 145 sig~;
#X obj 201 167 lop~ 2;
#X obj 186 322 *~;
#X obj 21 318 *~;
#X obj 21 345 outlet~ left;
#X obj 186 346 outlet~ right;
#X obj 37 292 cos~;
#X obj 37 268 -~ 0.25;
#X obj 201 233 cos~;
#X obj 201 211 -~ 0.25;
#X obj 201 189 *~ 0.25;
#X obj 264 84 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 38 14 loadbang;
#X obj 38 36 t b b, f 8;
#X obj 90 58 s \$0-pan-active;
#X obj 279 55 r \$0-pan-active;
#X obj 201 6 r \$0-control;
#X obj 201 28 t f f;
#X obj 21 138 inlet~;
#X obj 130 138 inlet~;
#X obj 229 53 == 41;
#X msg 38 78 64;
#X text 460 111 Left and right inlet take audio signal for left and
right channel as input and output is the panned audio signal in the
outlets.;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 12 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 8 0 5 1;
#X connect 9 0 8 0;
#X connect 10 0 4 1;
#X connect 11 0 10 0;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X connect 13 0 1 1;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 15 1 16 0;
#X connect 17 0 13 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 19 1 22 0;
#X connect 20 0 5 0;
#X connect 21 0 4 0;
#X connect 22 0 13 0;
#X connect 23 0 1 0;
#X restore 18 65 pd pan;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 4 1 1 0;
#X restore 97 351 pd channel-mod;
#X obj 1367 425 t b b, f 19;
#X obj 1414 315 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 1414 359 5 0 0 0 - - -;
#X obj 1414 335 f \$0;
#X obj 1366 393 bang;
#X msg 1497 452 clear \, obj 100 50 r \\\$0-note-2-voice \, obj 100
150 clone -s 1 pacman 10 \, obj 100 200 throw~ \\\$0-voice-out-left
\, obj 300 200 throw~ \\\$0-voice-out-right \, connect 0 0 1 0 \, connect
1 0 2 0 \, connect 1 0 3 0;
#X obj 1367 452 print load-sucess;
#X obj 535 74 route voice-change;
#X obj 532 37 print in-channel;
#X obj 707 104 print in-filter;
#X obj 534 140 t b s b;
#X msg 580 162 clear \, obj 100 50 r \\\$0-note-2-voice;
#X obj 534 104 list;
#X obj 1491 526 s pd-channel-subpatch-\$0;
#N canvas 0 0 1842 944 channel-subpatch-\$0 0;
#X obj 100 50 r \$0-note-2-voice;
#X obj 100 150 clone -s 1 32 bell \$0;
#X connect 0 0 1 0;
#X restore 96 311 pd channel-subpatch-\$0;
#X obj 580 188 s pd-channel-subpatch-\$0;
#X obj 557 247 s pd-channel-subpatch-\$0;
#X obj 673 338 s pd-channel-subpatch-\$0;
#X msg 672 302 connect 0 0 1 0;
#X obj 534 275 t b b, f 20;
#X obj 534 299 t b b, f 8;
#X msg 587 322 \; pd dsp 0;
#X msg 534 359 \; pd dsp 1;
#X text 99 205 |------Midi-send-signals----------------------------|
;
#X text 528 410 |------Program change using dynamic patching-------|
;
#X text 864 160 Clears the subpatch and create note recieve object.
;
#X text 864 223 Creates clone object \, sends loadbang to voices;
#X text 798 298 Connect and quick toggles DSP(fix to get it working)
;
#X text 954 35 NOTE: \$1 \, \$2 are reserved in voice. \$1 is clone
voice instance number \, \$2 is assigned the value of \$0 of the channel
in which voice is present (Do not modify these values);
#X obj 534 323 del 1;
#X msg 557 218 obj 100 150 clone -s 1 32 \$1 \\\$0 \, loadbang;
#X connect 0 0 6 0;
#X connect 0 0 26 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 6 0 12 0;
#X connect 6 0 13 0;
#X connect 6 1 11 0;
#X connect 6 2 10 0;
#X connect 6 3 9 0;
#X connect 6 4 7 0;
#X connect 6 5 8 0;
#X connect 6 6 25 0;
#X connect 17 0 14 0;
#X connect 17 1 15 0;
#X connect 18 0 24 0;
#X connect 18 1 23 0;
#X connect 19 0 21 0;
#X connect 21 0 20 0;
#X connect 22 0 18 0;
#X connect 23 0 31 0;
#X connect 25 0 27 0;
#X connect 25 0 30 0;
#X connect 28 0 37 0;
#X connect 28 1 48 0;
#X connect 28 2 29 0;
#X connect 29 0 33 0;
#X connect 30 0 28 0;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 37 1 36 0;
#X connect 38 0 47 0;
#X connect 38 1 39 0;
#X connect 47 0 40 0;
#X connect 48 0 34 0;