unmaintained/springies/models/2snake/2snake.factor

   1
   2 USING: kernel namespaces arrays sequences math math.vectors random
   3        springies springies.ui ;
   4
   5 IN: springies.models.2snake
   6
   7 : model ( -- )
   8
   9 { } clone >nodes
  10 { } clone >springs
  11 0.001 >time-slice
  12 gravity off
  13
  14 1 19.0 328.0 0.0 0.0 1.0 1.0 mass
  15 2 36.0 328.0 0.0 0.0 1.0 1.0 mass
  16 3 54.0 328.0 0.0 0.0 1.0 1.0 mass
  17 4 72.0 328.0 0.0 0.0 1.0 1.0 mass
  18 5 90.0 328.0 0.0 0.0 1.0 1.0 mass
  19 6 108.0 328.0 0.0 0.0 1.0 1.0 mass
  20 7 126.0 328.0 0.0 0.0 1.0 1.0 mass
  21 8 144.0 328.0 0.0 0.0 1.0 1.0 mass
  22 9 162.0 328.0 0.0 0.0 1.0 1.0 mass
  23 10 180.0 328.0 0.0 0.0 1.0 1.0 mass
  24 11 198.0 328.0 0.0 0.0 1.0 1.0 mass
  25 12 216.0 328.0 0.0 0.0 1.0 1.0 mass
  26 13 234.0 328.0 0.0 0.0 1.0 1.0 mass
  27 14 252.0 328.0 0.0 0.0 1.0 1.0 mass
  28 15 270.0 328.0 0.0 0.0 1.0 1.0 mass
  29 16 288.0 328.0 0.0 0.0 1.0 1.0 mass
  30 17 306.0 328.0 0.0 0.0 1.0 1.0 mass
  31 18 324.0 328.0 0.0 0.0 1.0 1.0 mass
  32 19 342.0 328.0 0.0 0.0 1.0 1.0 mass
  33 20 360.0 328.0 0.0 0.0 1.0 1.0 mass
  34 21 378.0 328.0 0.0 0.0 1.0 1.0 mass
  35 22 396.0 328.0 0.0 0.0 1.0 1.0 mass
  36 23 414.0 328.0 0.0 0.0 1.0 1.0 mass
  37 24 432.0 328.0 0.0 0.0 1.0 1.0 mass
  38 25 450.0 328.0 0.0 0.0 1.0 1.0 mass
  39 26 468.0 328.0 0.0 0.0 1.0 1.0 mass
  40 27 504.0 328.0 0.0 0.0 1.0 1.0 mass
  41 28 486.0 328.0 0.0 0.0 1.0 1.0 mass
  42 29 522.0 328.0 0.0 0.0 1.0 1.0 mass
  43 30 540.0 328.0 0.0 0.0 1.0 1.0 mass
  44 31 558.0 328.0 0.0 0.0 1.0 1.0 mass
  45 32 576.0 328.0 0.0 0.0 1.0 1.0 mass
  46 33 594.0 328.0 0.0 0.0 1.0 1.0 mass
  47 34 612.0 328.0 0.0 0.0 1.0 1.0 mass
  48 35 630.0 328.0 0.0 0.0 1.0 1.0 mass
  49 1 1 2 200.0 1.500000 18.0 spng
  50 2 3 2 200.0 1.500000 18.0 spng
  51 3 3 4 200.0 1.500000 18.0 spng
  52 4 4 5 200.0 1.500000 18.0 spng
  53 5 5 6 200.0 1.500000 18.0 spng
  54 6 6 7 200.0 1.500000 18.0 spng
  55 7 7 8 200.0 1.500000 18.0 spng
  56 8 8 9 200.0 1.500000 18.0 spng
  57 9 9 10 200.0 1.500000 18.0 spng
  58 10 10 11 200.0 1.500000 18.0 spng
  59 11 11 12 200.0 1.500000 18.0 spng
  60 12 12 13 200.0 1.500000 18.0 spng
  61 13 13 14 200.0 1.500000 18.0 spng
  62 14 14 15 200.0 1.500000 18.0 spng
  63 15 15 16 200.0 1.500000 18.0 spng
  64 16 16 17 200.0 1.500000 18.0 spng
  65 17 17 18 200.0 1.500000 18.0 spng
  66 18 18 19 200.0 1.500000 18.0 spng
  67 19 19 20 200.0 1.500000 18.0 spng
  68 20 20 21 200.0 1.500000 18.0 spng
  69 21 21 22 200.0 1.500000 18.0 spng
  70 22 22 23 200.0 1.500000 18.0 spng
  71 23 23 24 200.0 1.500000 18.0 spng
  72 24 24 25 200.0 1.500000 18.0 spng
  73 25 25 26 200.0 1.500000 18.0 spng
  74 26 26 28 200.0 1.500000 18.0 spng
  75 27 28 27 200.0 1.500000 18.0 spng
  76 28 27 29 200.0 1.500000 18.0 spng
  77 29 29 30 200.0 1.500000 18.0 spng
  78 30 30 31 200.0 1.500000 18.0 spng
  79 31 31 32 200.0 1.500000 18.0 spng
  80 32 32 33 200.0 1.500000 18.0 spng
  81 33 33 34 200.0 1.500000 18.0 spng
  82 34 34 35 200.0 1.500000 18.0 spng
  83 35 1 3 200.0 1.500000 36.0 spng
  84 36 2 4 200.0 1.500000 36.0 spng
  85 37 3 5 200.0 1.500000 36.0 spng
  86 38 4 6 200.0 1.500000 36.0 spng
  87 39 5 7 200.0 1.500000 36.0 spng
  88 40 6 8 200.0 1.500000 36.0 spng
  89 41 7 9 200.0 1.500000 36.0 spng
  90 42 8 10 200.0 1.500000 36.0 spng
  91 43 9 11 200.0 1.500000 36.0 spng
  92 44 10 12 200.0 1.500000 36.0 spng
  93 45 11 13 200.0 1.500000 36.0 spng
  94 46 12 14 200.0 1.500000 36.0 spng
  95 47 13 15 200.0 1.500000 36.0 spng
  96 48 14 16 200.0 1.500000 36.0 spng
  97 49 15 17 200.0 1.500000 36.0 spng
  98 50 16 18 200.0 1.500000 36.0 spng
  99 51 17 19 200.0 1.500000 36.0 spng
 100 52 18 20 200.0 1.500000 36.0 spng
 101 53 19 21 200.0 1.500000 36.0 spng
 102 54 20 22 200.0 1.500000 36.0 spng
 103 55 21 23 200.0 1.500000 36.0 spng
 104 56 22 24 200.0 1.500000 36.0 spng
 105 57 23 25 200.0 1.500000 36.0 spng
 106 58 24 26 200.0 1.500000 36.0 spng
 107 59 25 28 200.0 1.500000 36.0 spng
 108 60 26 27 200.0 1.500000 36.0 spng
 109 61 28 29 200.0 1.500000 36.0 spng
 110 62 27 30 200.0 1.500000 36.0 spng
 111 63 29 31 200.0 1.500000 36.0 spng
 112 64 30 32 200.0 1.500000 36.0 spng
 113 65 31 33 200.0 1.500000 36.0 spng
 114 66 32 34 200.0 1.500000 36.0 spng
 115 67 33 35 200.0 1.500000 36.0 spng
 116
 117 nodes> [ 400 random -200 + 400 random -200 + 2array swap set-node-vel ] each ;
 118
 119 USING: threads ui ;
 120
 121 : go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
 122
 123 MAIN: go