/
xsssad.pd
executable file
·278 lines (278 loc) · 6.54 KB
/
xsssad.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
277
278
#N canvas 275 125 1039 564 10;
#X obj 159 26 inlet;
#X obj 233 55 list prepend \$1;
#X obj 233 160 list trim;
#X obj 233 25 inlet;
#X obj 22 308 b;
#X obj 159 53 b;
#X obj 233 223 route \$1;
#X obj 543 358 b;
#X obj 543 250 spigot;
#X obj 669 72 loadbang;
#X obj 669 250 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 669 194 select 0;
#X obj 701 141 + 1;
#X obj 669 120 t a a;
#X obj 669 216 f 1;
#X obj 285 505 outlet;
#X obj 159 394 route bang;
#X text 257 384 filter out empty lists;
#X obj 610 474 list prepend persist \$1;
#X obj 159 365 list append;
#X text 231 110 on SSSAD we eavesdrop the communication;
#X text 692 249 <- only the first instance responds to "save";
#X text 165 540 2007/2008 fbar;
#X text 829 95 Enhancement by Enrique Erne;
#X obj 543 425 list append;
#X obj 543 448 route bang;
#X text 627 447 filter out empty lists here \, too.;
#X obj 22 226 route set setonly;
#X obj 80 273 route \$1;
#X obj 80 251 list trim;
#X obj 608 324 route \$1;
#X obj 608 302 list trim;
#X obj 543 277 route save saveonly;
#X obj 610 498 list trim;
#N canvas 519 307 322 286 s-SSSAD 0;
#X obj 63 38 inlet;
#X obj 63 176 s SSSAD;
#X obj 123 176 s \$2-SSSAD;
#X obj 123 39 loadbang;
#N canvas 6 47 450 300 demux2 0;
#X obj 114 91 == 0;
#X obj 190 115 spigot;
#X obj 61 43 inlet;
#X obj 229 46 inlet;
#X obj 61 113 spigot 1;
#X obj 61 156 outlet;
#X obj 190 157 outlet;
#X connect 0 0 4 1;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X restore 63 137 pd demux2;
#X obj 123 81 select 0;
#X msg 123 103 0;
#X msg 176 102 1;
#X obj 123 59 list append \$2;
#X obj 123 39 loadbang;
#X obj 123 81 select 0;
#X msg 123 103 0;
#X msg 176 102 1;
#X obj 123 59 list append \$2;
#X obj 104 15 r \$0-dyna.loadbang;
#X connect 0 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 1 0;
#X connect 4 1 2 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 4 1;
#X connect 7 0 4 1;
#X connect 8 0 5 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 13 0 10 0;
#X connect 14 0 8 0;
#X restore 233 84 pd s-SSSAD;
#N canvas 545 206 330 246 r-SSSAD 0;
#N canvas 0 0 450 300 mux2 0;
#X obj 114 121 == 0;
#X obj 190 145 spigot;
#X obj 61 43 inlet;
#X obj 229 66 inlet;
#X obj 61 143 spigot 1;
#X obj 61 186 outlet;
#X obj 190 45 inlet;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 6 0 1 0;
#X restore 63 167 pd mux2;
#X obj 63 16 r SSSAD;
#X obj 86 41 r \$2-SSSAD;
#X obj 63 201 outlet;
#X obj 109 74 loadbang;
#X obj 109 116 select 0;
#X msg 109 138 0;
#X msg 162 137 1;
#X obj 109 94 list append \$2;
#X obj 167 47 r \$0-dyna.loadbang;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 0 2;
#X connect 7 0 0 2;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X restore 233 136 pd r-SSSAD;
#N canvas 539 183 330 246 r-SSSAD_ADMIN 0;
#N canvas 0 0 450 300 mux2 0;
#X obj 114 121 == 0;
#X obj 190 145 spigot;
#X obj 61 43 inlet;
#X obj 229 66 inlet;
#X obj 61 143 spigot 1;
#X obj 61 186 outlet;
#X obj 190 45 inlet;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 6 0 1 0;
#X restore 63 177 pd mux2;
#X obj 63 211 outlet;
#X obj 63 16 r SSSAD_ADMIN;
#X obj 86 41 r \$2-SSSAD_ADMIN;
#X obj 109 75 loadbang;
#X obj 109 117 select 0;
#X msg 109 139 0;
#X msg 162 138 1;
#X obj 109 95 list append \$2;
#X obj 199 55 r \$0-dyna.loadbang;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 0 2;
#X connect 7 0 0 2;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X restore 543 190 pd r-SSSAD_ADMIN;
#N canvas 519 307 322 286 s-SSSAD_ADMIN 0;
#X obj 63 39 inlet;
#N canvas 0 0 450 300 demux2 0;
#X obj 114 91 == 0;
#X obj 190 115 spigot;
#X obj 61 43 inlet;
#X obj 229 46 inlet;
#X obj 61 113 spigot 1;
#X obj 61 156 outlet;
#X obj 190 157 outlet;
#X connect 0 0 4 1;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X restore 63 137 pd demux2;
#X obj 63 206 s SSSAD_ADMIN;
#X obj 123 176 s \$2-SSSAD_ADMIN;
#X obj 123 39 loadbang;
#X obj 123 81 select 0;
#X msg 123 103 0;
#X msg 176 102 1;
#X obj 123 59 list append \$2;
#X obj 180 19 r \$0-dyna.loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 1 1;
#X connect 7 0 1 1;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X restore 610 522 pd s-SSSAD_ADMIN;
#X obj 669 95 value \$1.\$2.SSSAD.req;
#X obj 701 164 value \$1.\$2.SSSAD.req;
#N canvas 539 183 330 246 r-SSSAD_ADMIN 0;
#N canvas 0 0 450 300 mux2 0;
#X obj 114 121 == 0;
#X obj 190 145 spigot;
#X obj 61 43 inlet;
#X obj 229 66 inlet;
#X obj 61 143 spigot 1;
#X obj 61 186 outlet;
#X obj 190 45 inlet;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 6 0 1 0;
#X restore 63 177 pd mux2;
#X obj 63 211 outlet;
#X obj 63 16 r SSSAD_ADMIN;
#X obj 86 41 r \$2-SSSAD_ADMIN;
#X obj 109 75 loadbang;
#X obj 109 117 select 0;
#X msg 109 139 0;
#X msg 162 138 1;
#X obj 109 95 list append \$2;
#X obj 192 66 r \$0-dyna.loadbang;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 0 2;
#X connect 7 0 0 2;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X restore 22 187 pd r-SSSAD_ADMIN;
#X obj 495 13 inlet dyna.loadbang;
#X obj 495 34 s \$0-dyna.loadbang;
#X obj 650 49 r \$0-dyna.loadbang;
#X obj 451 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 233 423 route float symbol;
#X connect 0 0 5 0;
#X connect 1 0 34 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 4 0 19 0;
#X connect 5 0 19 0;
#X connect 6 0 19 1;
#X connect 6 0 24 1;
#X connect 7 0 24 0;
#X connect 8 0 32 0;
#X connect 9 0 38 0;
#X connect 11 0 14 0;
#X connect 12 0 39 0;
#X connect 13 0 11 0;
#X connect 13 1 12 0;
#X connect 14 0 8 1;
#X connect 14 0 10 0;
#X connect 16 1 45 0;
#X connect 18 0 33 0;
#X connect 19 0 16 0;
#X connect 24 0 25 0;
#X connect 25 1 18 0;
#X connect 27 0 4 0;
#X connect 27 1 29 0;
#X connect 28 0 4 0;
#X connect 29 0 28 0;
#X connect 30 0 7 0;
#X connect 31 0 30 0;
#X connect 32 0 7 0;
#X connect 32 1 31 0;
#X connect 33 0 37 0;
#X connect 35 0 2 0;
#X connect 36 0 8 0;
#X connect 38 0 13 0;
#X connect 40 0 27 0;
#X connect 41 0 42 0;
#X connect 41 0 44 0;
#X connect 43 0 38 0;
#X connect 45 0 15 0;
#X connect 45 1 15 0;