]> gitweb.factorcode.org Git - factor.git/blob - unmaintained/springies/models/belt-tire/belt-tire.factor
cd48e659045a863d44ede5700cd51c47c887de40
[factor.git] / unmaintained / springies / models / belt-tire / belt-tire.factor
1
2 USING: kernel namespaces arrays sequences threads math ui random
3        springies springies.ui ;
4
5 IN: springies.models.belt-tire
6
7 : model ( -- )
8
9 { } clone >nodes
10 { } clone >springs
11 0.008 >time-slice
12 gravity on
13
14 1 274.078806900597328 346.307117178664043 0 0 1 0.5 mass
15 2 284.142891110742823 329.83402842231834 0 0 1 0.5 mass
16 3 295.307158356938658 355.695013578746227 0 0 1 0.5 mass
17 4 300.698527801927128 337.003548930923216 0 0 1 0.5 mass
18 5 318.093036910029696 359.203044347904552 0 0 1 0.5 mass
19 6 318.542098798246286 339.592403450546044 0 0 1 0.5 mass
20 7 340.949296214486822 356.831259237330983 0 0 1 0.5 mass
21 8 336.494524828869885 337.754019325244656 0 0 1 0.5 mass
22 9 362.534986907234952 348.770558940029559 0 0 1 0.5 mass
23 10 353.491265306914897 331.642140359094469 0 0 1 0.5 mass
24 11 381.368850422101502 335.37878701564847 0 0 1 0.5 mass
25 12 368.085531061140216 321.055018811315335 0 0 1 0.5 mass
26 13 396.117634938806759 317.519287773537314 0 0 1 0.5 mass
27 14 379.675208211408915 307.277961968837246 0 0 1 0.5 mass
28 15 405.655157991023771 296.391903048606025 0 0 1 0.5 mass
29 16 387.124676448692242 290.862310093183567 0 0 1 0.5 mass
30 17 409.337178964708642 273.594658653786666 0 0 1 0.5 mass
31 18 389.76569804010461 273.012494879567555 0 0 1 0.5 mass
32 19 407.11203230551871 250.712646124396059 0 0 1 0.5 mass
33 20 387.966228461346304 255.061007930370067 0 0 1 0.5 mass
34 21 399.188308328902735 229.098161823607285 0 0 1 0.5 mass
35 22 381.896222954111181 238.073977723246998 0 0 1 0.5 mass
36 23 385.883224011375262 210.148208473511374 0 0 1 0.5 mass
37 24 371.614761646970464 223.279700317395225 0 0 1 0.5 mass
38 25 367.955378160003875 195.334436550727929 0 0 1 0.5 mass
39 26 357.817091674528911 211.717360072075536 0 0 1 0.5 mass
40 27 346.743525482831387 185.884698478394085 0 0 1 0.5 mass
41 28 341.291169697238729 204.55711005838188 0 0 1 0.5 mass
42 29 323.935265230381788 182.330460182137188 0 0 1 0.5 mass
43 30 323.466187791799882 201.937076877994031 0 0 1 0.5 mass
44 31 301.04141769400843 184.703602685435726 0 0 1 0.5 mass
45 32 305.532794735419941 203.763859300438838 0 0 1 0.5 mass
46 33 279.442362700896183 192.851996602076866 0 0 1 0.5 mass
47 34 288.551113492738239 209.893932668644339 0 0 1 0.5 mass
48 35 260.65997798024199 206.334196608396638 0 0 1 0.5 mass
49 36 273.960657978745814 220.516324161880476 0 0 1 0.5 mass
50 37 246.029909853431349 224.197583023911335 0 0 1 0.5 mass
51 38 262.719165304227545 234.58428660123181 0 0 1 0.5 mass
52 39 236.458142984593252 245.235572499606377 0 0 1 0.5 mass
53 40 254.870454491934908 250.81914136861181 0 0 1 0.5 mass
54 41 232.703447579492519 268.042376651164432 0 0 1 0.5 mass
55 42 252.226120754560156 268.679895159358864 0 0 1 0.5 mass
56 43 234.96767702938331 291.007702051922024 0 0 1 0.5 mass
57 44 254.040589506795527 286.621843971355872 0 0 1 0.5 mass
58 45 242.759412026738119 312.577114225657738 0 0 1 0.5 mass
59 46 260.111088599530603 303.593264087352964 0 0 1 0.5 mass
60 47 256.101782779606651 331.52509923420655 0 0 1 0.5 mass
61 48 270.373388641766439 318.366074596339615 0 0 1 0.5 mass
62 49 320.448537383965288 270.292364746678743 0 0 10 0.5 mass
63 1 1 4 200 2 28.284271247461902 spng
64 2 4 5 200 2 28.284271247461902 spng
65 3 5 8 200 2 28.284271247461902 spng
66 4 8 9 200 2 28.284271247461902 spng
67 5 9 12 200 2 28.284271247461902 spng
68 6 12 13 200 2 28.284271247461902 spng
69 7 13 16 200 2 28.284271247461902 spng
70 8 16 17 200 2 28.284271247461902 spng
71 9 17 20 200 2 28.284271247461902 spng
72 10 20 21 200 2 28.284271247461902 spng
73 11 21 24 200 2 28.284271247461902 spng
74 12 24 25 200 2 28.284271247461902 spng
75 13 25 28 200 2 28.284271247461902 spng
76 14 28 29 200 2 28.284271247461902 spng
77 15 29 32 200 2 28.284271247461902 spng
78 16 32 33 200 2 28.284271247461902 spng
79 17 33 36 200 2 28.284271247461902 spng
80 18 36 37 200 2 28.284271247461902 spng
81 19 37 40 200 2 28.284271247461902 spng
82 20 40 41 200 2 28.284271247461902 spng
83 21 41 44 200 2 28.284271247461902 spng
84 22 44 45 200 2 28.284271247461902 spng
85 23 45 48 200 2 28.284271247461902 spng
86 24 3 6 200 2 28.284271247461902 spng
87 25 7 10 200 2 28.284271247461902 spng
88 26 11 14 200 2 28.284271247461902 spng
89 27 15 18 200 2 28.284271247461902 spng
90 28 19 22 200 2 28.284271247461902 spng
91 29 23 26 200 2 28.284271247461902 spng
92 30 27 30 200 2 28.284271247461902 spng
93 31 31 34 200 2 28.284271247461902 spng
94 32 35 38 200 2 28.284271247461902 spng
95 33 39 44 200 2 44.7213595499957961 spng
96 34 39 42 200 2 28.284271247461902 spng
97 35 43 46 200 2 28.284271247461902 spng
98 36 47 46 200 2 28.284271247461902 spng
99 37 43 42 200 2 28.284271247461902 spng
100 38 39 38 200 2 28.284271247461902 spng
101 39 35 34 200 2 28.284271247461902 spng
102 40 2 3 200 2 28.284271247461902 spng
103 41 6 7 200 2 28.284271247461902 spng
104 42 10 11 200 2 28.284271247461902 spng
105 43 14 15 200 2 28.284271247461902 spng
106 44 18 19 200 2 28.284271247461902 spng
107 45 22 23 200 2 28.284271247461902 spng
108 46 26 27 200 2 28.284271247461902 spng
109 47 30 31 200 2 28.284271247461902 spng
110 48 1 6 200 2 44.7213595499957961 spng
111 49 3 8 200 2 44.7213595499957961 spng
112 50 5 10 200 2 44.7213595499957961 spng
113 51 7 12 200 2 44.7213595499957961 spng
114 52 9 14 200 2 44.7213595499957961 spng
115 53 11 16 200 2 44.7213595499957961 spng
116 54 13 18 200 2 44.7213595499957961 spng
117 55 15 20 200 2 44.7213595499957961 spng
118 56 17 22 200 2 44.7213595499957961 spng
119 57 19 24 200 2 44.7213595499957961 spng
120 58 21 26 200 2 44.7213595499957961 spng
121 59 23 28 200 2 44.7213595499957961 spng
122 60 25 30 200 2 44.7213595499957961 spng
123 61 27 32 200 2 44.7213595499957961 spng
124 62 29 34 200 2 44.7213595499957961 spng
125 63 31 36 200 2 44.7213595499957961 spng
126 64 33 38 200 2 44.7213595499957961 spng
127 65 35 40 200 2 44.7213595499957961 spng
128 66 37 42 200 2 44.7213595499957961 spng
129 67 41 46 200 2 44.7213595499957961 spng
130 68 43 48 200 2 44.7213595499957961 spng
131 69 2 5 200 2 44.7213595499957961 spng
132 70 4 7 200 2 44.7213595499957961 spng
133 71 6 9 200 2 44.7213595499957961 spng
134 72 8 11 200 2 44.7213595499957961 spng
135 73 10 13 200 2 44.7213595499957961 spng
136 74 12 15 200 2 44.7213595499957961 spng
137 75 14 17 200 2 44.7213595499957961 spng
138 76 16 19 200 2 44.7213595499957961 spng
139 77 18 21 200 2 44.7213595499957961 spng
140 78 20 23 200 2 44.7213595499957961 spng
141 79 22 25 200 2 44.7213595499957961 spng
142 80 24 27 200 2 44.7213595499957961 spng
143 81 26 29 200 2 44.7213595499957961 spng
144 82 28 31 200 2 44.7213595499957961 spng
145 83 30 33 200 2 44.7213595499957961 spng
146 84 32 35 200 2 44.7213595499957961 spng
147 85 34 37 200 2 44.7213595499957961 spng
148 86 36 39 200 2 44.7213595499957961 spng
149 87 38 41 200 2 44.7213595499957961 spng
150 88 40 43 200 2 44.7213595499957961 spng
151 89 42 45 200 2 44.7213595499957961 spng
152 90 44 47 200 2 44.7213595499957961 spng
153 91 1 8 200 2 63.2455532033675851 spng
154 92 3 10 200 2 63.2455532033675851 spng
155 93 5 12 200 2 63.2455532033675851 spng
156 94 7 14 200 2 63.2455532033675851 spng
157 95 9 16 200 2 63.2455532033675851 spng
158 96 11 18 200 2 63.2455532033675851 spng
159 97 13 20 200 2 63.2455532033675851 spng
160 98 15 22 200 2 63.2455532033675851 spng
161 99 17 24 200 2 63.2455532033675851 spng
162 100 19 26 200 2 63.2455532033675851 spng
163 101 21 28 200 2 63.2455532033675851 spng
164 102 23 30 200 2 63.2455532033675851 spng
165 103 25 32 200 2 63.2455532033675851 spng
166 104 27 34 200 2 63.2455532033675851 spng
167 105 29 36 200 2 63.2455532033675851 spng
168 106 31 38 200 2 63.2455532033675851 spng
169 107 33 40 200 2 63.2455532033675851 spng
170 108 35 42 200 2 63.2455532033675851 spng
171 109 37 44 200 2 63.2455532033675851 spng
172 110 39 46 200 2 63.2455532033675851 spng
173 111 48 41 200 2 63.2455532033675851 spng
174 112 2 7 200 2 63.2455532033675851 spng
175 113 4 9 200 2 63.2455532033675851 spng
176 114 6 11 200 2 63.2455532033675851 spng
177 115 8 13 200 2 63.2455532033675851 spng
178 116 10 15 200 2 63.2455532033675851 spng
179 117 12 17 200 2 63.2455532033675851 spng
180 118 14 19 200 2 63.2455532033675851 spng
181 119 16 21 200 2 63.2455532033675851 spng
182 120 18 23 200 2 63.2455532033675851 spng
183 121 20 25 200 2 63.2455532033675851 spng
184 122 22 27 200 2 63.2455532033675851 spng
185 123 24 29 200 2 63.2455532033675851 spng
186 124 26 31 200 2 63.2455532033675851 spng
187 125 28 33 200 2 63.2455532033675851 spng
188 126 30 35 200 2 63.2455532033675851 spng
189 127 32 37 200 2 63.2455532033675851 spng
190 128 34 39 200 2 63.2455532033675851 spng
191 129 36 41 200 2 63.2455532033675851 spng
192 130 38 43 200 2 63.2455532033675851 spng
193 131 40 45 200 2 63.2455532033675851 spng
194 132 42 47 200 2 63.2455532033675851 spng
195 133 1 3 200 2 20 spng
196 134 3 5 200 2 20 spng
197 135 5 7 200 2 20 spng
198 136 7 9 200 2 20 spng
199 137 9 11 200 2 20 spng
200 138 11 13 200 2 20 spng
201 139 13 15 200 2 20 spng
202 140 15 17 200 2 20 spng
203 141 17 19 200 2 20 spng
204 142 19 21 200 2 20 spng
205 143 21 23 200 2 20 spng
206 144 23 25 200 2 20 spng
207 145 25 27 200 2 20 spng
208 146 27 29 200 2 20 spng
209 147 29 31 200 2 20 spng
210 148 31 33 200 2 20 spng
211 149 33 35 200 2 20 spng
212 150 35 37 200 2 20 spng
213 151 37 39 200 2 20 spng
214 152 39 41 200 2 20 spng
215 153 41 43 200 2 20 spng
216 154 43 45 200 2 20 spng
217 155 45 47 200 2 20 spng
218 156 2 4 200 2 20 spng
219 157 4 6 200 2 20 spng
220 158 6 8 200 2 20 spng
221 159 8 10 200 2 20 spng
222 160 10 12 200 2 20 spng
223 161 12 14 200 2 20 spng
224 162 14 16 200 2 20 spng
225 163 16 18 200 2 20 spng
226 164 18 20 200 2 20 spng
227 165 20 22 200 2 20 spng
228 166 22 24 200 2 20 spng
229 167 24 26 200 2 20 spng
230 168 26 28 200 2 20 spng
231 169 28 30 200 2 20 spng
232 170 30 32 200 2 20 spng
233 171 32 34 200 2 20 spng
234 172 34 36 200 2 20 spng
235 173 36 38 200 2 20 spng
236 174 38 40 200 2 20 spng
237 175 40 42 200 2 20 spng
238 176 42 44 200 2 20 spng
239 177 44 46 200 2 20 spng
240 178 46 48 200 2 20 spng
241 179 1 2 200 2 20 spng
242 180 3 4 200 2 20 spng
243 181 5 6 200 2 20 spng
244 182 7 8 200 2 20 spng
245 183 9 10 200 2 20 spng
246 184 11 12 200 2 20 spng
247 185 13 14 200 2 20 spng
248 186 15 16 200 2 20 spng
249 187 17 18 200 2 20 spng
250 188 19 20 200 2 20 spng
251 189 21 22 200 2 20 spng
252 190 23 24 200 2 20 spng
253 191 25 26 200 2 20 spng
254 192 27 28 200 2 20 spng
255 193 29 30 200 2 20 spng
256 194 31 32 200 2 20 spng
257 195 33 34 200 2 20 spng
258 196 35 36 200 2 20 spng
259 197 37 38 200 2 20 spng
260 198 39 40 200 2 20 spng
261 199 41 42 200 2 20 spng
262 200 43 44 200 2 20 spng
263 201 45 46 200 2 20 spng
264 202 47 48 200 2 20 spng
265 203 47 2 200 2 28.284271247461902 spng
266 204 1 48 200 2 28.284271247461902 spng
267 205 1 46 200 2 44.7213595499957961 spng
268 206 1 44 200 2 63.2455532033675851 spng
269 207 47 4 200 2 44.7213595499957961 spng
270 208 48 3 200 2 44.7213595499957961 spng
271 209 47 6 200 2 63.2455532033675851 spng
272 210 48 5 200 2 63.2455532033675851 spng
273 211 46 3 200 2 63.2455532033675851 spng
274 212 45 4 200 2 63.2455532033675851 spng
275 213 47 1 200 2 20 spng
276 214 48 2 200 2 20 spng
277 215 18 49 300 3 69.2603782836911677 spng
278 216 49 20 300 3 69.050706006528273 spng
279 217 22 49 300 3 69.3541635375988079 spng
280 218 49 24 300 3 69.5269731830747872 spng
281 219 26 49 300 3 69.6347614342147381 spng
282 220 49 28 300 3 68.9492567037527948 spng
283 221 30 49 300 3 68.2641926635040477 spng
284 222 49 32 300 3 68.0661443009665419 spng
285 223 34 49 300 3 68.4470598345904051 spng
286 224 49 36 300 3 68.1175454637056106 spng
287 225 38 49 300 3 67.6756972627545252 spng
288 226 49 40 300 3 68.6221538571910514 spng
289 227 42 49 300 3 68.1835757349231386 spng
290 228 49 44 300 3 68.249542123006222 spng
291 229 46 49 300 3 68.8767014308902503 spng
292 230 49 48 300 3 69.4262198308391305 spng
293 231 2 49 300 3 69.8927750200262068 spng
294 232 49 4 300 3 69.5701085237043486 spng
295 233 6 49 300 3 69.1809222257119103 spng
296 234 8 49 300 3 69.2314957226839027 spng
297 235 49 10 300 3 69.7782200976780445 spng
298 236 12 49 300 3 69.5269731830747872 spng
299 237 49 14 300 3 69.8927750200262068 spng
300 238 16 49 300 3 69.8927750200262068 spng
301
302
303 nodes> 200 random -100 + 100 2array  [ swap set-node-vel ] curry each ;
304
305 : go ( -- ) [ model ] go* ;
306
307 MAIN: go