extra/springies/models/nifty/nifty.factor

   1
   2 USING: kernel namespaces arrays sequences threads math math.vectors
   3        ui random springies springies.ui ;
   4
   5 IN: springies.models.nifty
   6
   7 : model ( -- )
   8
   9 { } clone >nodes
  10 { } clone >springs
  11 0.007 >time-slice
  12 gravity off
  13
  14 1 148.581450999999987 350.573888000000011 0 -7.75 1 0.1 mass
  15 2 168.564277000000004 351.402524000000028 0 -7.75 1 0.1 mass
  16 3 188.54710399999999 352.231158999999991 0 -7.75 1 0.1 mass
  17 4 208.529931000000005 353.059794000000011 0 -7.75 1 0.1 mass
  18 5 228.512757999999991 353.888428999999974 0 -7.75 1 0.1 mass
  19 6 248.495584000000008 354.717063999999993 0 -7.75 1 0.1 mass
  20 7 149.410086000000007 330.591061000000025 0 -7.75 1 0.1 mass
  21 8 150.238720999999998 310.608234999999979 0 -7.75 1 0.1 mass
  22 9 151.06735599999999 290.625407999999993 0 -7.75 1 0.1 mass
  23 10 151.895991000000009 270.642581000000007 0 -7.75 1 0.1 mass
  24 11 152.724626000000001 250.65975499999999 0 -7.75 1 0.1 mass
  25 12 172.707452999999987 251.48839000000001 0 -7.749999 1 0.1 mass
  26 13 192.690280000000001 252.317025000000001 0 -7.75 1 0.1 mass
  27 14 212.67310599999999 253.145659999999992 0 -7.75 1 0.1 mass
  28 15 232.655933000000005 253.974295000000012 0 -7.75 1 0.1 mass
  29 16 252.638759999999991 254.802930000000003 0 -7.75 1 0.1 mass
  30 17 251.810124999999999 274.78575699999999 0 -7.75 1 0.1 mass
  31 18 250.98148900000001 294.768583999999976 0 -7.75 1 0.1 mass
  32 19 249.324218999999999 334.734237000000007 0 -7.75 1 0.1 mass
  33 20 250.152853999999991 314.751410000000021 0 -7.75 1 0.1 mass
  34 1 1 2 200 1.5 20 spng
  35 2 2 3 200 1.5 20 spng
  36 3 3 4 200 1.5 20 spng
  37 4 4 5 200 1.5 20 spng
  38 5 5 6 200 1.5 20 spng
  39 6 6 19 200 1.5 20 spng
  40 7 19 20 200 1.5 20 spng
  41 8 20 18 200 1.5 20 spng
  42 9 18 17 200 1.5 20 spng
  43 10 17 16 200 1.5 20 spng
  44 11 16 15 200 1.5 20 spng
  45 12 15 14 200 1.5 20 spng
  46 13 14 13 200 1.5 20 spng
  47 14 13 12 200 1.5 20 spng
  48 15 12 11 200 1.5 20 spng
  49 16 11 10 200 1.5 20 spng
  50 17 10 9 200 1.5 20 spng
  51 18 9 8 200 1.5 20 spng
  52 19 8 7 200 1.5 20 spng
  53 20 7 1 200 1.5 20 spng
  54 21 1 19 200 1.5 101.98039 spng
  55 22 19 14 200 1.5 89.4427189999999968 spng
  56 23 14 8 200 1.5 84.8528139999999951 spng
  57 24 8 5 200 1.5 89.4427189999999968 spng
  58 25 5 16 200 1.5 101.98039 spng
  59 26 16 10 200 1.5 101.98039 spng
  60 27 10 3 200 1.5 89.4427189999999968 spng
  61 28 3 18 200 1.5 84.8528139999999951 spng
  62 29 18 12 200 1.5 89.4427189999999968 spng
  63 30 12 1 200 1.5 101.98039 spng
  64 31 2 20 200 1.5 89.4427189999999968 spng
  65 32 20 13 200 1.5 84.8528139999999951 spng
  66 33 13 7 200 1.5 89.4427189999999968 spng
  67 34 7 6 200 1.5 101.98039 spng
  68 35 6 15 200 1.5 101.98039 spng
  69 36 15 9 200 1.5 89.4427189999999968 spng
  70 37 9 4 200 1.5 84.8528139999999951 spng
  71 38 4 17 200 1.5 89.4427189999999968 spng
  72 39 17 11 200 1.5 101.98039 spng
  73 40 11 2 200 1.5 101.98039 spng
  74
  75 nodes> 200 random -100 + 200 random -100 + 2array [ swap set-node-vel ] curry
  76 each ;
  77
  78 : go ( -- ) [ model ] go* ;
  79
  80 MAIN: go