Adding multiple moving points to catch

1 files changed, 15 insertions, 8 deletions

diff --git a/src/Input.elm b/src/Input.elm
index 69e7503..1015302 100644
--- a/src/Input.elm
+++ b/src/Input.elm
@@ -16,7 +16,7 @@ getInput : Signal Input
 getInput =
   let dtSignal = delta
       dirSignal = lift recordIntToVec2 Keyboard.arrows
-      randomFloatsSignal = Random.floatList (lift (\_ -> 5) dtSignal)
+      randomFloatsSignal = Random.floatList (lift (\_ -> 6) dtSignal)
       randomValuesSignal = lift floatsToRandomValues randomFloatsSignal
   in  sampleOn dtSignal <| Input <~ dirSignal
                                   ~ dtSignal
@@ -32,10 +32,17 @@ recordIntToVec2 {x, y} =
   }
 
 floatsToRandomValues : [Float] -> RandomValues
-floatsToRandomValues [enemyAngle, enemyX, enemyY, targetX, targetY] =
-  { enemyAngle = enemyAngle
-  , enemyX = enemyX
-  , enemyY = enemyY
-  , targetX = targetX
-  , targetY = targetY
-  }
+floatsToRandomValues [angle1, x1, y1, angle2, x2, y2] =
+  let greenPoint =
+        { angle = angle1
+        , x = x1
+        , y = y1
+        }
+      redPoint =
+        { angle = angle2
+        , x = x2
+        , y = y2
+        }
+  in  { greenPoint = greenPoint
+      , redPoint = redPoint
+      }