aboutsummaryrefslogtreecommitdiff
path: root/examples/23_test.pd
blob: 49d96305ae889b5c2380086881f736c27907c9c3 (plain)
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
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
#N canvas 504 120 537 727 10;
#X declare -lib Gem;
#X obj 17 90 t b b;
#X obj 17 19 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 65 85 loadbang;
#X msg 65 107 reset;
#X msg 175 128 0 \, destroy;
#X obj 17 130 s mass;
#X obj 11 496 gemhead;
#X obj 11 529 translateXYZ;
#X obj 8 471 unpack s f f;
#X obj 17 63 metro 5;
#X obj 11 558 sphere 0.2;
#X msg 198 150 reset \, dimen 400 800 \, create \, 1;
#N canvas 435 26 414 248 bords 0;
#X obj 10 9 inlet;
#X obj 39 165 curve 2;
#X obj 37 101 gemhead;
#X obj 101 116 loadbang;
#X obj 198 166 curve 2;
#X obj 196 102 gemhead;
#X obj 260 117 loadbang;
#X msg 66 141 -2 1 0;
#X msg 225 142 2 1 0;
#X msg 130 139 -1 -3 0;
#X msg 289 140 1 -3 0;
#X obj 18 34 iSeg2D mass -2 1 -1 -3 10 0 0 1 0.3 0.3;
#X obj 18 58 iSeg2D mass 1 -3 2 1 10 0 0 1 0.3 0.3;
#X connect 0 0 11 0;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 3 0 9 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 6 0 10 0;
#X connect 7 0 1 1;
#X connect 8 0 4 1;
#X connect 9 0 1 2;
#X connect 10 0 4 2;
#X restore 71 237 pd bords;
#N canvas 585 242 753 499 curseur 0;
#X obj 23 20 inlet;
#X obj 343 300 curve 2;
#X obj 343 247 gemhead;
#X obj 516 23 loadbang;
#X obj 568 307 curve 2;
#X obj 568 257 gemhead;
#X obj 399 143 sin;
#X obj 361 142 cos;
#X obj 400 166 * 0.8;
#X obj 362 167 * 0.8;
#X obj 360 216 pack f f 0;
#X obj 365 118 t f f;
#X obj 362 189 - 1;
#X obj 400 190 - 2.5;
#X obj 363 49 sel 0 1;
#X obj 364 96 line;
#X obj 365 24 inlet;
#X obj 625 146 sin;
#X obj 587 145 cos;
#X obj 586 219 pack f f 0;
#X obj 591 121 t f f;
#X obj 589 52 sel 0 1;
#X obj 590 99 line;
#X obj 591 27 inlet;
#X obj 588 170 * -0.8;
#X obj 626 169 * -0.8;
#X msg 362 70 -0.6 50;
#X msg 419 71 0.3 50;
#X msg 588 73 0.6 50;
#X msg 644 74 -0.3 50;
#X obj 627 194 - 2.5;
#X obj 588 192 + 1;
#X msg 380 274 -1.3 -2.5 0;
#X msg 605 280 1.3 -2.5 0;
#X msg 434 387 setX1 \$1;
#X msg 442 412 setY1 \$1;
#X msg 265 319 setX2 \$1;
#X msg 285 344 setY2 \$1;
#X obj 40 387 iSeg2D mass -1.3 -2.5 0 0 0.4 0 0 1 0.5 0.5;
#X obj 26 441 iSeg2D mass 0 0 1.3 -2.5 0.4 0 0 1 0.5 0.5;
#X connect 0 0 38 0;
#X connect 0 0 39 0;
#X connect 2 0 1 0;
#X connect 3 0 32 0;
#X connect 3 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 13 0;
#X connect 9 0 12 0;
#X connect 10 0 1 1;
#X connect 11 0 7 0;
#X connect 11 1 6 0;
#X connect 12 0 10 0;
#X connect 12 0 36 0;
#X connect 13 0 10 1;
#X connect 13 0 37 0;
#X connect 14 0 26 0;
#X connect 14 1 27 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X connect 17 0 25 0;
#X connect 18 0 24 0;
#X connect 19 0 4 1;
#X connect 20 0 18 0;
#X connect 20 1 17 0;
#X connect 21 0 28 0;
#X connect 21 1 29 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 24 0 31 0;
#X connect 25 0 30 0;
#X connect 26 0 15 0;
#X connect 27 0 15 0;
#X connect 28 0 22 0;
#X connect 29 0 22 0;
#X connect 30 0 19 1;
#X connect 30 0 35 0;
#X connect 31 0 19 0;
#X connect 31 0 34 0;
#X connect 32 0 1 2;
#X connect 33 0 4 2;
#X connect 34 0 39 0;
#X connect 35 0 39 0;
#X connect 36 0 38 0;
#X connect 37 0 38 0;
#X restore 46 357 pd curseur;
#N canvas 401 13 480 352 bords2 0;
#X obj 10 9 inlet;
#X obj 78 189 curve 2;
#X obj 76 125 gemhead;
#X obj 140 140 loadbang;
#X obj 237 190 curve 2;
#X obj 235 126 gemhead;
#X obj 299 141 loadbang;
#X msg 105 165 -1.8 4 0;
#X msg 169 163 -1.8 -1 0;
#X msg 264 166 1.8 4 0;
#X msg 327 164 1.8 -1 0;
#X obj 42 51 iSeg2D mass -1.8 4 -1.8 -1 2 0 0 0.4 0.4 0.5;
#X obj 42 75 iSeg2D mass 1.8 -1.2 1.8 4 2 0 0 0.4 0.4 0.5;
#X connect 0 0 11 0;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 3 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 1 1;
#X connect 8 0 1 2;
#X connect 9 0 4 1;
#X connect 10 0 4 2;
#X restore 71 261 pd bords2;
#X obj 54 332 gemmouse;
#N canvas 399 45 480 347 top 0;
#X obj 10 9 inlet;
#X obj 78 189 curve 2;
#X obj 76 125 gemhead;
#X obj 140 140 loadbang;
#X msg 105 165 4 3.5 0;
#X msg 169 163 -4 3.5 0;
#X obj 16 47 iSeg2D mass 4 3.5 -4 3.5 2 0 0 0.4 0.4 0.4;
#X connect 0 0 6 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 1 1;
#X connect 5 0 1 2;
#X restore 71 284 pd top;
#N canvas 567 215 490 520 circle 0;
#X obj 23 15 inlet;
#X obj 26 323 gemhead;
#X obj 26 347 translateXYZ 0 2.5 0;
#X obj 27 428 sphere 0.3;
#X obj 157 324 gemhead;
#X obj 158 429 sphere 0.3;
#X obj 288 325 gemhead;
#X obj 289 430 sphere 0.3;
#X obj 157 348 translateXYZ 1 1.5 0;
#X obj 288 349 translateXYZ -1 1.5 0;
#X obj 36 51 iCircle2D mass 0 2.5 0 0.3 1;
#X obj 36 75 iCircle2D mass 1 1.5 0 0.3 1;
#X obj 37 97 iCircle2D mass -1 1.5 0 0.3 1;
#X obj 26 372 color 1 1 1;
#X obj 156 370 color 1 1 1;
#X obj 287 371 color 1 1 1;
#X msg 100 280 1 1 1;
#X msg 85 233 1 0 0;
#X obj 91 188 r color1;
#X obj 90 211 sel 1;
#X obj 100 258 delay 200;
#X msg 214 282 1 1 1;
#X msg 199 235 1 0 0;
#X obj 204 213 sel 1;
#X obj 214 260 delay 200;
#X msg 344 271 1 1 1;
#X msg 329 224 1 0 0;
#X obj 334 202 sel 1;
#X obj 344 249 delay 200;
#X obj 205 190 r color2;
#X obj 335 179 r color3;
#X connect 0 0 10 0;
#X connect 0 0 11 0;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 4 0 8 0;
#X connect 6 0 9 0;
#X connect 8 0 14 0;
#X connect 9 0 15 0;
#X connect 13 0 3 0;
#X connect 14 0 5 0;
#X connect 15 0 7 0;
#X connect 16 0 13 1;
#X connect 17 0 13 1;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 16 0;
#X connect 21 0 14 1;
#X connect 22 0 14 1;
#X connect 23 0 22 0;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X connect 25 0 15 1;
#X connect 26 0 15 1;
#X connect 27 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 25 0;
#X connect 29 0 23 0;
#X connect 30 0 27 0;
#X restore 70 215 pd circle;
#X obj 8 440 mass2D mass 10 1.5 3.4;
#X msg 128 400 \; mass reset \;;
#X obj 121 296 loadbang;
#X msg 121 320 0;
#X obj 70 193 iAmbient2D mass 0 -0.001 0 0 0.003;
#X obj 140 496 change;
#X obj 140 538 change;
#X obj 139 580 change;
#X obj 103 649 f;
#X obj 103 673 + 1;
#X obj 103 621 sel 1;
#X floatatom 103 696 5 0 0 0 - - -;
#X text 153 696 <- score;
#X obj 185 495 s color1;
#X obj 185 538 s color2;
#X obj 187 579 s color3;
#X msg 69 620 -1;
#X floatatom 54 40 5 0 0 0 - - -;
#X text 180 440 Change the color if the mass in in interaction with
a circle.;
#X text 244 15 How to use test objects;
#X text 45 17 <- begin;
#X obj 252 235 keyname;
#X msg 289 285 1;
#X msg 332 284 0;
#X obj 252 315 spigot;
#X obj 363 234 keyname;
#X msg 400 284 1;
#X msg 449 283 0;
#X obj 363 314 spigot;
#X obj 289 260 sel Left;
#X obj 400 260 sel Right;
#X obj 127 354 key;
#X obj 127 375 sel 32;
#X obj 140 474 tCircle2D 0 2.5 0 0.3;
#X obj 140 516 tCircle2D 1 1.5 0 0.3;
#X obj 139 558 tCircle2D -1 1.5 0 0.3;
#X text 172 34 Test object (tCircle)can test the position of a mass.
;
#X text 168 52 this is use to count the score and make some animation
then the mass is bouncing somewhere;
#X obj 161 171 gemwin 50;
#X msg 161 98 reset \, create \, 1;
#X obj 15 -3 declare -lib Gem;
#X connect 0 0 5 0;
#X connect 0 1 12 0;
#X connect 0 1 13 0;
#X connect 0 1 14 0;
#X connect 0 1 16 0;
#X connect 0 1 22 0;
#X connect 0 1 17 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 56 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 1 7 1;
#X connect 8 2 7 2;
#X connect 9 0 0 0;
#X connect 11 0 56 0;
#X connect 15 2 13 1;
#X connect 15 3 19 0;
#X connect 15 3 34 0;
#X connect 15 4 13 2;
#X connect 18 0 8 0;
#X connect 18 0 51 0;
#X connect 18 0 52 0;
#X connect 18 0 53 0;
#X connect 20 0 21 0;
#X connect 21 0 13 2;
#X connect 21 0 13 1;
#X connect 23 0 28 0;
#X connect 23 0 31 0;
#X connect 24 0 28 0;
#X connect 24 0 32 0;
#X connect 25 0 28 0;
#X connect 25 0 33 0;
#X connect 26 0 27 0;
#X connect 27 0 26 1;
#X connect 27 0 29 0;
#X connect 28 0 26 0;
#X connect 34 0 26 0;
#X connect 35 0 9 1;
#X connect 39 0 42 0;
#X connect 39 1 47 0;
#X connect 40 0 42 1;
#X connect 41 0 42 1;
#X connect 42 0 13 1;
#X connect 43 0 46 0;
#X connect 43 1 48 0;
#X connect 44 0 46 1;
#X connect 45 0 46 1;
#X connect 46 0 13 2;
#X connect 47 0 40 0;
#X connect 47 1 41 0;
#X connect 48 0 44 0;
#X connect 48 1 45 0;
#X connect 49 0 50 0;
#X connect 50 0 19 0;
#X connect 50 0 34 0;
#X connect 51 0 23 0;
#X connect 52 0 24 0;
#X connect 53 0 25 0;
#X connect 57 0 56 0;