aboutsummaryrefslogtreecommitdiff
path: root/pmrigid_open_string_2d.pd
blob: 37ec7e943e369202ddad0b9aeb5659f3002c99f5 (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
#N canvas 870 255 743 397 10;
#X obj 42 34 inlet;
#X obj 42 57 t b f;
#X obj 42 350 outlet;
#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 141 212 0;
#X obj 141 237 f;
#X obj 141 288 + 1;
#X obj 141 264 moses \$1;
#X obj 163 315 t f f;
#X obj 175 649 t a;
#X obj 239 366 + 1;
#X obj 118 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 193 424 pack f f;
#X obj 193 342 t f f;
#X obj 239 343 \$1;
#X obj 223 395 /;
#X obj 205 168 + 1;
#X obj 205 145 \$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 193 447 mass M-\$1 1 1 \$2 0;
#X msg 205 192 mass M-\$1 0 1 -0.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 1 0;
#X connect 19 3 14 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 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 169 130 posY M-\$2 \$1;
#X obj 42 300 route massesPos;
#X msg 42 81 bang \, get massesPos;
#X obj 169 107 pack f f;
#X obj 220 59 \$1;
#X obj 220 81 + 1;
#X obj 220 37 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 14 0;
#X connect 1 1 11 0;
#X connect 1 1 15 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 7 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 13 0;
#X connect 10 0 9 0;
#X connect 11 0 9 0;
#X connect 12 0 9 0;
#X connect 13 0 2 0;
#X connect 14 0 9 0;
#X connect 15 0 12 0;
#X connect 16 0 17 0;
#X connect 17 0 15 1;
#X connect 18 0 16 0;