From 3556bb99aeca84b26938c0e09fa5b2f67cbe2e6a Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 10 Oct 2007 00:09:39 -0500 Subject: [PATCH 1/5] Add springies.models.urchin --- extra/springies/models/urchin/urchin.factor | 113 ++++++++++++++++++++ 1 file changed, 113 insertions(+) create mode 100644 extra/springies/models/urchin/urchin.factor diff --git a/extra/springies/models/urchin/urchin.factor b/extra/springies/models/urchin/urchin.factor new file mode 100644 index 0000000000..570e77d2e8 --- /dev/null +++ b/extra/springies/models/urchin/urchin.factor @@ -0,0 +1,113 @@ + +USING: kernel namespaces arrays sequences threads math math.vectors + ui random bake + springies springies.ui ; + +IN: springies.models.ball + +: model ( -- ) + +{ } clone >nodes +{ } clone >springs +0.008 >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> + 100 random -100 + 0 2array [ over node-vel v+ swap set-node-vel ] +curry each + +; + +: go ( -- ) [ model ] go* ; + +MAIN: go \ No newline at end of file From 0c0ad6c3ee3a733e5e80735bcd2f8077d86a5487 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 10 Oct 2007 00:09:58 -0500 Subject: [PATCH 2/5] Add go* to springies.ui --- extra/springies/ui/ui.factor | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/extra/springies/ui/ui.factor b/extra/springies/ui/ui.factor index a7968fb1f7..156b9a8d6b 100644 --- a/extra/springies/ui/ui.factor +++ b/extra/springies/ui/ui.factor @@ -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 ; \ No newline at end of file +: springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: go* ( quot -- ) + [ [ [ springies-window* 1000 sleep % ] with-scope ] with-ui ] bake call ; From a8334731661b262dfc1cc9ad2a04f78c8e347f3a Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 10 Oct 2007 00:10:26 -0500 Subject: [PATCH 3/5] Add springies.models.belt-tire --- .../models/belt-tire/belt-tire.factor | 307 ++++++++++++++++++ 1 file changed, 307 insertions(+) create mode 100644 extra/springies/models/belt-tire/belt-tire.factor diff --git a/extra/springies/models/belt-tire/belt-tire.factor b/extra/springies/models/belt-tire/belt-tire.factor new file mode 100644 index 0000000000..6604f85a3f --- /dev/null +++ b/extra/springies/models/belt-tire/belt-tire.factor @@ -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 \ No newline at end of file From c451cb3fc273cdefccf3d6bb5c2471df0a09858d Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 10 Oct 2007 00:14:43 -0500 Subject: [PATCH 4/5] modify springies.models.urchin --- extra/springies/models/urchin/urchin.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/springies/models/urchin/urchin.factor b/extra/springies/models/urchin/urchin.factor index 570e77d2e8..734a1c2f6d 100644 --- a/extra/springies/models/urchin/urchin.factor +++ b/extra/springies/models/urchin/urchin.factor @@ -3,13 +3,13 @@ USING: kernel namespaces arrays sequences threads math math.vectors ui random bake springies springies.ui ; -IN: springies.models.ball +IN: springies.models.urchin : model ( -- ) { } clone >nodes { } clone >springs -0.008 >time-slice +0.007 >time-slice gravity on 1 507.296953 392.174236 -11.451186 -71.267273 1.0 1.0 mass @@ -103,7 +103,7 @@ gravity on 65 23 12 200.0 3.0 72.277244 spng nodes> - 100 random -100 + 0 2array [ over node-vel v+ swap set-node-vel ] + 75 random -75 + 0 2array [ over node-vel v+ swap set-node-vel ] curry each ; From bcb1e8f4c76d4d6e3a7ed78f26e8d5938693d54d Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 10 Oct 2007 00:21:06 -0500 Subject: [PATCH 5/5] Add springies.models.nifty --- extra/springies/models/nifty/nifty.factor | 80 +++++++++++++++++++++++ 1 file changed, 80 insertions(+) create mode 100644 extra/springies/models/nifty/nifty.factor diff --git a/extra/springies/models/nifty/nifty.factor b/extra/springies/models/nifty/nifty.factor new file mode 100644 index 0000000000..db644f2248 --- /dev/null +++ b/extra/springies/models/nifty/nifty.factor @@ -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 \ No newline at end of file