From 4521cdf1bb5725c9d497e5fb0c03943ad03a052f Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 5 Oct 2014 23:10:18 +0200
Subject: Adding multiple moving points to catch

---
 src/Input.elm | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

(limited to 'src/Input.elm')

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
+      }
-- 
cgit v1.2.3