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        } | 
