aboutsummaryrefslogtreecommitdiff
path: root/exemples/15_constant_force_field.pd
blob: 6ad4be158446c649e35253c241661fb17c998b7a (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
#N canvas 40 72 795 432 12;
#X obj 16 104 t b b;
#X obj 16 56 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 94 57 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 258 79 0 \, destroy;
#X msg 224 54 reset \, create \, 1;
#N canvas 510 193 970 698 structure 0;
#X obj 124 314 pd_lia \$0;
#X obj 27 290 pd_masse -1 0 \$0;
#X obj 49 445 pd_lia \$0;
#X obj 123 558 pd_masse -0.7 -0.7 \$0;
#X obj 198 502 pd_lia \$0;
#X obj 124 43 pd_masse -0.7 0.7 \$0;
#X obj 189 113 pd_lia \$0;
#X obj 69 161 pd_lia \$0;
#X obj 201 187 pd_lia \$0;
#X obj 213 373 pd_lia \$0;
#X obj 279 598 pd_lia \$0;
#X obj 399 624 pd_masse 0 -1 \$0;
#X obj 410 562 pd_lia \$0;
#X obj 580 585 pd_lia \$0;
#X obj 310 327 pd_lia \$0;
#X obj 388 330 pd_lia \$0;
#X obj 468 330 pd_lia \$0;
#X obj 338 427 pd_lia \$0;
#X obj 509 422 pd_lia \$0;
#X obj 304 26 pd_lia \$0;
#X obj 436 16 pd_masse 0 1 \$0;
#X obj 441 57 pd_lia \$0;
#X obj 347 129 pd_lia \$0;
#X obj 308 231 pd_lia \$0;
#X obj 304 280 pd_lia \$0;
#X obj 393 227 pd_lia \$0;
#X obj 475 227 pd_lia \$0;
#X obj 529 278 pd_lia \$0;
#X obj 604 358 pd_lia \$0;
#X obj 678 291 pd_lia \$0;
#X obj 604 221 pd_lia \$0;
#X obj 499 135 pd_lia \$0;
#X obj 571 43 pd_lia \$0;
#X obj 612 101 pd_lia \$0;
#X obj 749 179 pd_lia \$0;
#X obj 680 64 pd_masse 0.7 0.7 \$0;
#X obj 766 285 pd_masse 1 0 \$0;
#X obj 763 429 pd_lia \$0;
#X obj 671 510 pd_lia \$0;
#X obj 748 552 pd_masse 0.7 -0.7 \$0;
#X obj 407 274 pd_masse 0 0 \$0;
#X connect 0 0 5 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 1 0 6 0;
#X connect 1 0 7 0;
#X connect 1 0 17 0;
#X connect 1 0 22 0;
#X connect 1 0 24 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 0 1;
#X connect 3 0 2 1;
#X connect 3 0 8 1;
#X connect 3 0 10 0;
#X connect 3 0 12 0;
#X connect 3 0 14 0;
#X connect 3 0 18 0;
#X connect 4 0 1 0;
#X connect 4 1 11 0;
#X connect 5 0 0 0;
#X connect 5 0 7 1;
#X connect 5 0 9 0;
#X connect 5 0 19 0;
#X connect 5 0 21 0;
#X connect 5 0 23 0;
#X connect 5 0 31 0;
#X connect 6 0 1 0;
#X connect 6 1 20 0;
#X connect 7 0 1 0;
#X connect 7 1 5 0;
#X connect 8 0 20 0;
#X connect 8 1 3 0;
#X connect 9 0 5 0;
#X connect 9 1 11 0;
#X connect 10 0 3 0;
#X connect 10 1 11 0;
#X connect 11 0 4 1;
#X connect 11 0 9 1;
#X connect 11 0 10 1;
#X connect 11 0 13 0;
#X connect 11 0 15 1;
#X connect 11 0 28 0;
#X connect 11 0 38 0;
#X connect 12 0 3 0;
#X connect 12 1 39 0;
#X connect 13 0 11 0;
#X connect 13 1 39 0;
#X connect 14 0 3 0;
#X connect 14 1 40 0;
#X connect 15 0 40 0;
#X connect 15 1 11 0;
#X connect 16 0 40 0;
#X connect 16 1 39 0;
#X connect 17 0 1 0;
#X connect 17 1 39 0;
#X connect 18 0 3 0;
#X connect 18 1 36 0;
#X connect 19 0 5 0;
#X connect 19 1 20 0;
#X connect 20 0 6 1;
#X connect 20 0 8 0;
#X connect 20 0 19 1;
#X connect 20 0 25 1;
#X connect 20 0 30 0;
#X connect 20 0 32 0;
#X connect 20 0 33 0;
#X connect 21 0 5 0;
#X connect 21 1 35 0;
#X connect 22 0 1 0;
#X connect 22 1 35 0;
#X connect 23 0 5 0;
#X connect 23 1 40 0;
#X connect 24 0 1 0;
#X connect 24 1 40 0;
#X connect 25 0 40 0;
#X connect 25 1 20 0;
#X connect 26 0 40 0;
#X connect 26 1 35 0;
#X connect 27 0 40 0;
#X connect 27 1 36 0;
#X connect 28 0 11 0;
#X connect 28 1 35 0;
#X connect 29 0 39 0;
#X connect 29 1 35 0;
#X connect 30 0 20 0;
#X connect 30 1 39 0;
#X connect 31 0 5 0;
#X connect 31 1 36 0;
#X connect 32 0 20 0;
#X connect 32 1 35 0;
#X connect 33 0 20 0;
#X connect 33 1 36 0;
#X connect 34 0 35 0;
#X connect 34 1 36 0;
#X connect 35 0 21 1;
#X connect 35 0 22 1;
#X connect 35 0 26 1;
#X connect 35 0 28 1;
#X connect 35 0 29 1;
#X connect 35 0 32 1;
#X connect 35 0 34 0;
#X connect 36 0 18 1;
#X connect 36 0 27 1;
#X connect 36 0 31 1;
#X connect 36 0 33 1;
#X connect 36 0 34 1;
#X connect 36 0 37 0;
#X connect 36 0 38 1;
#X connect 37 0 36 0;
#X connect 37 1 39 0;
#X connect 38 0 11 0;
#X connect 38 1 36 0;
#X connect 39 0 12 1;
#X connect 39 0 13 1;
#X connect 39 0 16 1;
#X connect 39 0 17 1;
#X connect 39 0 29 0;
#X connect 39 0 30 1;
#X connect 39 0 37 1;
#X connect 40 0 14 1;
#X connect 40 0 15 0;
#X connect 40 0 16 0;
#X connect 40 0 23 1;
#X connect 40 0 24 1;
#X connect 40 0 25 0;
#X connect 40 0 26 0;
#X connect 40 0 27 0;
#X restore 372 150 pd structure;
#X msg 590 101 force2D 0 5;
#X msg 646 127 force2D 5 0;
#N canvas 623 135 504 293 init 0;
#X msg 200 169 setK \$1;
#X msg 274 143 setD \$1;
#X msg 416 115 setM \$1;
#X floatatom 200 94 5 -10 200 0 - - -;
#X floatatom 274 92 5 0 0 0 - - -;
#X floatatom 416 92 5 0 0 0 - - -;
#X obj 200 143 / 10;
#X obj 200 117 + 1;
#X obj 274 116 / 10;
#X msg 200 67 100;
#X msg 274 68 25;
#X msg 416 66 50;
#X floatatom 341 92 5 0 0 0 - - -;
#X obj 341 116 / 10;
#X msg 341 143 setD2 \$1;
#X msg 341 68 1;
#X obj 200 201 s \$0-lia;
#X obj 416 143 s \$0-masse;
#X obj 42 50 loadbang;
#X obj 44 202 s \$0-masse;
#X msg 44 84 setXmin -3.8;
#X msg 57 109 setXmax 3.8;
#X msg 75 133 setYmin -3.8;
#X msg 88 159 setYmax 3.8;
#X connect 0 0 16 0;
#X connect 1 0 16 0;
#X connect 2 0 17 0;
#X connect 3 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 12 0;
#X connect 18 0 20 0;
#X connect 18 0 21 0;
#X connect 18 0 22 0;
#X connect 18 0 23 0;
#X connect 20 0 19 0;
#X connect 21 0 19 0;
#X connect 22 0 19 0;
#X connect 23 0 19 0;
#X restore 372 123 pd init;
#X obj 117 52 loadbang;
#X msg 592 155 force2D 0 -5;
#X msg 535 128 force2D -5 0;
#X obj 51 181 s \$0-lia;
#X obj 16 209 s \$0-masse;
#X obj 591 187 s \$0-masse;
#X msg 145 108 reset;
#X msg 119 132 resetL;
#X msg 94 153 resetF;
#X obj 94 81 t b b b;
#X obj 223 176 color 1 0 0;
#X obj 223 231 rectangle 2 1;
#X obj 223 146 gemhead 40;
#X obj 223 205 translateXYZ -2 -3 0;
#X text 437 310 <- positive Y force : just in the red square;
#X text 239 284 <- negative Y force (gravity) everywhere.;
#X text 92 361 the red square is a place with force from bottom to
top. like a ball in wather.;
#X obj 16 77 metro 50;
#X obj 224 107 gemwin;
#X obj 26 285 iAmbient2D \$0-masse 0 -1;
#X obj 24 309 iAmbient2D \$0-masse 0 3 0 0 0 -4 0 -4 -2;
#X text 285 -27 This is the same ball as prevuis exemple \, but in
a differents context.;
#X obj 646 72 loadbang;
#X text 40 54 <- 1;
#X text 359 55 <- 2;
#X text 579 212 move the structure;
#X connect 0 0 13 0;
#X connect 0 1 12 0;
#X connect 0 1 28 0;
#X connect 0 1 29 0;
#X connect 1 0 26 0;
#X connect 2 0 18 0;
#X connect 3 0 27 0;
#X connect 4 0 27 0;
#X connect 6 0 14 0;
#X connect 7 0 14 0;
#X connect 9 0 18 0;
#X connect 10 0 14 0;
#X connect 11 0 14 0;
#X connect 15 0 13 0;
#X connect 16 0 12 0;
#X connect 17 0 12 0;
#X connect 18 0 17 0;
#X connect 18 1 16 0;
#X connect 18 2 15 0;
#X connect 19 0 22 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
#X connect 26 0 0 0;
#X connect 31 0 7 0;