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
|
#N canvas 574 52 839 834 10;
#X obj 52 15 loadbang;
#X obj 314 524 print msd;
#X obj 633 647 gemwin;
#X msg 633 625 0 \, destroy;
#X obj 553 709 gemhead;
#X obj 553 732 world_light;
#X msg 633 562 reset \, create \, lighting 1 \, 1;
#X obj 53 499 msd2D --------------------------------;
#X obj 122 15 cnv 15 500 270 empty empty empty 20 12 0 14 -262131 -66577
0;
#X obj 135 261 t a;
#X obj 135 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
-1;
#X msg 221 71 reset;
#X text 173 21 reset;
#X msg 153 170 50 50;
#X msg 203 91 mass fix 0 100 50 50;
#X msg 169 192 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
#X obj 50 292 cnv 15 572 80 empty empty empty 20 12 0 14 -261689 -66577
0;
#X obj 53 300 gemhead;
#X obj 53 323 t b;
#X obj 50 376 cnv 15 572 110 empty empty empty 20 12 0 14 -262131 -66577
0;
#X msg 82 442 forceX mob 100;
#X msg 208 443 forceY mob 100;
#X text 351 396 SET RIGIDITY AND VISCOSITY OF LINKS;
#X text 367 442 ADD FORCE ON ALL MOBILE MASSES;
#X obj 47 547 cnv 15 400 200 empty empty empty 20 12 0 14 -261689 -66577
0;
#N canvas 284 227 587 558 linkrender 0;
#X obj 93 25 inlet;
#X obj 93 117 / 12.5;
#X obj 93 140 - 4;
#X obj 147 118 / 12.5;
#X obj 147 141 - 4;
#X obj 44 222 separator;
#X obj 44 192 any;
#X obj 93 164 t b f;
#X obj 44 265 curve 2;
#X obj 207 121 / 12.5;
#X obj 207 144 - 4;
#X obj 261 122 / 12.5;
#X obj 261 145 - 4;
#X obj 123 194 pack f f;
#X msg 123 217 \$1 \$2 0;
#X obj 207 193 pack f f;
#X msg 207 216 \$1 \$2 0;
#X obj 93 69 unpack f f f f f;
#X obj 24 137 gemhead 45;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 13 1;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 13 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 8 1;
#X connect 15 0 16 0;
#X connect 16 0 8 2;
#X connect 17 1 1 0;
#X connect 17 2 3 0;
#X connect 17 3 9 0;
#X connect 17 4 11 0;
#X connect 18 0 6 1;
#X restore 62 601 pd linkrender;
#X text 465 563 1 CREATE WINDOW -->;
#X text 464 626 3 AND DESTROY IT! -->;
#X text 464 594 2 DRAG THE STRUCTURE WITH THE MOUSE;
#N canvas 731 296 450 300 gemmouse 0;
#X obj 189 77 gemmouse;
#X obj 189 184 pack f f;
#X obj 189 218 spigot;
#X obj 103 244 outlet;
#X obj 189 131 - 0;
#X obj 216 131 + 100;
#X obj 189 108 / 5;
#X obj 216 108 / -5;
#X obj 79 51 inlet;
#X obj 140 75 inlet;
#X obj 141 120 l;
#X obj 109 98 t b;
#X connect 0 0 6 0;
#X connect 0 1 7 0;
#X connect 0 2 2 1;
#X connect 1 0 2 0;
#X connect 2 0 10 1;
#X connect 4 0 1 0;
#X connect 5 0 1 1;
#X connect 6 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 11 0;
#X connect 9 0 10 1;
#X connect 10 0 3 0;
#X connect 11 0 10 0;
#X restore 104 657 pd gemmouse;
#X obj 104 636 gemhead;
#X msg 105 677 posX fix \$1;
#X msg 106 698 posY fix \$2;
#X text 204 677 SET FIXED MASS TO MOUSE POSITION;
#X msg 186 150 mass mob 1 100 \$1 \$2;
#X obj 135 42 t b b b b b b;
#X msg 186 116 20 50 \, 23 61 \, 29 71 \, 39 77 \, 50 80 \, 61 77 \,
71 71 \, 77 61 \, 80 50 \, 77 39 \, 71 29 \, 61 23 \, 50 20 \, 39 23
\, 29 29 \, 23 39;
#X msg 625 711 0.9 0.9 0.9;
#X obj 62 563 route linksPos;
#X msg 53 345 bang \, get linksPos;
#X text 292 313 COMPUTE AND GET ALL LINKS POSITIONS;
#X text 260 572 DISPLAY LINKS WITH GEM;
#X msg 85 383 setD inter 0;
#X msg 216 384 setK inter 1;
#X msg 216 404 setK inter 2;
#X msg 144 211 link intf mob 0 10 2.5;
#X msg 135 234 link inter mob mob 1 2.5;
#X text 290 43 CREATION : 17 MASSES \, 2 interactor LINKS;
#X connect 0 0 35 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 2 0;
#X connect 7 0 38 0;
#X connect 7 1 1 0;
#X connect 9 0 7 0;
#X connect 10 0 35 0;
#X connect 11 0 9 0;
#X connect 13 0 29 1;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 17 0 18 0;
#X connect 18 0 39 0;
#X connect 20 0 7 0;
#X connect 21 0 7 0;
#X connect 29 0 31 0;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 7 0;
#X connect 32 0 7 0;
#X connect 34 0 9 0;
#X connect 35 0 46 0;
#X connect 35 1 45 0;
#X connect 35 2 13 0;
#X connect 35 2 15 0;
#X connect 35 3 36 0;
#X connect 35 4 14 0;
#X connect 35 5 11 0;
#X connect 36 0 34 0;
#X connect 37 0 5 1;
#X connect 38 0 25 0;
#X connect 39 0 7 0;
#X connect 42 0 7 0;
#X connect 43 0 7 0;
#X connect 44 0 7 0;
#X connect 45 0 9 0;
#X connect 46 0 9 0;
|
