diff options
Diffstat (limited to 'src/Cloud.elm')
-rw-r--r-- | src/Cloud.elm | 12 |
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 } |