From 2fe50fd2ebb1815a330b20e599f756fa393de81b Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 5 Mar 2015 00:49:33 +0100
Subject: Change game parameters

---
 src/Cloud.elm   | 2 +-
 src/Physics.elm | 2 +-
 src/Player.elm  | 4 ++--
 src/Point.elm   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Cloud.elm b/src/Cloud.elm
index 0916bf6..45a1dcb 100644
--- a/src/Cloud.elm
+++ b/src/Cloud.elm
@@ -15,7 +15,7 @@ type alias Cloud =
 
 initCloud : Cloud
 initCloud =
-  let spawn = 100
+  let spawn = 600
   in  { points config =
           case config of
             White -> []
diff --git a/src/Physics.elm b/src/Physics.elm
index b59b3e1..2d2d627 100644
--- a/src/Physics.elm
+++ b/src/Physics.elm
@@ -23,7 +23,7 @@ getMove speed dir =
           }
 
 getAcc : Vec2 -> Vec2 -> Vec2
-getAcc move speed = (move `div` 800) `sub` (speed `div` 1000)
+getAcc move speed = (move `div` 300) `sub` (speed `div` 300)
 
 getNewPos : Float -> Vec2 -> Vec2 -> Vec2 -> Vec2
 getNewPos dt acc speed pos =
diff --git a/src/Player.elm b/src/Player.elm
index 2be7229..d1c10e0 100644
--- a/src/Player.elm
+++ b/src/Player.elm
@@ -10,7 +10,7 @@ type alias Player =
   }
 
 playerSize : Float
-playerSize = 10
+playerSize = 15
 
 playerSpeed : Float -> Float
-playerSpeed dt = dt / 400
+playerSpeed dt = dt / 200
diff --git a/src/Point.elm b/src/Point.elm
index a27916c..e66a5f7 100644
--- a/src/Point.elm
+++ b/src/Point.elm
@@ -15,7 +15,7 @@ pointMove {initTime, initPos, initDest, move} time =
   move initTime initPos initDest time
 
 pointSize : Float
-pointSize = 5
+pointSize = 10
 
 pointSpeed : Float -> Float
 pointSpeed dt = dt / 20
-- 
cgit v1.2.3