-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathpp.in~.pd
272 lines (272 loc) · 6.3 KB
/
pp.in~.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
#N canvas 232 125 921 570 10;
#X msg 577 322 \$1 50;
#X obj 577 344 line~;
#X obj 439 384 *~;
#X obj 103 115 hsl 100 17 0 1 0 0 \$0-vol \$0-volr 0db 5 8 2 10 -228856
-1 -1 0 1;
#X obj 345 358 s \$0-volr;
#X msg 345 336 label \$1db;
#X obj 348 32 r \$0-vol;
#X obj 345 176 * 100;
#X obj 348 135 sqrt;
#X obj 346 156 sqrt;
#X obj 577 300 dbtorms;
#X obj 345 275 * 10;
#X obj 345 295 i;
#X obj 345 316 / 10;
#X obj 746 49 inlet;
#X obj 439 416 outlet~;
#X obj 440 315 adc~ \$1;
#X msg 365 516 label \$1;
#X obj 365 537 s \$0-lev;
#X obj 365 448 i;
#X obj 365 493 makefilename %ddb;
#X obj 365 428 + 0.5;
#X obj 365 471 change;
#X obj 206 115 cnv 12 24 17 empty empty empty 3 8 2 10 -1 -66577 0
;
#X obj 206 116 cnv 15 24 15 empty \$0-lev 0db 2 8 2 10 -228856 -1 0
;
#X obj 598 99 sel 0;
#X obj 598 57 loadbang;
#X obj 598 78 f \$1;
#X obj 365 405 env~ 8192;
#X obj 440 266 r \$0-set;
#N canvas 390 172 450 330 outlet-message 0;
#X obj 212 16 r \$0-set;
#X obj 116 151 pack;
#X obj 187 320 list trim;
#X msg 107 311 addcomma;
#X msg 43 318 set;
#X obj 187 297 list prepend add2;
#X obj 187 398 outlet;
#X msg 138 204 volume \$1 \, channel \$2;
#X obj 116 -12 r \$0-vol;
#X obj 116 55 * 100;
#X obj 116 8 sqrt;
#X obj 116 28 sqrt;
#X obj 116 79 t b f;
#X obj 116 102 del 0;
#X obj 116 125 f;
#X obj 212 39 t b f;
#X obj 138 231 t b a a;
#X obj 116 174 t b a b;
#N canvas 497 347 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 184 260 pd save;
#X connect 0 0 15 0;
#X connect 1 0 17 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 7 0 16 0;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 13 0;
#X connect 12 1 14 1;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X connect 15 0 13 0;
#X connect 15 1 1 1;
#X connect 16 0 3 0;
#X connect 16 1 5 0;
#X connect 16 2 18 0;
#X connect 17 0 6 0;
#X connect 17 1 7 0;
#X connect 17 2 4 0;
#X restore 739 462 pd outlet-message;
#X obj 598 147 s \$0-set;
#X obj 739 492 outlet;
#X text 717 534 philipp schmalfuß \, 2018;
#X msg 440 287 set \$1;
#X msg 598 120 1;
#N canvas 978 317 373 281 in 0;
#X obj 22 15 inlet;
#X obj 22 124 / 100;
#X obj 22 145 pow 4;
#X obj 22 202 s \$0-volr;
#X obj 80 138 s \$0-set;
#X obj 22 101 route volume channel;
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 47 52 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 114 76 pd recall;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X connect 7 0 5 0;
#X restore 747 74 pd in;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 15 0;
#X connect 2 0 28 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 5 0;
#X connect 14 0 36 0;
#X connect 16 0 2 0;
#X connect 17 0 18 0;
#X connect 19 0 22 0;
#X connect 20 0 17 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
#X connect 25 0 35 0;
#X connect 25 1 31 0;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 28 0 21 0;
#X connect 29 0 34 0;
#X connect 30 0 32 0;
#X connect 34 0 16 0;
#X connect 35 0 31 0;
#X coords 0 -1 1 1 131 35 1 100 100;