add places to place pieces

Signed-off-by: Ryan1729 <[email protected]>

Author: Ryan1729

Model.elm

@@ -11,7 +11,7 @@ type alias Model =
 
 defaultModel =
     { board = initialBoard
-    , selected = Nothing
+    , selected = Just (Piece Plain X)
     , rack = initialRack
     , gameState = InProgress
     }
@@ -45,39 +45,22 @@ type alias Board =
 
 initialBoard : Board
 initialBoard =
-    -- { zeroZero = EmptySpace
-    -- , oneZero = EmptySpace
-    -- , twoZero = EmptySpace
-    -- , threeZero = EmptySpace
-    -- , zeroOne = EmptySpace
-    -- , oneOne = EmptySpace
-    -- , twoOne = EmptySpace
-    -- , threeOne = EmptySpace
-    -- , zeroTwo = EmptySpace
-    -- , oneTwo = EmptySpace
-    -- , twoTwo = EmptySpace
-    -- , threeTwo = EmptySpace
-    -- , zeroThree = EmptySpace
-    -- , oneThree = EmptySpace
-    -- , twoThree = EmptySpace
-    -- , threeThree = EmptySpace
-    -- }
-    { zeroZero = Space <| Piece Plain X
-    , oneZero = Space <| Piece Plain X
-    , twoZero = Space <| Piece Plain X
-    , threeZero = Space <| Piece Plain X
-    , zeroOne = Space <| Piece Plain X
-    , oneOne = Space <| Piece Plain X
-    , twoOne = Space <| Piece Plain X
-    , threeOne = Space <| Piece Plain X
-    , zeroTwo = Space <| Piece Plain X
-    , oneTwo = Space <| Piece Plain X
-    , twoTwo = Space <| Piece Plain X
-    , threeTwo = Space <| Piece Plain X
-    , zeroThree = Space <| Piece Plain X
-    , oneThree = Space <| Piece Plain X
-    , twoThree = Space <| Piece Plain X
-    , threeThree = Space <| Piece Plain X
+    { zeroZero = EmptySpace
+    , oneZero = EmptySpace
+    , twoZero = EmptySpace
+    , threeZero = EmptySpace
+    , zeroOne = EmptySpace
+    , oneOne = EmptySpace
+    , twoOne = EmptySpace
+    , threeOne = EmptySpace
+    , zeroTwo = EmptySpace
+    , oneTwo = EmptySpace
+    , twoTwo = EmptySpace
+    , threeTwo = EmptySpace
+    , zeroThree = EmptySpace
+    , oneThree = EmptySpace
+    , twoThree = EmptySpace
+    , threeThree = EmptySpace
     }
 
 
@@ -268,7 +251,8 @@ removeFromRack piece rack =
 
 place : Piece -> BoardId -> Board -> Board
 place piece boardId board =
-    board
+    setSpace boardId (Space piece) board
+        |> Debug.log "place"
 
 
 getAvailableBoardIds : Board -> List BoardId

View.elm

@@ -9,7 +9,7 @@ import MaterialMsg exposing (MaterialMsg(Mdl, U))
 import Msg exposing (Msg(..))
 import Material.Button as Button
 import Material.Grid as Grid exposing (Device(..))
-import Svg exposing (Svg, svg, rect, path, Attribute, ellipse, g)
+import Svg exposing (Svg, svg, rect, path, circle, Attribute, ellipse, g)
 import Svg.Attributes exposing (..)
 import Svg.Events exposing (onClick)
 import PieceView
@@ -86,18 +86,44 @@ renderSpaces selected board =
     Model.boardIdPossibilities
         |> List.map
             (\boardId ->
-                renderSpace selected (Model.getSpace boardId board) (getSpaceCoords boardId)
+                renderSpace selected boardId (Model.getSpace boardId board) (getSpaceCoords boardId)
             )
 
 
-renderSpace : Maybe Piece -> Space -> ( Float, Float ) -> Svg Msg
-renderSpace selected space ( x, y ) =
-    case space of
-        EmptySpace ->
-            Svg.text ""
+renderSpace : Maybe Piece -> BoardId -> Space -> ( Float, Float ) -> Svg Msg
+renderSpace selected boardId space ( x, y ) =
+    let
+        piece =
+            case space of
+                EmptySpace ->
+                    Svg.text ""
+
+                Space piece ->
+                    PieceView.renderPiece piece x y
 
-        Space piece ->
-            PieceView.renderPiece piece x y
+        spaceAttriutes =
+            case selected of
+                Just _ ->
+                    [ onClick (Place boardId) ]
+
+                Nothing ->
+                    []
+    in
+        [ circle
+            ([ cx (toString x)
+             , cy (toString y)
+             , r <| toString (PieceView.halfPieceWidth + 15)
+             , fill "#888888"
+             , fillOpacity "0.25"
+             , strokeWidth "4"
+             , stroke "#888888"
+             ]
+                ++ spaceAttriutes
+            )
+            []
+        , piece
+        ]
+            |> g []
 
 
 getSpaceCoords boardId =
@@ -197,19 +223,3 @@ twoFifthsBoardHeightString =
 
 threeFifthsBoardHeightString =
     toString (boardHeight * 3 / 5)
-
-
-threeTenthsBoardWidthString =
-    toString (boardWidth * 3 / 10)
-
-
-sevenTenthsBoardWidthString =
-    toString (boardWidth * 7 / 10)
-
-
-threeTenthsBoardHeightString =
-    toString (boardHeight * 3 / 10)
-
-
-sevenTenthsBoardHeightString =
-    toString (boardHeight * 7 / 10)