aboutsummaryrefslogtreecommitdiff
path: root/src/Cloud.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Cloud.elm')
-rw-r--r--src/Cloud.elm12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Cloud.elm b/src/Cloud.elm
index 081862c..99a4949 100644
--- a/src/Cloud.elm
+++ b/src/Cloud.elm
@@ -2,20 +2,22 @@ module Cloud where
import Point (..)
import Player (..)
+import Config (..)
import Geometry (distance)
type Cloud =
- { greenPoints : [Point]
- , redPoints : [Point]
+ { points : Config -> [Point]
, spawn : Float
, lastSpawn : Float
}
initCloud : Cloud
initCloud =
- let spawn = 200
- in { greenPoints = []
- , redPoints = []
+ let spawn = 100
+ in { points config =
+ case config of
+ White -> []
+ Black -> []
, spawn = spawn
, lastSpawn = -spawn
}