/unmaintained/springies/models/ball/ball.factor
Unknown | 255 lines | 246 code | 9 blank | 0 comment | 0 complexity | f653eec7e04d302d91c3b94691f2732a MD5 | raw file
1 2USING: kernel namespaces sequences springies springies.ui ; 3 4IN: springies.models.ball 5 6: model ( -- ) 7 8{ } clone >nodes 9{ } clone >springs 100.01 >time-slice 11gravity on 12 131 325.191871 140.872641 40.832215 -5.301529 1.0 1.0 mass 142 313.933994 149.011616 55.240875 5.026852 1.0 1.0 mass 153 309.133386 162.523019 72.798059 5.594199 1.0 1.0 mass 164 312.887152 176.436760 83.754277 -1.370025 1.0 1.0 mass 175 321.660596 187.895952 91.634021 -8.308630 1.0 1.0 mass 186 335.256132 192.503856 94.772924 -18.985044 1.0 1.0 mass 197 348.254504 188.731936 92.657963 -29.982110 1.0 1.0 mass 208 359.050972 180.780059 86.668616 -39.817638 1.0 1.0 mass 219 363.685639 167.752177 76.554871 -47.987107 1.0 1.0 mass 2210 360.449954 154.092353 57.992242 -48.045772 1.0 1.0 mass 2311 352.201411 142.382665 41.200547 -39.924209 1.0 1.0 mass 2412 338.754859 137.460615 32.306364 -22.707784 1.0 1.0 mass 2513 312.911184 114.835962 8.342965 5.878311 1.0 1.0 mass 2614 290.521818 132.872407 33.212103 28.391710 1.0 1.0 mass 2715 281.048450 160.314206 66.319674 32.935324 1.0 1.0 mass 2816 287.450075 188.730522 93.898071 21.966741 1.0 1.0 mass 2917 305.987715 211.206959 112.571044 5.089593 1.0 1.0 mass 3018 333.289699 220.830317 121.166705 -17.204713 1.0 1.0 mass 3119 361.089678 214.901909 117.183695 -41.776506 1.0 1.0 mass 3220 382.690515 197.005784 101.789802 -63.980298 1.0 1.0 mass 3321 392.095364 170.108402 75.453780 -78.414351 1.0 1.0 mass 3422 386.286391 142.033621 41.812216 -77.402424 1.0 1.0 mass 3523 368.355658 119.326317 12.658676 -58.885262 1.0 1.0 mass 3624 341.159901 109.253775 -0.645459 -27.346079 1.0 1.0 mass 3725 300.792976 88.652764 -23.770230 17.788258 1.0 1.0 mass 3826 266.917041 116.942125 11.387083 52.603190 1.0 1.0 mass 3927 252.824303 157.992984 59.144863 62.163730 1.0 1.0 mass 4028 261.812599 201.245775 103.542171 47.141708 1.0 1.0 mass 4129 290.323965 234.792944 133.016945 18.136362 1.0 1.0 mass 4230 330.805232 249.331769 145.899409 -16.478401 1.0 1.0 mass 4331 373.715232 241.181453 141.068680 -55.103677 1.0 1.0 mass 4432 406.314817 213.217096 116.087430 -90.844012 1.0 1.0 mass 4533 420.647493 172.661774 73.304028 -110.880720 1.0 1.0 mass 4634 412.375908 129.697207 24.072484 -106.129512 1.0 1.0 mass 4735 384.555754 95.915740 -16.565355 -77.142380 1.0 1.0 mass 4836 344.134757 80.886540 -34.250916 -30.871105 1.0 1.0 mass 4937 288.774590 62.672780 -55.431084 28.821437 1.0 1.0 mass 5038 244.055965 100.457489 -9.756397 76.701354 1.0 1.0 mass 5139 224.574635 156.693148 53.845562 91.755892 1.0 1.0 mass 5240 235.856891 213.935639 112.462316 73.437061 1.0 1.0 mass 5341 273.697931 257.991035 152.320671 33.701056 1.0 1.0 mass 5442 329.129445 277.782400 170.727571 -15.899371 1.0 1.0 mass 5543 386.065290 267.474982 165.436658 -68.761273 1.0 1.0 mass 5644 429.946314 229.605765 132.087682 -116.795195 1.0 1.0 mass 5745 449.164590 174.189613 73.084826 -143.228528 1.0 1.0 mass 5846 438.674101 117.351918 9.340834 -136.225613 1.0 1.0 mass 5947 401.586435 72.955570 -42.523445 -98.317857 1.0 1.0 mass 6048 346.207804 52.561279 -67.447974 -34.980297 1.0 1.0 mass 611 1 2 150.0 2.0 14.0 spng 622 2 3 150.0 2.0 14.0 spng 633 3 4 150.0 2.0 14.0 spng 644 4 5 150.0 2.0 14.0 spng 655 5 6 150.0 2.0 14.0 spng 666 6 7 150.0 2.0 14.0 spng 677 7 8 150.0 2.0 14.0 spng 688 8 9 150.0 2.0 14.0 spng 699 9 10 150.0 2.0 14.0 spng 7010 10 11 150.0 2.0 14.0 spng 7111 11 12 150.0 2.0 14.0 spng 7212 12 1 150.0 2.0 14.0 spng 7313 13 14 150.0 2.0 28.0 spng 7414 14 15 150.0 2.0 28.0 spng 7515 15 16 150.0 2.0 28.0 spng 7616 16 17 150.0 2.0 28.0 spng 7717 17 18 150.0 2.0 28.0 spng 7818 18 19 150.0 2.0 28.0 spng 7919 19 20 150.0 2.0 28.0 spng 8020 20 21 150.0 2.0 28.0 spng 8121 21 22 150.0 2.0 28.0 spng 8222 22 23 150.0 2.0 28.0 spng 8323 23 24 150.0 2.0 28.0 spng 8424 24 13 150.0 2.0 28.0 spng 8525 25 26 150.0 2.0 44.0 spng 8626 26 27 150.0 2.0 43.0 spng 8727 27 28 150.0 2.0 44.0 spng 8828 28 29 150.0 2.0 44.0 spng 8929 29 30 150.0 2.0 43.0 spng 9030 30 31 150.0 2.0 44.0 spng 9131 31 32 150.0 2.0 43.0 spng 9232 32 33 150.0 2.0 43.0 spng 9333 33 34 150.0 2.0 44.0 spng 9434 34 35 150.0 2.0 44.0 spng 9535 35 36 150.0 2.0 43.0 spng 9636 36 25 150.0 2.0 44.0 spng 9737 37 38 150.0 2.0 58.0 spng 9838 38 39 150.0 2.0 59.0 spng 9939 39 40 150.0 2.0 58.0 spng 10040 40 41 150.0 2.0 58.0 spng 10141 41 42 150.0 2.0 59.0 spng 10242 42 43 150.0 2.0 58.0 spng 10343 43 44 150.0 2.0 58.0 spng 10444 44 45 150.0 2.0 59.0 spng 10545 45 46 150.0 2.0 58.0 spng 10646 46 47 150.0 2.0 58.0 spng 10747 47 48 150.0 2.0 59.0 spng 10848 48 37 150.0 2.0 58.0 spng 10949 1 13 150.0 2.0 29.0 spng 11050 2 14 150.0 2.0 28.0 spng 11151 3 15 150.0 2.0 28.0 spng 11252 4 16 150.0 2.0 29.0 spng 11353 5 17 150.0 2.0 28.0 spng 11454 6 18 150.0 2.0 28.0 spng 11555 7 19 150.0 2.0 29.0 spng 11656 8 20 150.0 2.0 28.0 spng 11757 9 21 150.0 2.0 28.0 spng 11858 10 22 150.0 2.0 29.0 spng 11959 11 23 150.0 2.0 28.0 spng 12060 12 24 150.0 2.0 28.0 spng 12161 13 25 150.0 2.0 29.0 spng 12262 14 26 150.0 2.0 28.0 spng 12363 15 27 150.0 2.0 28.0 spng 12464 16 28 150.0 2.0 29.0 spng 12565 17 29 150.0 2.0 28.0 spng 12666 18 30 150.0 2.0 28.0 spng 12767 19 31 150.0 2.0 29.0 spng 12868 20 32 150.0 2.0 28.0 spng 12969 21 33 150.0 2.0 28.0 spng 13070 22 34 150.0 2.0 29.0 spng 13171 23 35 150.0 2.0 28.0 spng 13272 24 36 150.0 2.0 28.0 spng 13373 25 37 150.0 2.0 29.0 spng 13474 26 38 150.0 2.0 28.0 spng 13575 27 39 150.0 2.0 28.0 spng 13676 28 40 150.0 2.0 29.0 spng 13777 29 41 150.0 2.0 28.0 spng 13878 30 42 150.0 2.0 28.0 spng 13979 31 43 150.0 2.0 29.0 spng 14080 32 44 150.0 2.0 28.0 spng 14181 33 45 150.0 2.0 28.0 spng 14282 34 46 150.0 2.0 29.0 spng 14383 35 47 150.0 2.0 28.0 spng 14484 36 48 150.0 2.0 28.0 spng 14585 1 14 150.0 2.0 35.0 spng 14686 2 15 150.0 2.0 35.0 spng 14787 3 16 150.0 2.0 34.0 spng 14888 4 17 150.0 2.0 35.0 spng 14989 5 18 150.0 2.0 35.0 spng 15090 6 19 150.0 2.0 34.0 spng 15191 7 20 150.0 2.0 35.0 spng 15292 8 21 150.0 2.0 35.0 spng 15393 9 22 150.0 2.0 34.0 spng 15494 10 23 150.0 2.0 35.0 spng 15595 11 24 150.0 2.0 35.0 spng 15696 12 13 150.0 2.0 34.0 spng 15797 13 26 150.0 2.0 46.0 spng 15898 14 27 150.0 2.0 45.0 spng 15999 15 28 150.0 2.0 45.0 spng 160100 16 29 150.0 2.0 46.0 spng 161101 17 30 150.0 2.0 45.0 spng 162102 18 31 150.0 2.0 45.0 spng 163103 19 32 150.0 2.0 45.0 spng 164104 20 33 150.0 2.0 45.0 spng 165105 21 34 150.0 2.0 45.0 spng 166106 22 35 150.0 2.0 46.0 spng 167107 23 36 150.0 2.0 45.0 spng 168108 24 25 150.0 2.0 45.0 spng 169109 25 38 150.0 2.0 58.0 spng 170110 26 39 150.0 2.0 58.0 spng 171111 27 40 150.0 2.0 58.0 spng 172112 28 41 150.0 2.0 58.0 spng 173113 29 42 150.0 2.0 58.0 spng 174114 30 43 150.0 2.0 58.0 spng 175115 31 44 150.0 2.0 58.0 spng 176116 32 45 150.0 2.0 58.0 spng 177117 33 46 150.0 2.0 58.0 spng 178118 34 47 150.0 2.0 58.0 spng 179119 35 48 150.0 2.0 58.0 spng 180120 36 37 150.0 2.0 58.0 spng 181121 1 24 150.0 2.0 35.0 spng 182122 2 13 150.0 2.0 34.0 spng 183123 3 14 150.0 2.0 35.0 spng 184124 4 15 150.0 2.0 35.0 spng 185125 5 16 150.0 2.0 34.0 spng 186126 6 17 150.0 2.0 35.0 spng 187127 7 18 150.0 2.0 35.0 spng 188128 8 19 150.0 2.0 34.0 spng 189129 9 20 150.0 2.0 35.0 spng 190130 10 21 150.0 2.0 35.0 spng 191131 11 22 150.0 2.0 34.0 spng 192132 12 23 150.0 2.0 35.0 spng 193133 13 36 150.0 2.0 46.0 spng 194134 14 25 150.0 2.0 45.0 spng 195135 15 26 150.0 2.0 45.0 spng 196136 16 27 150.0 2.0 46.0 spng 197137 17 28 150.0 2.0 45.0 spng 198138 18 29 150.0 2.0 45.0 spng 199139 19 30 150.0 2.0 46.0 spng 200140 20 31 150.0 2.0 45.0 spng 201141 21 32 150.0 2.0 45.0 spng 202142 22 33 150.0 2.0 46.0 spng 203143 23 34 150.0 2.0 45.0 spng 204144 24 35 150.0 2.0 45.0 spng 205145 25 48 150.0 2.0 58.0 spng 206146 26 37 150.0 2.0 58.0 spng 207147 27 38 150.0 2.0 58.0 spng 208148 28 39 150.0 2.0 58.0 spng 209149 29 40 150.0 2.0 58.0 spng 210150 30 41 150.0 2.0 58.0 spng 211151 31 42 150.0 2.0 58.0 spng 212152 32 43 150.0 2.0 58.0 spng 213153 33 44 150.0 2.0 58.0 spng 214154 34 45 150.0 2.0 58.0 spng 215155 35 46 150.0 2.0 58.0 spng 216156 36 47 150.0 2.0 58.0 spng 217157 10 4 150.0 2.0 52.331631 spng 218158 7 1 150.0 2.0 52.436772 spng 219159 12 6 150.0 2.0 54.680698 spng 220160 5 11 150.0 2.0 54.589379 spng 221161 9 3 150.0 2.0 54.451569 spng 222162 2 8 150.0 2.0 54.482231 spng 223163 45 11 150.0 2.0 101.408150 spng 224164 46 12 150.0 2.0 101.542452 spng 225165 47 1 150.0 2.0 101.963064 spng 226166 48 2 150.0 2.0 101.517329 spng 227167 37 3 150.0 2.0 101.603694 spng 228168 38 4 150.0 2.0 102.014031 spng 229169 39 5 150.0 2.0 101.547660 spng 230170 40 6 150.0 2.0 101.573762 spng 231171 41 7 150.0 2.0 101.897300 spng 232172 42 8 150.0 2.0 101.497982 spng 233173 43 9 150.0 2.0 101.870594 spng 234174 44 10 150.0 2.0 102.043753 spng 235175 45 11 150.0 2.0 101.408150 spng 236176 46 8 150.0 2.0 101.548938 spng 237177 47 10 150.0 2.0 90.645939 spng 238178 48 10 150.0 2.0 101.952119 spng 239179 37 11 150.0 2.0 101.552352 spng 240180 38 12 150.0 2.0 101.491447 spng 241181 39 1 150.0 2.0 101.971524 spng 242182 40 2 150.0 2.0 101.587400 spng 243183 41 3 150.0 2.0 101.519279 spng 244184 42 4 150.0 2.0 101.976181 spng 245185 43 5 150.0 2.0 101.714570 spng 246186 44 6 150.0 2.0 101.388747 spng 247187 45 7 150.0 2.0 101.773286 spng 248 249nodes> [ { 0 100 } swap set-node-vel ] each ; 250 251USING: threads ui ; 252 253: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ; 254 255MAIN: go