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
|
#N canvas 807 173 535 198 10;
#X obj 26 16 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 50 15 reset;
#X text 182 65 Add a constant force;
#X msg 338 127 posZ fix \$1;
#X text 337 86 Change altitude of corners;
#N canvas 0 22 616 405 creation 0;
#X obj 32 13 loadbang;
#X obj 129 18 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
-1;
#X msg 202 59 reset;
#X text 167 19 reset;
#X msg 148 229 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0 \, Zmax 70
\, Zmin 0;
#X msg 130 255 0 4 \, 4 5 \, 5 6 \, 6 1 \, 7 8 \, 8 9 \, 9 10 \, 10
11 \, 12 13 \, 13 14 \, 14 15 \, 15 16 \, 17 18 \, 18 19 \, 19 20 \,
20 21 \, 2 22 \, 22 23 \, 23 24 \, 24 3 \, 0 7 \, 4 8 \, 5 9 \, 6 10
\, 1 11 \, 7 12 \, 8 13 \, 9 14 \, 10 15 \, 11 16 \, 12 17 \, 13 18
\, 14 19 \, 15 20 \, 16 21 \, 2 17 \, 18 22 \, 19 23 \, 20 24 \, 21
3;
#X msg 166 130 30 40 40 \, 30 50 40 \, 30 60 40 \, 40 30 40 \, 40 40
40 \, 40 50 40 \, 40 60 40 \, 40 70 40 \, 50 30 40 \, 50 40 40 \, 50
50 40 \, 50 60 40 \, 50 70 40 \, 60 30 40 \, 60 40 40 \, 60 50 40 \,
60 60 40 \, 60 70 40 \, 70 40 40 \, 70 50 40 \, 70 60 40;
#X msg 184 82 mass fix 0 100 30 30 40 \, mass fix 0 100 30 70 40 \,
mass fix 0 100 70 30 40 \, mass fix 0 100 70 70 40;
#X obj 130 38 t b b b b b;
#X msg 166 193 mass mob 1 70 \$1 \$2 \$3;
#X msg 130 335 link souple \$1 \$2 2 10;
#X msg 71 72 posZ fix 70;
#X obj 130 361 s \$0-msdin;
#X obj 204 14 inlet;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 12 0;
#X connect 4 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 9 0;
#X connect 7 0 12 0;
#X connect 8 0 5 0;
#X connect 8 0 11 0;
#X connect 8 1 4 0;
#X connect 8 2 6 0;
#X connect 8 3 7 0;
#X connect 8 4 2 0;
#X connect 9 0 12 0;
#X connect 10 0 12 0;
#X connect 11 0 12 0;
#X connect 13 0 8 0;
#X restore 26 36 pd creation;
#N canvas 0 22 450 300 compute 0;
#N canvas 613 332 591 562 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 42 266 separator;
#X obj 63 163 t b f;
#X obj 266 117 / 12.5;
#X obj 266 140 - 4;
#X obj 320 118 / 12.5;
#X obj 320 141 - 4;
#X obj 197 117 / 12.5;
#X obj 197 142 - 4;
#X obj 123 194 pack f f f;
#X msg 123 217 \$1 \$2 \$3;
#X obj 371 118 / 12.5;
#X obj 371 141 - 4;
#X obj 266 189 pack f f f;
#X msg 266 212 \$1 \$2 \$3;
#X obj 93 69 unpack f f f f f f f;
#X obj 136 297 sel 0;
#X obj 354 24 inlet;
#X msg 132 418 \$1 \$1 \$1;
#X obj 139 333 counter 0 2;
#X obj 44 310 curve2;
#X obj 133 363 / 2;
#X msg 268 24 reset;
#X obj 434 26 inlet;
#X obj 437 52 t b;
#X obj 31 196 gemhead 5;
#X obj 31 222 color 1 1 1;
#X obj 31 100 loadbang;
#X msg 31 128 0;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 3 0 4 0;
#X connect 4 0 13 1;
#X connect 5 0 24 0;
#X connect 6 0 29 0;
#X connect 6 1 20 0;
#X connect 7 0 8 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 10 0 17 1;
#X connect 11 0 12 0;
#X connect 12 0 13 2;
#X connect 13 0 14 0;
#X connect 14 0 24 1;
#X connect 15 0 16 0;
#X connect 16 0 17 2;
#X connect 17 0 18 0;
#X connect 18 0 24 2;
#X connect 19 0 6 0;
#X connect 19 1 1 0;
#X connect 19 2 3 0;
#X connect 19 3 11 0;
#X connect 19 4 7 0;
#X connect 19 5 9 0;
#X connect 19 6 15 0;
#X connect 20 0 23 0;
#X connect 21 0 23 3;
#X connect 21 0 25 1;
#X connect 23 0 25 0;
#X connect 25 0 22 0;
#X connect 26 0 23 0;
#X connect 27 0 28 0;
#X connect 28 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 5 0;
#X connect 31 0 32 0;
#X connect 32 0 29 0;
#X restore 33 225 pd linkrender;
#X obj 33 200 route linksPos;
#X text 98 93 Multiple draw;
#X obj 33 64 gemhead 15;
#X msg 33 127 bang \, get linksPos;
#X obj 33 92 t b b b b;
#X obj 33 175 msd3D;
#X obj 75 148 r \$0-msdin;
#X connect 1 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 4 0;
#X connect 5 2 4 0;
#X connect 5 3 4 0;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X restore 26 59 pd compute;
#X text 182 23 membrane with a multiple drawing;
#N canvas 0 22 450 300 constant 0;
#X obj 122 129 f;
#X msg 122 154 forceZ mob \$1;
#X obj 122 73 metro 65;
#X obj 122 25 inlet;
#X obj 225 25 inlet;
#X obj 122 180 s \$0-msdin;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 0 1;
#X restore 183 126 pd constant;
#X obj 183 83 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 221 82 on/off;
#X floatatom 183 104 5 0 0 0 - - -;
#N canvas 583 304 450 300 gem 0;
#X obj 101 220 gemwin;
#X msg 120 102 0 \, destroy;
#X obj 13 211 gemhead;
#X obj 13 234 world_light;
#X msg 219 198 view 0 4 0 0 0 0 0 0 1;
#X msg 219 156 view 4 0 0.5 0 0 0 0 0 1;
#X msg 219 177 view 0 0 4 0 0 0 0 1 0;
#X text -3 77 Create window;
#X text 9 126 Change view;
#X msg 101 80 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
#X obj 101 17 inlet;
#X obj 101 47 sel 1 0;
#X obj 219 104 inlet;
#X obj 219 134 sel 2 1 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 1 0;
#X connect 12 0 13 0;
#X connect 13 0 5 0;
#X connect 13 1 6 0;
#X connect 13 2 4 0;
#X restore 26 135 pd gem;
#X obj 26 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X text 79 84 gem on/off;
#X obj 26 111 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 1;
#X text 79 110 change view;
#X obj 341 107 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 221 103 amplitude;
#X obj 338 150 s \$0-msdin;
#X connect 0 0 5 0;
#X connect 3 0 19 0;
#X connect 9 0 8 0;
#X connect 11 0 8 1;
#X connect 13 0 12 0;
#X connect 15 0 12 1;
#X connect 17 0 3 0;
|
