Merge commit 'dharmatech/master'
Slava Pestov
commit
96a1cbe72a
|
|
@ -0,0 +1,307 @@
|
|||
|
||||
USING: kernel namespaces arrays sequences threads math ui random bake
|
||||
springies springies.ui ;
|
||||
|
||||
IN: springies.models.belt-tire
|
||||
|
||||
: model ( -- )
|
||||
|
||||
{ } clone >nodes
|
||||
{ } clone >springs
|
||||
0.008 >time-slice
|
||||
gravity on
|
||||
|
||||
1 274.078806900597328 346.307117178664043 0 0 1 0.5 mass
|
||||
2 284.142891110742823 329.83402842231834 0 0 1 0.5 mass
|
||||
3 295.307158356938658 355.695013578746227 0 0 1 0.5 mass
|
||||
4 300.698527801927128 337.003548930923216 0 0 1 0.5 mass
|
||||
5 318.093036910029696 359.203044347904552 0 0 1 0.5 mass
|
||||
6 318.542098798246286 339.592403450546044 0 0 1 0.5 mass
|
||||
7 340.949296214486822 356.831259237330983 0 0 1 0.5 mass
|
||||
8 336.494524828869885 337.754019325244656 0 0 1 0.5 mass
|
||||
9 362.534986907234952 348.770558940029559 0 0 1 0.5 mass
|
||||
10 353.491265306914897 331.642140359094469 0 0 1 0.5 mass
|
||||
11 381.368850422101502 335.37878701564847 0 0 1 0.5 mass
|
||||
12 368.085531061140216 321.055018811315335 0 0 1 0.5 mass
|
||||
13 396.117634938806759 317.519287773537314 0 0 1 0.5 mass
|
||||
14 379.675208211408915 307.277961968837246 0 0 1 0.5 mass
|
||||
15 405.655157991023771 296.391903048606025 0 0 1 0.5 mass
|
||||
16 387.124676448692242 290.862310093183567 0 0 1 0.5 mass
|
||||
17 409.337178964708642 273.594658653786666 0 0 1 0.5 mass
|
||||
18 389.76569804010461 273.012494879567555 0 0 1 0.5 mass
|
||||
19 407.11203230551871 250.712646124396059 0 0 1 0.5 mass
|
||||
20 387.966228461346304 255.061007930370067 0 0 1 0.5 mass
|
||||
21 399.188308328902735 229.098161823607285 0 0 1 0.5 mass
|
||||
22 381.896222954111181 238.073977723246998 0 0 1 0.5 mass
|
||||
23 385.883224011375262 210.148208473511374 0 0 1 0.5 mass
|
||||
24 371.614761646970464 223.279700317395225 0 0 1 0.5 mass
|
||||
25 367.955378160003875 195.334436550727929 0 0 1 0.5 mass
|
||||
26 357.817091674528911 211.717360072075536 0 0 1 0.5 mass
|
||||
27 346.743525482831387 185.884698478394085 0 0 1 0.5 mass
|
||||
28 341.291169697238729 204.55711005838188 0 0 1 0.5 mass
|
||||
29 323.935265230381788 182.330460182137188 0 0 1 0.5 mass
|
||||
30 323.466187791799882 201.937076877994031 0 0 1 0.5 mass
|
||||
31 301.04141769400843 184.703602685435726 0 0 1 0.5 mass
|
||||
32 305.532794735419941 203.763859300438838 0 0 1 0.5 mass
|
||||
33 279.442362700896183 192.851996602076866 0 0 1 0.5 mass
|
||||
34 288.551113492738239 209.893932668644339 0 0 1 0.5 mass
|
||||
35 260.65997798024199 206.334196608396638 0 0 1 0.5 mass
|
||||
36 273.960657978745814 220.516324161880476 0 0 1 0.5 mass
|
||||
37 246.029909853431349 224.197583023911335 0 0 1 0.5 mass
|
||||
38 262.719165304227545 234.58428660123181 0 0 1 0.5 mass
|
||||
39 236.458142984593252 245.235572499606377 0 0 1 0.5 mass
|
||||
40 254.870454491934908 250.81914136861181 0 0 1 0.5 mass
|
||||
41 232.703447579492519 268.042376651164432 0 0 1 0.5 mass
|
||||
42 252.226120754560156 268.679895159358864 0 0 1 0.5 mass
|
||||
43 234.96767702938331 291.007702051922024 0 0 1 0.5 mass
|
||||
44 254.040589506795527 286.621843971355872 0 0 1 0.5 mass
|
||||
45 242.759412026738119 312.577114225657738 0 0 1 0.5 mass
|
||||
46 260.111088599530603 303.593264087352964 0 0 1 0.5 mass
|
||||
47 256.101782779606651 331.52509923420655 0 0 1 0.5 mass
|
||||
48 270.373388641766439 318.366074596339615 0 0 1 0.5 mass
|
||||
49 320.448537383965288 270.292364746678743 0 0 10 0.5 mass
|
||||
1 1 4 200 2 28.284271247461902 spng
|
||||
2 4 5 200 2 28.284271247461902 spng
|
||||
3 5 8 200 2 28.284271247461902 spng
|
||||
4 8 9 200 2 28.284271247461902 spng
|
||||
5 9 12 200 2 28.284271247461902 spng
|
||||
6 12 13 200 2 28.284271247461902 spng
|
||||
7 13 16 200 2 28.284271247461902 spng
|
||||
8 16 17 200 2 28.284271247461902 spng
|
||||
9 17 20 200 2 28.284271247461902 spng
|
||||
10 20 21 200 2 28.284271247461902 spng
|
||||
11 21 24 200 2 28.284271247461902 spng
|
||||
12 24 25 200 2 28.284271247461902 spng
|
||||
13 25 28 200 2 28.284271247461902 spng
|
||||
14 28 29 200 2 28.284271247461902 spng
|
||||
15 29 32 200 2 28.284271247461902 spng
|
||||
16 32 33 200 2 28.284271247461902 spng
|
||||
17 33 36 200 2 28.284271247461902 spng
|
||||
18 36 37 200 2 28.284271247461902 spng
|
||||
19 37 40 200 2 28.284271247461902 spng
|
||||
20 40 41 200 2 28.284271247461902 spng
|
||||
21 41 44 200 2 28.284271247461902 spng
|
||||
22 44 45 200 2 28.284271247461902 spng
|
||||
23 45 48 200 2 28.284271247461902 spng
|
||||
24 3 6 200 2 28.284271247461902 spng
|
||||
25 7 10 200 2 28.284271247461902 spng
|
||||
26 11 14 200 2 28.284271247461902 spng
|
||||
27 15 18 200 2 28.284271247461902 spng
|
||||
28 19 22 200 2 28.284271247461902 spng
|
||||
29 23 26 200 2 28.284271247461902 spng
|
||||
30 27 30 200 2 28.284271247461902 spng
|
||||
31 31 34 200 2 28.284271247461902 spng
|
||||
32 35 38 200 2 28.284271247461902 spng
|
||||
33 39 44 200 2 44.7213595499957961 spng
|
||||
34 39 42 200 2 28.284271247461902 spng
|
||||
35 43 46 200 2 28.284271247461902 spng
|
||||
36 47 46 200 2 28.284271247461902 spng
|
||||
37 43 42 200 2 28.284271247461902 spng
|
||||
38 39 38 200 2 28.284271247461902 spng
|
||||
39 35 34 200 2 28.284271247461902 spng
|
||||
40 2 3 200 2 28.284271247461902 spng
|
||||
41 6 7 200 2 28.284271247461902 spng
|
||||
42 10 11 200 2 28.284271247461902 spng
|
||||
43 14 15 200 2 28.284271247461902 spng
|
||||
44 18 19 200 2 28.284271247461902 spng
|
||||
45 22 23 200 2 28.284271247461902 spng
|
||||
46 26 27 200 2 28.284271247461902 spng
|
||||
47 30 31 200 2 28.284271247461902 spng
|
||||
48 1 6 200 2 44.7213595499957961 spng
|
||||
49 3 8 200 2 44.7213595499957961 spng
|
||||
50 5 10 200 2 44.7213595499957961 spng
|
||||
51 7 12 200 2 44.7213595499957961 spng
|
||||
52 9 14 200 2 44.7213595499957961 spng
|
||||
53 11 16 200 2 44.7213595499957961 spng
|
||||
54 13 18 200 2 44.7213595499957961 spng
|
||||
55 15 20 200 2 44.7213595499957961 spng
|
||||
56 17 22 200 2 44.7213595499957961 spng
|
||||
57 19 24 200 2 44.7213595499957961 spng
|
||||
58 21 26 200 2 44.7213595499957961 spng
|
||||
59 23 28 200 2 44.7213595499957961 spng
|
||||
60 25 30 200 2 44.7213595499957961 spng
|
||||
61 27 32 200 2 44.7213595499957961 spng
|
||||
62 29 34 200 2 44.7213595499957961 spng
|
||||
63 31 36 200 2 44.7213595499957961 spng
|
||||
64 33 38 200 2 44.7213595499957961 spng
|
||||
65 35 40 200 2 44.7213595499957961 spng
|
||||
66 37 42 200 2 44.7213595499957961 spng
|
||||
67 41 46 200 2 44.7213595499957961 spng
|
||||
68 43 48 200 2 44.7213595499957961 spng
|
||||
69 2 5 200 2 44.7213595499957961 spng
|
||||
70 4 7 200 2 44.7213595499957961 spng
|
||||
71 6 9 200 2 44.7213595499957961 spng
|
||||
72 8 11 200 2 44.7213595499957961 spng
|
||||
73 10 13 200 2 44.7213595499957961 spng
|
||||
74 12 15 200 2 44.7213595499957961 spng
|
||||
75 14 17 200 2 44.7213595499957961 spng
|
||||
76 16 19 200 2 44.7213595499957961 spng
|
||||
77 18 21 200 2 44.7213595499957961 spng
|
||||
78 20 23 200 2 44.7213595499957961 spng
|
||||
79 22 25 200 2 44.7213595499957961 spng
|
||||
80 24 27 200 2 44.7213595499957961 spng
|
||||
81 26 29 200 2 44.7213595499957961 spng
|
||||
82 28 31 200 2 44.7213595499957961 spng
|
||||
83 30 33 200 2 44.7213595499957961 spng
|
||||
84 32 35 200 2 44.7213595499957961 spng
|
||||
85 34 37 200 2 44.7213595499957961 spng
|
||||
86 36 39 200 2 44.7213595499957961 spng
|
||||
87 38 41 200 2 44.7213595499957961 spng
|
||||
88 40 43 200 2 44.7213595499957961 spng
|
||||
89 42 45 200 2 44.7213595499957961 spng
|
||||
90 44 47 200 2 44.7213595499957961 spng
|
||||
91 1 8 200 2 63.2455532033675851 spng
|
||||
92 3 10 200 2 63.2455532033675851 spng
|
||||
93 5 12 200 2 63.2455532033675851 spng
|
||||
94 7 14 200 2 63.2455532033675851 spng
|
||||
95 9 16 200 2 63.2455532033675851 spng
|
||||
96 11 18 200 2 63.2455532033675851 spng
|
||||
97 13 20 200 2 63.2455532033675851 spng
|
||||
98 15 22 200 2 63.2455532033675851 spng
|
||||
99 17 24 200 2 63.2455532033675851 spng
|
||||
100 19 26 200 2 63.2455532033675851 spng
|
||||
101 21 28 200 2 63.2455532033675851 spng
|
||||
102 23 30 200 2 63.2455532033675851 spng
|
||||
103 25 32 200 2 63.2455532033675851 spng
|
||||
104 27 34 200 2 63.2455532033675851 spng
|
||||
105 29 36 200 2 63.2455532033675851 spng
|
||||
106 31 38 200 2 63.2455532033675851 spng
|
||||
107 33 40 200 2 63.2455532033675851 spng
|
||||
108 35 42 200 2 63.2455532033675851 spng
|
||||
109 37 44 200 2 63.2455532033675851 spng
|
||||
110 39 46 200 2 63.2455532033675851 spng
|
||||
111 48 41 200 2 63.2455532033675851 spng
|
||||
112 2 7 200 2 63.2455532033675851 spng
|
||||
113 4 9 200 2 63.2455532033675851 spng
|
||||
114 6 11 200 2 63.2455532033675851 spng
|
||||
115 8 13 200 2 63.2455532033675851 spng
|
||||
116 10 15 200 2 63.2455532033675851 spng
|
||||
117 12 17 200 2 63.2455532033675851 spng
|
||||
118 14 19 200 2 63.2455532033675851 spng
|
||||
119 16 21 200 2 63.2455532033675851 spng
|
||||
120 18 23 200 2 63.2455532033675851 spng
|
||||
121 20 25 200 2 63.2455532033675851 spng
|
||||
122 22 27 200 2 63.2455532033675851 spng
|
||||
123 24 29 200 2 63.2455532033675851 spng
|
||||
124 26 31 200 2 63.2455532033675851 spng
|
||||
125 28 33 200 2 63.2455532033675851 spng
|
||||
126 30 35 200 2 63.2455532033675851 spng
|
||||
127 32 37 200 2 63.2455532033675851 spng
|
||||
128 34 39 200 2 63.2455532033675851 spng
|
||||
129 36 41 200 2 63.2455532033675851 spng
|
||||
130 38 43 200 2 63.2455532033675851 spng
|
||||
131 40 45 200 2 63.2455532033675851 spng
|
||||
132 42 47 200 2 63.2455532033675851 spng
|
||||
133 1 3 200 2 20 spng
|
||||
134 3 5 200 2 20 spng
|
||||
135 5 7 200 2 20 spng
|
||||
136 7 9 200 2 20 spng
|
||||
137 9 11 200 2 20 spng
|
||||
138 11 13 200 2 20 spng
|
||||
139 13 15 200 2 20 spng
|
||||
140 15 17 200 2 20 spng
|
||||
141 17 19 200 2 20 spng
|
||||
142 19 21 200 2 20 spng
|
||||
143 21 23 200 2 20 spng
|
||||
144 23 25 200 2 20 spng
|
||||
145 25 27 200 2 20 spng
|
||||
146 27 29 200 2 20 spng
|
||||
147 29 31 200 2 20 spng
|
||||
148 31 33 200 2 20 spng
|
||||
149 33 35 200 2 20 spng
|
||||
150 35 37 200 2 20 spng
|
||||
151 37 39 200 2 20 spng
|
||||
152 39 41 200 2 20 spng
|
||||
153 41 43 200 2 20 spng
|
||||
154 43 45 200 2 20 spng
|
||||
155 45 47 200 2 20 spng
|
||||
156 2 4 200 2 20 spng
|
||||
157 4 6 200 2 20 spng
|
||||
158 6 8 200 2 20 spng
|
||||
159 8 10 200 2 20 spng
|
||||
160 10 12 200 2 20 spng
|
||||
161 12 14 200 2 20 spng
|
||||
162 14 16 200 2 20 spng
|
||||
163 16 18 200 2 20 spng
|
||||
164 18 20 200 2 20 spng
|
||||
165 20 22 200 2 20 spng
|
||||
166 22 24 200 2 20 spng
|
||||
167 24 26 200 2 20 spng
|
||||
168 26 28 200 2 20 spng
|
||||
169 28 30 200 2 20 spng
|
||||
170 30 32 200 2 20 spng
|
||||
171 32 34 200 2 20 spng
|
||||
172 34 36 200 2 20 spng
|
||||
173 36 38 200 2 20 spng
|
||||
174 38 40 200 2 20 spng
|
||||
175 40 42 200 2 20 spng
|
||||
176 42 44 200 2 20 spng
|
||||
177 44 46 200 2 20 spng
|
||||
178 46 48 200 2 20 spng
|
||||
179 1 2 200 2 20 spng
|
||||
180 3 4 200 2 20 spng
|
||||
181 5 6 200 2 20 spng
|
||||
182 7 8 200 2 20 spng
|
||||
183 9 10 200 2 20 spng
|
||||
184 11 12 200 2 20 spng
|
||||
185 13 14 200 2 20 spng
|
||||
186 15 16 200 2 20 spng
|
||||
187 17 18 200 2 20 spng
|
||||
188 19 20 200 2 20 spng
|
||||
189 21 22 200 2 20 spng
|
||||
190 23 24 200 2 20 spng
|
||||
191 25 26 200 2 20 spng
|
||||
192 27 28 200 2 20 spng
|
||||
193 29 30 200 2 20 spng
|
||||
194 31 32 200 2 20 spng
|
||||
195 33 34 200 2 20 spng
|
||||
196 35 36 200 2 20 spng
|
||||
197 37 38 200 2 20 spng
|
||||
198 39 40 200 2 20 spng
|
||||
199 41 42 200 2 20 spng
|
||||
200 43 44 200 2 20 spng
|
||||
201 45 46 200 2 20 spng
|
||||
202 47 48 200 2 20 spng
|
||||
203 47 2 200 2 28.284271247461902 spng
|
||||
204 1 48 200 2 28.284271247461902 spng
|
||||
205 1 46 200 2 44.7213595499957961 spng
|
||||
206 1 44 200 2 63.2455532033675851 spng
|
||||
207 47 4 200 2 44.7213595499957961 spng
|
||||
208 48 3 200 2 44.7213595499957961 spng
|
||||
209 47 6 200 2 63.2455532033675851 spng
|
||||
210 48 5 200 2 63.2455532033675851 spng
|
||||
211 46 3 200 2 63.2455532033675851 spng
|
||||
212 45 4 200 2 63.2455532033675851 spng
|
||||
213 47 1 200 2 20 spng
|
||||
214 48 2 200 2 20 spng
|
||||
215 18 49 300 3 69.2603782836911677 spng
|
||||
216 49 20 300 3 69.050706006528273 spng
|
||||
217 22 49 300 3 69.3541635375988079 spng
|
||||
218 49 24 300 3 69.5269731830747872 spng
|
||||
219 26 49 300 3 69.6347614342147381 spng
|
||||
220 49 28 300 3 68.9492567037527948 spng
|
||||
221 30 49 300 3 68.2641926635040477 spng
|
||||
222 49 32 300 3 68.0661443009665419 spng
|
||||
223 34 49 300 3 68.4470598345904051 spng
|
||||
224 49 36 300 3 68.1175454637056106 spng
|
||||
225 38 49 300 3 67.6756972627545252 spng
|
||||
226 49 40 300 3 68.6221538571910514 spng
|
||||
227 42 49 300 3 68.1835757349231386 spng
|
||||
228 49 44 300 3 68.249542123006222 spng
|
||||
229 46 49 300 3 68.8767014308902503 spng
|
||||
230 49 48 300 3 69.4262198308391305 spng
|
||||
231 2 49 300 3 69.8927750200262068 spng
|
||||
232 49 4 300 3 69.5701085237043486 spng
|
||||
233 6 49 300 3 69.1809222257119103 spng
|
||||
234 8 49 300 3 69.2314957226839027 spng
|
||||
235 49 10 300 3 69.7782200976780445 spng
|
||||
236 12 49 300 3 69.5269731830747872 spng
|
||||
237 49 14 300 3 69.8927750200262068 spng
|
||||
238 16 49 300 3 69.8927750200262068 spng
|
||||
|
||||
|
||||
nodes> 200 random -100 + 100 2array [ swap set-node-vel ] curry each ;
|
||||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
|
|
@ -0,0 +1,80 @@
|
|||
|
||||
USING: kernel namespaces arrays sequences threads math math.vectors
|
||||
ui random bake springies springies.ui ;
|
||||
|
||||
IN: springies.models.nifty
|
||||
|
||||
: model ( -- )
|
||||
|
||||
{ } clone >nodes
|
||||
{ } clone >springs
|
||||
0.007 >time-slice
|
||||
gravity off
|
||||
|
||||
1 148.581450999999987 350.573888000000011 0 -7.75 1 0.1 mass
|
||||
2 168.564277000000004 351.402524000000028 0 -7.75 1 0.1 mass
|
||||
3 188.54710399999999 352.231158999999991 0 -7.75 1 0.1 mass
|
||||
4 208.529931000000005 353.059794000000011 0 -7.75 1 0.1 mass
|
||||
5 228.512757999999991 353.888428999999974 0 -7.75 1 0.1 mass
|
||||
6 248.495584000000008 354.717063999999993 0 -7.75 1 0.1 mass
|
||||
7 149.410086000000007 330.591061000000025 0 -7.75 1 0.1 mass
|
||||
8 150.238720999999998 310.608234999999979 0 -7.75 1 0.1 mass
|
||||
9 151.06735599999999 290.625407999999993 0 -7.75 1 0.1 mass
|
||||
10 151.895991000000009 270.642581000000007 0 -7.75 1 0.1 mass
|
||||
11 152.724626000000001 250.65975499999999 0 -7.75 1 0.1 mass
|
||||
12 172.707452999999987 251.48839000000001 0 -7.749999 1 0.1 mass
|
||||
13 192.690280000000001 252.317025000000001 0 -7.75 1 0.1 mass
|
||||
14 212.67310599999999 253.145659999999992 0 -7.75 1 0.1 mass
|
||||
15 232.655933000000005 253.974295000000012 0 -7.75 1 0.1 mass
|
||||
16 252.638759999999991 254.802930000000003 0 -7.75 1 0.1 mass
|
||||
17 251.810124999999999 274.78575699999999 0 -7.75 1 0.1 mass
|
||||
18 250.98148900000001 294.768583999999976 0 -7.75 1 0.1 mass
|
||||
19 249.324218999999999 334.734237000000007 0 -7.75 1 0.1 mass
|
||||
20 250.152853999999991 314.751410000000021 0 -7.75 1 0.1 mass
|
||||
1 1 2 200 1.5 20 spng
|
||||
2 2 3 200 1.5 20 spng
|
||||
3 3 4 200 1.5 20 spng
|
||||
4 4 5 200 1.5 20 spng
|
||||
5 5 6 200 1.5 20 spng
|
||||
6 6 19 200 1.5 20 spng
|
||||
7 19 20 200 1.5 20 spng
|
||||
8 20 18 200 1.5 20 spng
|
||||
9 18 17 200 1.5 20 spng
|
||||
10 17 16 200 1.5 20 spng
|
||||
11 16 15 200 1.5 20 spng
|
||||
12 15 14 200 1.5 20 spng
|
||||
13 14 13 200 1.5 20 spng
|
||||
14 13 12 200 1.5 20 spng
|
||||
15 12 11 200 1.5 20 spng
|
||||
16 11 10 200 1.5 20 spng
|
||||
17 10 9 200 1.5 20 spng
|
||||
18 9 8 200 1.5 20 spng
|
||||
19 8 7 200 1.5 20 spng
|
||||
20 7 1 200 1.5 20 spng
|
||||
21 1 19 200 1.5 101.98039 spng
|
||||
22 19 14 200 1.5 89.4427189999999968 spng
|
||||
23 14 8 200 1.5 84.8528139999999951 spng
|
||||
24 8 5 200 1.5 89.4427189999999968 spng
|
||||
25 5 16 200 1.5 101.98039 spng
|
||||
26 16 10 200 1.5 101.98039 spng
|
||||
27 10 3 200 1.5 89.4427189999999968 spng
|
||||
28 3 18 200 1.5 84.8528139999999951 spng
|
||||
29 18 12 200 1.5 89.4427189999999968 spng
|
||||
30 12 1 200 1.5 101.98039 spng
|
||||
31 2 20 200 1.5 89.4427189999999968 spng
|
||||
32 20 13 200 1.5 84.8528139999999951 spng
|
||||
33 13 7 200 1.5 89.4427189999999968 spng
|
||||
34 7 6 200 1.5 101.98039 spng
|
||||
35 6 15 200 1.5 101.98039 spng
|
||||
36 15 9 200 1.5 89.4427189999999968 spng
|
||||
37 9 4 200 1.5 84.8528139999999951 spng
|
||||
38 4 17 200 1.5 89.4427189999999968 spng
|
||||
39 17 11 200 1.5 101.98039 spng
|
||||
40 11 2 200 1.5 101.98039 spng
|
||||
|
||||
nodes> 200 random -100 + 200 random -100 + 2array [ swap set-node-vel ] curry
|
||||
each ;
|
||||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
|
|
@ -0,0 +1,113 @@
|
|||
|
||||
USING: kernel namespaces arrays sequences threads math math.vectors
|
||||
ui random bake
|
||||
springies springies.ui ;
|
||||
|
||||
IN: springies.models.urchin
|
||||
|
||||
: model ( -- )
|
||||
|
||||
{ } clone >nodes
|
||||
{ } clone >springs
|
||||
0.007 >time-slice
|
||||
gravity on
|
||||
|
||||
1 507.296953 392.174236 -11.451186 -71.267273 1.0 1.0 mass
|
||||
2 514.879820 372.128025 11.950035 -70.858717 1.0 1.0 mass
|
||||
3 536.571268 364.423706 18.394466 -41.159445 1.0 1.0 mass
|
||||
4 554.886966 369.953895 15.173664 -11.009243 1.0 1.0 mass
|
||||
5 572.432935 379.927626 8.228103 -1.120846 1.0 1.0 mass
|
||||
6 585.774508 392.380791 5.443281 -8.186599 1.0 1.0 mass
|
||||
7 584.650543 411.934530 -15.582843 -24.911756 1.0 1.0 mass
|
||||
8 569.409148 424.155713 -24.100159 -42.285960 1.0 1.0 mass
|
||||
9 553.751996 434.663690 -26.069217 -41.610454 1.0 1.0 mass
|
||||
10 536.684374 444.915694 -30.702349 -45.021926 1.0 1.0 mass
|
||||
11 516.677286 435.936238 -33.128410 -60.977340 1.0 1.0 mass
|
||||
12 514.170680 414.649472 -24.471518 -64.104425 1.0 1.0 mass
|
||||
13 602.101547 478.298945 1.612646 -53.040881 1.0 1.0 mass
|
||||
14 637.0 427.598266 0.0 0.0 1.0 1.0 mass
|
||||
15 608.000171 350.425575 31.812856 23.456940 1.0 1.0 mass
|
||||
16 484.367809 332.414622 42.575378 -91.238351 1.0 1.0 mass
|
||||
17 480.857379 475.215663 -24.240991 -53.909049 1.0 1.0 mass
|
||||
18 548.580015 492.173168 -34.565312 -52.436468 1.0 1.0 mass
|
||||
19 578.155338 487.173526 22.544495 -71.920721 1.0 1.0 mass
|
||||
20 630.992588 379.333707 16.662115 37.873709 1.0 1.0 mass
|
||||
21 591.256916 324.817423 63.036114 27.988433 1.0 1.0 mass
|
||||
22 539.051461 311.597938 159.501014 -27.955219 1.0 1.0 mass
|
||||
23 448.396171 396.882674 -15.045910 -138.652372 1.0 1.0 mass
|
||||
24 448.194414 419.993896 -27.625008 -84.936708 1.0 1.0 mass
|
||||
1 1 2 200.0 3.0 20.0 spng
|
||||
2 2 3 200.0 3.0 20.0 spng
|
||||
3 3 4 200.0 3.0 20.0 spng
|
||||
4 4 5 200.0 3.0 20.0 spng
|
||||
5 5 6 200.0 3.0 20.0 spng
|
||||
6 6 7 200.0 3.0 20.0 spng
|
||||
7 7 8 200.0 3.0 20.0 spng
|
||||
8 8 9 200.0 3.0 20.0 spng
|
||||
9 9 10 200.0 3.0 20.0 spng
|
||||
10 10 11 200.0 3.0 20.0 spng
|
||||
11 11 12 200.0 3.0 20.0 spng
|
||||
12 1 3 200.0 3.0 40.0 spng
|
||||
13 2 4 200.0 3.0 40.0 spng
|
||||
14 3 5 200.0 3.0 40.0 spng
|
||||
15 4 6 200.0 3.0 40.0 spng
|
||||
16 6 8 200.0 3.0 40.0 spng
|
||||
17 7 9 200.0 3.0 40.0 spng
|
||||
18 8 10 200.0 3.0 40.0 spng
|
||||
19 9 11 200.0 3.0 40.0 spng
|
||||
20 10 12 200.0 3.0 40.0 spng
|
||||
21 12 1 200.0 3.0 21.0 spng
|
||||
22 12 2 200.0 3.0 41.0 spng
|
||||
23 11 1 200.0 3.0 41.0 spng
|
||||
24 6 12 200.0 3.0 72.681733 spng
|
||||
25 5 11 200.0 3.0 81.191259 spng
|
||||
26 10 4 200.0 3.0 76.026311 spng
|
||||
27 3 9 200.0 3.0 72.615425 spng
|
||||
28 8 2 200.0 3.0 74.966659 spng
|
||||
29 1 7 200.0 3.0 80.280757 spng
|
||||
30 17 11 200.0 3.0 55.036352 spng
|
||||
31 10 18 200.0 3.0 49.819675 spng
|
||||
32 19 9 200.0 3.0 54.918121 spng
|
||||
33 8 13 200.0 3.0 62.201286 spng
|
||||
34 14 7 200.0 3.0 58.600341 spng
|
||||
35 6 20 200.0 3.0 46.400431 spng
|
||||
36 15 5 200.0 3.0 44.045431 spng
|
||||
37 4 21 200.0 3.0 57.454330 spng
|
||||
38 22 3 200.0 3.0 53.823787 spng
|
||||
39 2 16 200.0 3.0 51.039201 spng
|
||||
40 23 1 200.0 3.0 58.668561 spng
|
||||
41 12 24 200.0 3.0 64.404969 spng
|
||||
42 24 11 200.0 3.0 71.217975 spng
|
||||
43 17 12 200.0 3.0 65.0 spng
|
||||
44 11 18 200.0 3.0 60.745370 spng
|
||||
45 18 9 200.0 3.0 60.406953 spng
|
||||
46 9 13 200.0 3.0 67.779053 spng
|
||||
47 13 7 200.0 3.0 66.708320 spng
|
||||
48 7 20 200.0 3.0 55.659680 spng
|
||||
49 20 5 200.0 3.0 60.0 spng
|
||||
50 5 21 200.0 3.0 61.846584 spng
|
||||
51 21 3 200.0 3.0 64.031242 spng
|
||||
52 3 16 200.0 3.0 63.568860 spng
|
||||
53 16 1 200.0 3.0 59.774577 spng
|
||||
54 1 24 200.0 3.0 65.802736 spng
|
||||
55 17 10 200.0 3.0 64.845971 spng
|
||||
56 10 19 200.0 3.0 58.249464 spng
|
||||
57 19 8 200.0 3.0 67.268120 spng
|
||||
58 8 14 200.0 3.0 67.268120 spng
|
||||
59 14 6 200.0 3.0 64.629715 spng
|
||||
60 6 15 200.0 3.0 50.089919 spng
|
||||
61 15 4 200.0 3.0 56.320511 spng
|
||||
62 4 22 200.0 3.0 60.728906 spng
|
||||
63 22 2 200.0 3.0 61.032778 spng
|
||||
64 2 23 200.0 3.0 66.528190 spng
|
||||
65 23 12 200.0 3.0 72.277244 spng
|
||||
|
||||
nodes>
|
||||
75 random -75 + 0 2array [ over node-vel v+ swap set-node-vel ]
|
||||
curry each
|
||||
|
||||
;
|
||||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
USING: kernel namespaces threads sequences math math.vectors combinators.lib
|
||||
opengl.gl opengl colors ui ui.gadgets ui.gadgets.slate
|
||||
rewrite-closures vars springies ;
|
||||
bake rewrite-closures vars springies ;
|
||||
|
||||
IN: springies.ui
|
||||
|
||||
|
|
@ -58,4 +58,9 @@ DEFER: maybe-loop
|
|||
|
||||
slate> "Springies" open-window ;
|
||||
|
||||
: springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ;
|
||||
: springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: go* ( quot -- )
|
||||
[ [ [ springies-window* 1000 sleep % ] with-scope ] with-ui ] bake call ;
|
||||
|
|
|
|||
Loading…
Reference in New Issue