Adding a power to change the player color that reverse points to catch and points to avoid

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
       }