Organizing source code with subdirectories

1 files changed, 0 insertions, 35 deletions

diff --git a/src/Cloud.elm b/src/Cloud.elm
deleted file mode 100644
index 45a1dcb..0000000
--- a/src/Cloud.elm
+++ /dev/null
@@ -1,35 +0,0 @@
-module Cloud where
-
-import List
-
-import Point (..)
-import Player (..)
-import Config (..)
-import Geometry (distance)
-
-type alias Cloud =
-  { points : Config -> List Point
-  , spawn : Float
-  , lastSpawn : Float
-  }
-
-initCloud : Cloud
-initCloud =
-  let spawn = 600
-  in  { points config =
-          case config of
-            White -> []
-            Black -> []
-      , spawn = spawn
-      , lastSpawn = -spawn
-      }
-
-playerPointsCollision : Float -> Player -> List Point -> Bool
-playerPointsCollision time player points =
-  let collision = playerPointCollision time player
-  in  List.length (List.filter collision points) > 0
-
-playerPointCollision : Float -> Player -> Point -> Bool
-playerPointCollision time player point =
-  let pointPos = pointMove point time
-  in  (distance pointPos player.pos) < pointSize + playerSize