From f2327fc3c524c255eb0432ef6e67a880c7bec539 Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Sat, 17 Jun 2017 17:00:08 -0400
Subject: [PATCH] Implement level to gravity delay

---
 src/UI/Game.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/UI/Game.hs b/src/UI/Game.hs
index 7e9a78d..2c4242a 100644
--- a/src/UI/Game.hs
+++ b/src/UI/Game.hs
@@ -48,7 +48,7 @@ playGame lvl = do
   customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame
 
 levelToDelay :: Int -> Int
-levelToDelay n = 1000000 -- floor $ fromIntegral $ 72500 * 0.85 ^ n + n
+levelToDelay n = floor $ 400000 * 0.85 ^ (2 * n) -- n + (fromIntegral n)
 
 -- Handling events