aboutsummaryrefslogtreecommitdiff
path: root/extensions/xgui/physics/spring.pd
blob: b5f75d288ef1516f6777f2f0fedce870d9055df1 (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
#N canvas 207 165 1045 677 10;
#X obj 13 33 inlet;
#X obj 21 119 concat !xy;
#X obj 40 144 concat ?xy;
#X obj 97 120 concat !xy;
#X obj 118 143 concat ?xy;
#X text 912 34 k : N/m;
#X obj 899 64 inlet;
#X obj 175 319 outlet;
#X obj 16 206 convert xy= xy1=;
#X obj 157 206 convert xy= xy1=;
#X obj 899 87 route mass;
#X obj 338 358 vector \$1_calcul_l;
#X obj 411 270 convert xy= add;
#X obj 353 190 t b b b b;
#X msg 453 222 !xy 0 0;
#X obj 337 405 value \$1_l;
#X obj 198 120 value \$1_l;
#X msg 198 143 l= \$1;
#X msg 375 224 ?xy;
#X msg 413 223 ?xy;
#X msg 337 225 ?abs;
#X obj 338 382 route abs=;
#X obj 292 121 value \$1_k;
#X obj 374 15 valueinit \$1_k \$2;
#X obj 292 144 concat k=;
#X msg 714 565 !abs \$1;
#X text 642 29 k : N/m;
#X obj 653 61 inlet;
#X obj 653 84 route mass;
#X obj 607 600 force \$1_s1;
#X msg 653 571 !abs \$1;
#X obj 701 632 outlet;
#X obj 376 146 force \$1_s1;
#X obj 724 537 * -1;
#X text 10 7 spring name k l x1 y1 x2 y2;
#X obj 374 40 valueinit \$1_l \$3;
#X obj 483 146 force \$1_s2;
#X msg 376 124 ?force;
#X msg 482 125 ?force;
#X obj 13 53 route !xy1 ?xy1 !xy2 ?xy2 !l ?l l !k ?k ?force1 ?force2;
#X msg 653 108 !xy \$1 \$2;
#X msg 899 111 !xy \$1 \$2;
#X obj 653 162 r b_spring;
#X obj 719 598 force \$1_s2;
#X obj 774 284 convert xy= add;
#X msg 816 236 !xy 0 0;
#X msg 738 238 ?xy;
#X msg 776 237 ?xy;
#X msg 665 236 ?abs;
#X obj 701 372 vector \$1_calcul_kl;
#X obj 683 442 value \$1_l;
#X obj 683 466 -;
#X obj 661 514 *;
#X obj 661 484 value \$1_k;
#X obj 651 193 t b b b b b b b;
#X msg 705 237 ?xy;
#X obj 700 394 route abs= xy=;
#X obj 813 625 outlet;
#X text 853 515 dh20020404;
#X obj 16 178 vector \$1_p1 \$4 \$5;
#X obj 157 179 vector \$1_p2 \$6 \$7;
#X obj 410 247 vector \$1_p1 \$4 \$5;
#X obj 376 296 vector \$1_p2 \$6 \$7;
#X obj 773 261 vector \$1_p1 \$4 \$5;
#X obj 739 310 vector \$1_p2 \$6 \$7;
#X obj 653 130 vector \$1_p1 \$4 \$5;
#X obj 899 133 vector \$1_p2 \$6 \$7;
#X msg 292 98 bang;
#X msg 198 96 bang;
#X msg 746 418 !force \$1 \$2;
#X obj 376 318 convert xy= substract;
#X obj 739 332 convert xy= substract;
#X connect 0 0 39 0;
#X connect 1 0 59 0;
#X connect 2 0 59 0;
#X connect 3 0 60 0;
#X connect 4 0 60 0;
#X connect 6 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 41 0;
#X connect 11 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 20 0;
#X connect 13 1 18 0;
#X connect 13 2 19 0;
#X connect 13 3 14 0;
#X connect 14 0 11 0;
#X connect 16 0 17 0;
#X connect 17 0 7 0;
#X connect 18 0 62 0;
#X connect 19 0 61 0;
#X connect 20 0 11 0;
#X connect 21 0 15 0;
#X connect 22 0 24 0;
#X connect 24 0 7 0;
#X connect 25 0 43 0;
#X connect 27 0 28 0;
#X connect 28 0 40 0;
#X connect 29 1 31 0;
#X connect 30 0 29 0;
#X connect 32 0 7 0;
#X connect 33 0 25 0;
#X connect 36 0 7 0;
#X connect 37 0 32 0;
#X connect 38 0 36 0;
#X connect 39 0 1 0;
#X connect 39 1 2 0;
#X connect 39 2 3 0;
#X connect 39 3 4 0;
#X connect 39 4 16 0;
#X connect 39 5 68 0;
#X connect 39 6 13 0;
#X connect 39 7 22 0;
#X connect 39 8 67 0;
#X connect 39 9 37 0;
#X connect 39 10 38 0;
#X connect 40 0 65 0;
#X connect 41 0 66 0;
#X connect 42 0 54 0;
#X connect 43 1 57 0;
#X connect 44 0 49 0;
#X connect 45 0 49 0;
#X connect 46 0 64 0;
#X connect 47 0 63 0;
#X connect 48 0 49 0;
#X connect 49 0 56 0;
#X connect 50 0 51 0;
#X connect 51 0 52 1;
#X connect 52 0 33 0;
#X connect 52 0 30 0;
#X connect 53 0 52 0;
#X connect 54 0 53 0;
#X connect 54 1 50 0;
#X connect 54 2 48 0;
#X connect 54 3 55 0;
#X connect 54 4 46 0;
#X connect 54 5 47 0;
#X connect 54 6 45 0;
#X connect 55 0 49 0;
#X connect 56 0 51 1;
#X connect 56 1 69 0;
#X connect 59 0 8 0;
#X connect 60 0 9 0;
#X connect 61 0 12 0;
#X connect 62 0 70 0;
#X connect 63 0 44 0;
#X connect 64 0 71 0;
#X connect 67 0 22 0;
#X connect 68 0 16 0;
#X connect 69 0 29 0;
#X connect 69 0 43 0;
#X connect 70 0 11 0;
#X connect 71 0 49 0;