From 17a58e0c4c67f27d87635bf1b2ca50fb11795ad3 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 7 Mar 2015 15:12:02 +0100
Subject: Organizing source code with subdirectories

---
 src/Step.elm | 50 --------------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 src/Step.elm

(limited to 'src/Step.elm')

diff --git a/src/Step.elm b/src/Step.elm
deleted file mode 100644
index dd340a5..0000000
--- a/src/Step.elm
+++ /dev/null
@@ -1,50 +0,0 @@
-module Step where
-
-import List
-import Keyboard (KeyCode)
-import Char (fromCode, toCode)
-
-import Vec2 (..)
-import Game (..)
-import Player (..)
-import Cloud (..)
-import Geometry (..)
-import Player (playerSpeed)
-import Point (pointSpeed, pointMove, pointAwayDist)
-import Physics (getNewPosAndSpeed)
-import CloudStep (cloudStep)
-import Config (otherConfig)
-import Input (Input)
-
-step : Input -> Game -> Game
-step {dir, inputKeysDown, delta} {time, keysDown, score, player, cloud, bestScore, seed} =
-  let hostilePoints = cloud.points (otherConfig player.config)
-  in  if(playerPointsCollision time player hostilePoints) then
-        let newBestScore = if(score > bestScore) then score else bestScore
-        in  initialGame seed player.pos player.config newBestScore
-      else
-        let newTime = time + delta
-            newPlayer = playerStep delta dir (newKeyCode keysDown inputKeysDown) player
-            (newCloud, addScore, newSeed) = cloudStep time seed newPlayer cloud
-        in  { time = newTime
-            , keysDown = inputKeysDown
-            , score = score + addScore
-            , player = newPlayer
-            , cloud = newCloud
-            , bestScore = bestScore
-            , seed = newSeed
-            }
-
-playerStep : Float -> Vec2 -> (KeyCode -> Bool) -> Player -> Player
-playerStep dt dir newKey player =
-  let (pos, speed) = getNewPosAndSpeed dt dir playerSpeed (player.pos, player.speed)
-      newConfig = if (newKey 69) then otherConfig player.config else player.config
-  in  { pos = inBoard playerSize pos
-      , speed = speed
-      , config = newConfig
-      }
-
-newKeyCode : List KeyCode -> List KeyCode -> KeyCode -> Bool
-newKeyCode lastKeyCodes newKeyCodes keyCode =
-  let contains = not << List.isEmpty << List.filter (\kc -> kc == keyCode)
-  in  not (contains lastKeyCodes) && (contains newKeyCodes)
-- 
cgit v1.2.3