aboutsummaryrefslogtreecommitdiff
path: root/pmrigid_string_2d.pd
blob: 52d36ea60043b0b84437299a960e28d2bcaf4853 (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
#N canvas 605 196 743 397 10;
#X obj 42 34 inlet;
#X obj 42 57 t b f;
#X obj 42 350 outlet;
#X obj 269 31 inlet;
#X obj 510 34 inlet;
#X msg 510 81 setK lnk \$1;
#X obj 603 35 inlet;
#X msg 603 81 setD lnk \$1;
#N canvas 746 115 421 804 creation_corde 0;
#X obj 32 23 loadbang;
#X msg 143 117 0;
#X obj 143 142 f;
#X obj 143 193 + 1;
#X obj 143 169 moses \$1;
#X obj 165 220 t f f;
#X obj 175 649 t a;
#X obj 241 271 + 1;
#X obj 118 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 195 329 pack f f;
#X obj 195 247 t f f;
#X obj 241 248 \$1;
#X obj 225 300 /;
#X obj 119 291 + 1;
#X obj 119 268 \$1;
#X msg 121 580 link lnk M-\$1 M-\$2 \$3 \$4;
#X obj 121 552 pack f f \$2 \$3;
#X obj 173 677 outlet;
#X msg 31 578 setL lnk 0;
#X obj 32 50 t b b b b b b;
#N canvas 0 0 259 330 loop 0;
#X obj 74 149 f;
#X obj 74 213 + 1;
#X obj 74 171 moses \$1;
#X obj 74 104 t b f;
#X obj 104 281 outlet;
#X obj 74 82 inlet;
#X msg 74 126 0;
#X obj 74 191 t f f;
#X obj 96 240 t f;
#X connect 0 0 2 0;
#X connect 1 0 8 0;
#X connect 2 0 7 0;
#X connect 3 0 6 0;
#X connect 3 1 2 1;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 8 0 0 0;
#X restore 70 417 pd loop;
#X obj 71 361 \$1;
#N canvas 0 0 259 330 loop 0;
#X obj 74 149 f;
#X obj 74 213 + 1;
#X obj 74 171 moses \$1;
#X obj 74 104 t b f;
#X obj 104 281 outlet;
#X obj 74 82 inlet;
#X msg 74 126 0;
#X obj 74 191 t f f;
#X obj 96 240 t f;
#X connect 0 0 2 0;
#X connect 1 0 8 0;
#X connect 2 0 7 0;
#X connect 3 0 6 0;
#X connect 3 1 2 1;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 8 0 0 0;
#X restore 71 477 pd loop;
#X obj 71 451 t f f;
#X obj 71 386 + 2;
#X msg 175 94 reset \, mass M-0 0 1 0 0;
#X msg 195 352 mass M-\$1 1 1 \$2 0;
#X msg 119 400 mass M-\$1 0 1 1 0;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 5 1 10 0;
#X connect 6 0 17 0;
#X connect 7 0 12 1;
#X connect 8 0 19 0;
#X connect 9 0 26 0;
#X connect 10 0 9 0;
#X connect 10 1 12 0;
#X connect 11 0 7 0;
#X connect 12 0 9 1;
#X connect 13 0 27 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 16 0 15 0;
#X connect 19 0 18 0;
#X connect 19 1 21 0;
#X connect 19 2 14 0;
#X connect 19 3 1 0;
#X connect 19 4 25 0;
#X connect 19 5 11 0;
#X connect 20 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 16 0;
#X connect 23 0 22 0;
#X connect 23 1 16 1;
#X connect 24 0 20 0;
#X connect 25 0 6 0;
#X connect 26 0 6 0;
#X connect 27 0 6 0;
#X restore 87 175 pd creation_corde;
#X obj 269 96 pack f f;
#X obj 320 30 loadbang;
#X obj 320 72 + 1;
#X obj 320 51 \$1;
#X obj 395 31 inlet;
#X obj 42 278 msd2D;
#X msg 395 80 forceY M-\$1 \$2;
#X msg 72 104 posY M-0 \$1;
#X msg 268 124 posY M-\$2 \$1;
#X obj 42 300 route massesPos;
#X msg 42 81 bang \, get massesPos;
#X connect 0 0 1 0;
#X connect 1 0 19 0;
#X connect 1 1 16 0;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 7 0 14 0;
#X connect 8 0 14 0;
#X connect 9 0 17 0;
#X connect 10 0 12 0;
#X connect 11 0 9 1;
#X connect 12 0 11 0;
#X connect 13 0 15 0;
#X connect 14 0 18 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 18 0 2 0;
#X connect 19 0 14 0;