From 2258ef984fefde41711d4c883baf582b7e581155 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 13:35:01 +0100
Subject: Make the player bigger with each point

---
 src/Model/Level.elm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/Model/Level.elm')

diff --git a/src/Model/Level.elm b/src/Model/Level.elm
index 3fc4258..d058d53 100644
--- a/src/Model/Level.elm
+++ b/src/Model/Level.elm
@@ -1,7 +1,9 @@
 module Model.Level
   ( currentLevel
+  , currentLevelScore
   , currentLevelNumber
   , progressiveColor
+  , levelScoreDuration
   ) where
 
 import Time exposing (Time)
@@ -14,13 +16,17 @@ import Model.Point exposing (pointSpeed)
 import Utils.Physics exposing (getMove, getWaveMove)
 
 levelScoreDuration : Int
-levelScoreDuration = 15
+levelScoreDuration = 20
 
 type alias Level =
   { color : Color
   , move : Vec2 -> Vec2 -> Time -> Vec2
   }
 
+currentLevelScore : Int -> Int
+currentLevelScore currentScore =
+  currentScore - (currentLevelNumber currentScore - 1) * levelScoreDuration
+
 currentLevelNumber : Int -> Int
 currentLevelNumber currentScore =
   min
-- 
cgit v1.2.3