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
279
280
281
282
283
|
#N canvas 928 576 807 445 10;
#N canvas 766 276 694 538 create_corde 0;
#X obj 352 461 t a;
#X msg 505 158 reset;
#X obj 167 55 t b b b b b b;
#X obj 168 7 inlet;
#X obj 184 32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 352 485 outlet;
#X obj 293 256 % 128;
#X obj 293 278 pack f f;
#X msg 416 150 128;
#X obj 416 185 until;
#N canvas 157 402 342 362 _until 0;
#X obj 41 44 inlet;
#X obj 87 202 until;
#X obj 87 244 f;
#X obj 105 270 + 1;
#X msg 148 212 0;
#X obj 87 321 outlet;
#X obj 87 151 t f b;
#X obj 41 67 route bang float;
#X obj 41 95 t b b;
#X obj 87 178 f 128;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 6 0 9 0;
#X connect 6 1 4 0;
#X connect 7 0 8 0;
#X connect 7 1 6 0;
#X connect 8 0 9 0;
#X connect 8 1 4 0;
#X connect 9 0 1 0;
#X restore 293 193 pd _until;
#X obj 293 233 + 1;
#X obj 293 213 t f f;
#X msg 292 299 link souple \$1 \$2 0.01 0.2;
#X msg 208 351 setL souple 0;
#X msg 416 211 mass mob 1 1 0;
#X msg 241 331 mass fix 0 0 0;
#X msg 383 237 Xmax 5 \, Xmin -5;
#X msg 159 380 link souple2 fix mob 0.0001 0.001;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 18 0;
#X connect 2 0 14 0;
#X connect 2 1 16 0;
#X connect 2 2 10 0;
#X connect 2 3 17 0;
#X connect 2 4 8 0;
#X connect 2 5 1 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 15 0;
#X connect 10 0 12 0;
#X connect 11 0 6 0;
#X connect 12 0 11 0;
#X connect 12 1 7 1;
#X connect 13 0 0 0;
#X connect 14 0 0 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 0 0;
#X restore 66 97 pd create_corde;
#X obj 66 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 173 91 metro 3;
#X msg 657 241 forceX \$1 \$2;
#X obj 314 295 gemwin;
#X msg 367 232 destroy;
#X obj 82 70 loadbang;
#X obj 458 277 dac~;
#X obj 657 263 s \$0-pmpd;
#X obj 77 122 r \$0-pmpd;
#N canvas 756 311 787 602 sound 0;
#X obj 103 18 loadbang;
#X floatatom 103 145 5 0 0 0 - - -, f 5;
#X floatatom 317 147 5 0 0 0 - - -, f 5;
#X floatatom 537 146 5 0 0 0 - - -, f 5;
#X obj 255 381 *~ 0.3;
#X obj 235 405 hip~ 19;
#X obj 426 378 *~ 0.3;
#X obj 406 402 hip~ 19;
#X obj 317 126 * 1.201;
#X obj 537 126 * 1.424;
#X floatatom 103 65 5 0 0 0 - - -, f 5;
#X obj 103 85 f;
#X msg 103 41 55;
#X obj 235 430 outlet~;
#X obj 406 426 outlet~;
#X obj 103 163 ping_pong_play corde_table 131 86;
#X obj 317 165 ping_pong_play corde_table 131 90;
#X obj 537 164 ping_pong_play corde_table 131 88;
#X obj 738 17 loadbang;
#X connect 0 0 12 0;
#X connect 1 0 15 0;
#X connect 2 0 16 0;
#X connect 3 0 17 0;
#X connect 4 0 5 0;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 14 0;
#X connect 8 0 2 0;
#X connect 9 0 3 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 11 0 8 0;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 15 0 5 0;
#X connect 15 0 7 0;
#X connect 16 0 5 0;
#X connect 16 0 6 0;
#X connect 17 0 4 0;
#X connect 17 0 7 0;
#X connect 18 0 15 1;
#X connect 18 0 16 1;
#X connect 18 0 17 1;
#X restore 457 217 pd sound;
#N canvas 805 430 528 522 render_gem 0;
#X obj 51 32 gemhead;
#N canvas 784 146 473 504 gemlist 0;
#X obj 58 45 inlet;
#X obj 255 47 inlet;
#X obj 58 252 spigot 0;
#X msg 103 229 0;
#X text 106 187 last gemhead;
#X obj 103 205 gemhead -1e+33;
#X obj 58 290 gemlist;
#X obj 255 68 t a a;
#X obj 255 118 route float;
#X msg 318 142 1;
#X obj 58 333 outlet;
#X obj 255 94 route gem_state;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 3 0 2 1;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 7 1 6 1;
#X connect 8 1 9 0;
#X connect 9 0 2 1;
#X connect 11 0 8 0;
#X restore 51 115 pd gemlist;
#X obj 51 94 until;
#X msg 51 73 128;
#X msg 102 210 360;
#X obj 102 190 loadbang;
#X obj 51 254 rotateXYZ;
#X obj 70 279 loadbang;
#X obj 217 219 f;
#X obj 255 254 + 1;
#X obj 51 52 t b a b;
#X msg 232 196 0;
#X obj 51 138 t a b;
#X msg 217 306 \$1 3 0;
#X obj 51 371 curve 3;
#X obj 102 231 / 128;
#X msg 86 329 0 1 0;
#X msg 70 300 0.2 0.5 0;
#X obj 217 279 tabread corde_table;
#X connect 0 0 10 0;
#X connect 1 0 12 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 5 0 4 0;
#X connect 6 0 14 0;
#X connect 7 0 17 0;
#X connect 7 0 16 0;
#X connect 8 0 9 0;
#X connect 8 0 18 0;
#X connect 9 0 8 1;
#X connect 10 0 3 0;
#X connect 10 1 1 1;
#X connect 10 2 11 0;
#X connect 11 0 8 1;
#X connect 12 0 6 0;
#X connect 12 1 8 0;
#X connect 13 0 14 3;
#X connect 15 0 6 3;
#X connect 16 0 14 2;
#X connect 17 0 14 1;
#X connect 18 0 13 0;
#X restore 316 328 pd render_gem;
#X obj 102 407 table corde_table 131;
#X obj 66 210 route mob;
#X obj 66 234 route 0 1 2;
#X obj 66 281 tabwrite corde_table;
#X msg 183 259 128;
#X obj 87 328 tabwrite corde_table;
#X obj 108 374 tabwrite corde_table;
#X msg 204 306 129;
#X msg 225 353 130;
#X obj 225 225 loadbang;
#X msg 66 259 \$1;
#X msg 87 305 \$1;
#X msg 108 353 \$1;
#X msg 173 115 bang \, massesPosXT corde_table \, massPos 0 \, massPos
1 \, massPos 2;
#X obj 66 189 route massPos;
#X obj 458 240 *~ 0.1;
#X obj 503 240 *~ 0.1;
#X msg 577 353 setK souple \$1;
#X obj 577 314 + 1;
#X obj 605 152 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 577 152 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X msg 314 209 reset \, create \, 1;
#X obj 674 373 s \$0-pmpd;
#X obj 577 373 s \$0-pmpd;
#X text 577 125 K;
#X text 607 124 D;
#X text 311 4 scann synthesis example;
#X msg 333 264 dsp 1;
#X obj 381 295 s pd;
#X msg 381 264 dsp 0;
#X obj 314 51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 314 180 route 1 0;
#X text 86 43 reset;
#X obj 66 168 pmpd --------;
#X msg 674 352 setD souple \$1;
#X floatatom 657 201 5 -1 1 0 - - -, f 5;
#X msg 657 219 0 \$1;
#X obj 579 333 / 500;
#X obj 674 328 / 500;
#X connect 0 0 45 0;
#X connect 1 0 0 0;
#X connect 2 0 25 0;
#X connect 3 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 9 0 45 0;
#X connect 10 0 27 0;
#X connect 10 1 28 0;
#X connect 13 0 14 0;
#X connect 14 0 22 0;
#X connect 14 1 23 0;
#X connect 14 2 24 0;
#X connect 16 0 15 1;
#X connect 19 0 17 1;
#X connect 20 0 18 1;
#X connect 21 0 16 0;
#X connect 21 0 19 0;
#X connect 21 0 20 0;
#X connect 22 0 15 0;
#X connect 23 0 17 0;
#X connect 24 0 18 0;
#X connect 25 0 45 0;
#X connect 26 0 13 0;
#X connect 27 0 7 0;
#X connect 28 0 7 1;
#X connect 29 0 35 0;
#X connect 30 0 49 0;
#X connect 31 0 50 0;
#X connect 32 0 30 0;
#X connect 33 0 4 0;
#X connect 39 0 40 0;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 0 2 0;
#X connect 43 0 33 0;
#X connect 43 0 39 0;
#X connect 43 1 41 0;
#X connect 43 1 5 0;
#X connect 45 0 26 0;
#X connect 46 0 34 0;
#X connect 47 0 48 0;
#X connect 48 0 3 0;
#X connect 49 0 29 0;
#X connect 50 0 46 0;
|
