blob: 3f2cf79b69921b3241316643925bde55531418f8 (
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
|
#N canvas 454 264 543 322 10;
#X declare -lib Gem -path ../;
#X obj 52 193 pmpd2d;
#X obj 52 78 loadbang;
#X obj 64 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 263 169 1137 609 creation 0;
#X obj 41 20 inlet;
#X obj 51 48 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 41 77 t b b b b b b b b b b b;
#X msg 255 110 reset;
#X obj 67 581 outlet;
#X obj 162 153 until;
#X obj 162 185 f;
#X obj 234 237 + 1;
#X msg 192 183 0;
#X obj 162 356 pack f f;
#X msg 162 381 mass net 1 1 \$1 \$2;
#X msg 309 553 print;
#X msg 122 407 link link net net 0.1 0.02;
#X obj 386 40 inlet;
#X msg 386 85 setInactive \$1 \, setLinkId \$1 inactive;
#X obj 189 258 random 1000;
#X obj 189 280 / 1000;
#X obj 162 308 random 1000;
#X obj 162 330 / 1000;
#X obj 162 232 t b b f;
#X msg 162 131 200;
#X obj 42 434 t b;
#X msg 57 484 testMass fixing_corner distanceCircleInf 0 1 0.15;
#X msg 47 504 testMass fixing_corner distanceCircleInf 1 0 0.15;
#X msg 37 524 testMass fixing_corner distanceCircleInf 1 1 0.15;
#X msg 67 464 testMass fixing_corner distanceCircleInf 0 0 0.15;
#X obj 610 317 + 1;
#X obj 583 271 gemmouse 1 -1;
#X obj 555 244 spigot;
#X msg 555 368 setFixed \$1 \, setPos \$1 \$2 \$3;
#X obj 555 339 pack f f f;
#X msg 478 117 setFixed \$1 \, setMassId corned;
#X obj 555 192 f;
#X obj 570 145 t f b;
#X obj 597 165 delay 0;
#X text 596 189 select only 1 mass;
#X obj 659 450 change -1;
#X obj 659 474 sel 0;
#X text 702 476 when releasing the mass moved by the mouse \, adapt
lenght of the link connected to this mass to curent length;
#X obj 659 499 f;
#X obj 670 316 delay 1;
#X obj 667 294 t b;
#X msg 651 86 setLCurrent \$1;
#X msg 658 523 testLink adapt_length Id link connectedTo \$1 \, setMobile
\$1;
#X msg 27 228 delLink inactive;
#X msg 95 438 testLink remove_long_link lengthSup 0.15;
#X obj 388 58 route remove_long_link fixing_corner mouse_move adapt_length
;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 44 0;
#X connect 2 2 21 0;
#X connect 2 4 45 0;
#X connect 2 6 12 0;
#X connect 2 9 20 0;
#X connect 2 10 3 0;
#X connect 2 10 8 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 19 0;
#X connect 7 0 6 1;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 46 0;
#X connect 14 0 4 0;
#X connect 15 0 16 0;
#X connect 16 0 9 1;
#X connect 17 0 18 0;
#X connect 18 0 9 0;
#X connect 19 0 17 0;
#X connect 19 1 15 0;
#X connect 19 2 7 0;
#X connect 20 0 5 0;
#X connect 21 0 25 0;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 4 0;
#X connect 23 0 4 0;
#X connect 24 0 4 0;
#X connect 25 0 4 0;
#X connect 26 0 30 2;
#X connect 27 0 30 1;
#X connect 27 0 41 0;
#X connect 27 1 26 0;
#X connect 27 2 28 1;
#X connect 27 2 36 0;
#X connect 28 0 30 0;
#X connect 29 0 4 0;
#X connect 30 0 29 0;
#X connect 31 0 4 0;
#X connect 32 0 28 0;
#X connect 32 0 39 1;
#X connect 33 0 32 1;
#X connect 33 1 34 0;
#X connect 34 0 32 0;
#X connect 36 0 37 0;
#X connect 37 0 39 0;
#X connect 39 0 43 0;
#X connect 40 0 32 0;
#X connect 41 0 40 0;
#X connect 42 0 4 0;
#X connect 43 0 4 0;
#X connect 44 0 4 0;
#X connect 45 0 4 0;
#X connect 46 0 14 0;
#X connect 46 1 31 0;
#X connect 46 2 33 0;
#X connect 46 3 42 0;
#X restore 52 126 pd creation;
#X obj 186 77 gemhead;
#X obj 186 100 t b;
#X obj 54 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#N canvas 1157 484 591 562 linkrender 0;
#X obj 150 9 inlet;
#X obj 67 285 separator;
#X obj 150 148 t b f;
#X obj 67 368 curve 2;
#X obj 177 178 pack f f;
#X msg 177 201 \$1 \$2 0;
#X obj 261 177 pack f f;
#X msg 261 200 \$1 \$2 0;
#X obj 146 97 unpack f f f f f;
#X obj 67 224 gemhead 45;
#X obj 67 116 loadbang;
#X msg 67 174 0;
#X msg 77 337 res 2;
#X obj 77 311 loadbang;
#X obj 145 53 route link;
#X obj 68 246 scaleXYZ 8 8 0;
#X obj 68 265 translateXYZ -0.5 -0.5 0;
#X connect 0 0 14 0;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 2 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 7 0;
#X connect 7 0 3 2;
#X connect 8 1 2 0;
#X connect 8 2 4 1;
#X connect 8 3 6 0;
#X connect 8 4 6 1;
#X connect 9 0 15 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 3 0;
#X connect 13 0 12 0;
#X connect 14 0 8 0;
#X connect 15 0 16 0;
#X connect 16 0 1 0;
#X restore 174 241 pd linkrender;
#X msg 186 122 bang \, linkEnd link;
#N canvas 716 693 763 327 create_gem 0;
#X msg 137 179 0 \, destroy;
#X obj 118 200 gemwin;
#X obj 118 104 inlet;
#X obj 118 129 sel 1 0;
#X msg 118 156 reset \, create \, 1;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 1 0;
#X restore 75 45 pd create_gem;
#N canvas 1169 453 413 534 gemmouse 0;
#X obj 65 218 outlet;
#X obj 95 145 + 1;
#X obj 60 43 gemmouse 1 -1;
#X obj 98 89 sel 1;
#X obj 97 69 change -1;
#X obj 68 167 pack 0 0;
#X obj 70 144 f;
#X obj 97 115 delay 0;
#X msg 66 191 \$1 \$2;
#X connect 1 0 5 1;
#X connect 2 0 6 1;
#X connect 2 1 1 0;
#X connect 2 2 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X restore 188 148 pd gemmouse;
#X obj 52 216 route testLink testMass linkEnd;
#X msg 188 170 testMass mouse_move distanceCircleInf \$1 \$2 0.05;
#X text 50 283 click and drag connection point with mouse to destrod
the net;
#X obj 56 21 declare -lib Gem -path ../;
#X connect 0 0 11 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 8 0 0 0;
#X connect 10 0 12 0;
#X connect 11 0 3 1;
#X connect 11 1 3 1;
#X connect 11 2 7 0;
#X connect 12 0 0 0;
|
