steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge commit 'dharmatech/master'

release
Slava Pestov 2007-10-10 01:24:42 -04:00
parent 9072011c32 bcb1e8f4c7
commit 96a1cbe72a
4 changed files with 507 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

307
extra/springies/models/belt-tire/belt-tire.factor Normal file
View File

@ -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

80
extra/springies/models/nifty/nifty.factor Normal file
View File

@ -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

113
extra/springies/models/urchin/urchin.factor Normal file
View File

@ -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

7
extra/springies/ui/ui.factor
View File

@ -1,7 +1,7 @@
USING: kernel namespaces threads sequences math math.vectors combinators.lib USING: kernel namespaces threads sequences math math.vectors combinators.lib
opengl.gl opengl colors ui ui.gadgets ui.gadgets.slate opengl.gl opengl colors ui ui.gadgets ui.gadgets.slate
rewrite-closures vars springies ; bake rewrite-closures vars springies ;
IN: springies.ui IN: springies.ui
@ -59,3 +59,8 @@ DEFER: maybe-loop
slate> "Springies" open-window ; 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 ;