/
mixersend~.pd
276 lines (276 loc) · 7.17 KB
/
mixersend~.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
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
#N canvas 513 56 785 626 12;
#X declare -path hjh-abs -path iemguts;
#N canvas 62 55 450 590 mapvol 0;
#X obj 88 18 inlet;
#X obj 88 539 outlet;
#X obj 88 289 lincurve 0 1 0 2 3;
#X obj 88 314 t f f, f 23;
#X obj 88 339 rmstodb;
#X obj 88 364 - 100;
#X obj 246 389 outlet;
#X obj 88 414 * 100;
#X obj 88 464 int;
#X obj 88 489 * 0.01;
#X obj 185 18 r \$0-muteR;
#X msg 372 289 0;
#X obj 88 189 f;
#X text 280 22 turn mute off \, bang old volume, f 17;
#X obj 141 160 select 0 1;
#X obj 141 18 inlet;
#X obj 185 102 t f f f, f 10;
#X obj 282 156 * 3;
#X obj 282 181 pack 0 \$0;
#X msg 282 206 \; \$2-muteR color \$1;
#X obj 185 59 route float;
#X obj 88 389 t f f, f 9;
#X obj 148 414 s \$0-volSave;
#X obj 88 439 - 0.5;
#X msg 88 514 set \$1;
#X obj 246 339 spigot 1;
#X msg 299 289 1 \$1;
#X obj 299 314 -;
#X text 315 345 0 = unmuted = passthrough, f 14;
#X connect 0 0 12 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 25 0;
#X connect 4 0 5 0;
#X connect 5 0 21 0;
#X connect 7 0 23 0;
#X connect 8 0 9 0;
#X connect 9 0 24 0;
#X connect 10 0 20 0;
#X connect 11 0 6 0;
#X connect 12 0 2 0;
#X connect 14 0 12 0;
#X connect 14 1 11 0;
#X connect 15 0 20 0;
#X connect 16 0 14 0;
#X connect 16 1 26 0;
#X connect 16 2 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 16 0;
#X connect 21 0 7 0;
#X connect 21 1 22 0;
#X connect 23 0 8 0;
#X connect 24 0 1 0;
#X connect 25 0 6 0;
#X connect 26 0 27 0;
#X connect 27 0 25 1;
#X restore 208 142 pd mapvol;
#X floatatom 268 167 5 0 0 0 - - - 0;
#X floatatom 151 91 7 0 0 0 - - \$0-volRestore 0;
#X msg 268 191 \$1 40;
#X obj 268 216 line~;
#X symbolatom 72 67 10 0 0 0 - \$0-nameR \$0-nameS 0;
#X obj 467 142 inlet~;
#X obj 302 334 *~;
#X obj 366 334 *~;
#X obj 366 383 outlet~;
#X obj 302 383 outlet~;
#X obj 320 89 r \$0-auxL;
#X obj 449 89 r \$0-auxR;
#N canvas 480 60 706 573 setname 0;
#X obj 37 132 r \$0-nameS;
#X obj 37 200 pack s \$0;
#X obj 261 132 r \$0-outnameS;
#X obj 482 300 pack s \$0;
#X obj 261 200 select x, f 32;
#X obj 37 157 t a a;
#X obj 261 300 f \$0;
#X obj 132 132 r \$0-preSwitchS;
#X obj 37 225 list prepend 0;
#X obj 37 275 route 0 1, f 18;
#X obj 37 250 list trim;
#X obj 132 157 t b f;
#X obj 98 300 list;
#X obj 37 300 list;
#N canvas 0 0 450 414 args 0;
#X obj 46 24 loadbang;
#X msg 145 133 args 0;
#X obj 145 158 pdcontrol;
#X obj 145 183 unpack s s;
#X msg 344 133 symbol main;
#X msg 244 133 symbol null;
#X obj 46 241 symbol, f 23;
#X obj 46 108 t b b b b, f 43;
#X obj 46 266 pack s s, f 36;
#X obj 46 291 outlet;
#X text 113 298 reverse the argument order: force in-name to come out
the right \, so that it sets the 'select' box first, f 43;
#X obj 46 49 spigot 1, f 12;
#X obj 127 24 r \$0-useArgs;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 8 1;
#X connect 3 1 6 1;
#X connect 4 0 6 1;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 7 1 1 0;
#X connect 7 2 5 0;
#X connect 7 3 4 0;
#X connect 8 0 9 0;
#X connect 11 0 7 0;
#X connect 12 0 11 1;
#X restore 37 23 pd args;
#X obj 37 48 unpack s s, f 15;
#X obj 139 73 s \$0-nameS;
#X obj 37 73 s \$0-outnameS;
#X msg 261 325 \; \$1-outL set dummy\$1 \; \$1-outR set dummy\$1 \;
\$1-outnameR set .null.;
#X msg 482 325 \; \$2-outnameR set \$1 \; \$2-outL set \$1-auxL \;
\$2-outR set \$1-auxR;
#X msg 37 395 \; \$2-nameR set \$1 \; \$2-auxL set \$1-postL \; \$2-auxR
set \$1-postR;
#X msg 98 325 \; \$2-nameR set \$1 \; \$2-auxL set \$1-preL \; \$2-auxR
set \$1-preR;
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 2 0 4 0;
#X connect 3 0 19 0;
#X connect 4 0 6 0;
#X connect 4 1 3 0;
#X connect 5 0 1 0;
#X connect 5 1 4 1;
#X connect 6 0 18 0;
#X connect 7 0 11 0;
#X connect 8 0 10 0;
#X connect 9 0 13 0;
#X connect 9 1 12 0;
#X connect 10 0 9 0;
#X connect 11 0 1 0;
#X connect 11 1 8 1;
#X connect 12 0 21 0;
#X connect 13 0 20 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 15 1 16 0;
#X restore 75 20 pd setname;
#X obj 598 89 inlet;
#N canvas 311 346 450 300 init 0;
#X obj 76 22 loadbang;
#X obj 76 47 pack \$0 0.785147;
#X msg 76 72 \; \$1-vol \$2;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X restore 184 20 pd init;
#X obj 598 189 s \$0-vol;
#N canvas 83 65 476 591 savestate 0;
#X obj 216 52 inlet;
#X obj 177 111 symbol;
#X obj 72 179 savestate;
#X obj 72 279 list prepend \$0;
#X obj 72 304 list trim;
#X obj 72 254 list, f 11;
#X obj 72 229 delay 10;
#X obj 311 111 r \$0-outnameS;
#X obj 356 52 inlet;
#X obj 177 136 pack s 0 0 s 0, f 26;
#X text 360 23 mute;
#X text 177 301 should do mute state before volume;
#X obj 266 86 r \$0-preSwitchS;
#X obj 72 204 t b a b, f 21;
#X obj 216 229 f \$0;
#X msg 216 254 \; \$1-useArgs 0;
#X obj 262 52 r \$0-volSave;
#X msg 72 329 \; \$1-nameR symbol \$2 \; \$1-muteR \$6 \; \$1-volRestore
\$3 \; \$1-preSwitchR \$4 \; \$1-outnameR symbol \$5;
#X connect 0 0 1 1;
#X connect 1 0 9 0;
#X connect 2 0 13 0;
#X connect 2 1 1 0;
#X connect 3 0 4 0;
#X connect 4 0 17 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 7 0 9 3;
#X connect 8 0 9 4;
#X connect 9 0 2 0;
#X connect 12 0 9 2;
#X connect 13 0 6 0;
#X connect 13 1 5 1;
#X connect 13 2 14 0;
#X connect 14 0 15 0;
#X connect 16 0 9 1;
#X restore 19 192 pd savestate;
#X obj 19 167 r \$0-nameS;
#X symbolatom 72 91 10 0 0 0 - \$0-outnameR \$0-outnameS 0;
#X obj 450 334 r \$0-outL;
#X obj 547 334 r \$0-outR;
#X obj 237 91 tgl 15 0 empty \$0-muteR mute -3 22 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 598 164 curvelin 0 2 0 1 3;
#X obj 598 139 dbtorms;
#X obj 154 70 hsl 96 15 0 1 0 0 empty \$0-vol empty -2 -8 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 211 91 tgl 15 0 \$0-preSwitchS \$0-preSwitchR pre -1 22 0 10
#fcfcfc #000000 #000000 0 1;
#N canvas 0 0 515 352 fwd 0;
#X obj 76 27 inlet;
#X obj 76 52 list append \$0;
#X obj 76 77 list trim;
#X text 213 32 all should be selector arg \; no long messages;
#X obj 294 127 list;
#X obj 221 127 list;
#X obj 148 127 list;
#X obj 76 127 list;
#X msg 76 272 \; \$2-muteR \$1;
#X msg 294 152 \; \$2-outnameR symbol \$1;
#X msg 221 192 \; \$2-nameR symbol \$1;
#X obj 76 102 route mute pre name target, f 42;
#X msg 148 232 \; \$2-preSwitchR \$1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 11 0;
#X connect 4 0 9 0;
#X connect 5 0 10 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 11 0 7 0;
#X connect 11 1 6 0;
#X connect 11 2 5 0;
#X connect 11 3 4 0;
#X restore 366 181 pd fwd;
#X obj 338 142 inlet~ fwd;
#X obj 450 383 throw~ \$0-a;
#X obj 547 383 throw~ \$0-b;
#X text 448 411 temporary names \, will be overridden during init,
f 25;
#X obj 288 20 declare -path hjh-abs -path iemguts;
#X obj 320 114 receive~;
#X obj 449 114 receive~;
#X obj 598 114 + 100;
#X obj 561 60 r \$0-volRestore;
#X connect 0 0 2 0;
#X connect 0 1 1 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 6 0 8 1;
#X connect 7 0 10 0;
#X connect 7 0 29 0;
#X connect 8 0 9 0;
#X connect 8 0 30 0;
#X connect 11 0 33 0;
#X connect 12 0 34 0;
#X connect 14 0 35 0;
#X connect 18 0 17 0;
#X connect 20 0 29 0;
#X connect 21 0 30 0;
#X connect 22 0 17 1;
#X connect 22 0 0 1;
#X connect 23 0 16 0;
#X connect 24 0 23 0;
#X connect 25 0 0 0;
#X connect 28 0 7 1;
#X connect 28 1 27 0;
#X connect 33 0 7 1;
#X connect 34 0 8 1;
#X connect 35 0 24 0;
#X connect 36 0 35 0;
#X coords 0 -1 1 1 201 64 2 61 56;