From e43df972c82c8b5926f76658c7588074e6a15069 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 14 Nov 2015 17:10:20 +0100
Subject: Display the game at fullscreen

---
 src/View/Game.elm | 153 ++++++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 126 insertions(+), 27 deletions(-)

(limited to 'src/View/Game.elm')

diff --git a/src/View/Game.elm b/src/View/Game.elm
index abe7a15..af7c8de 100644
--- a/src/View/Game.elm
+++ b/src/View/Game.elm
@@ -1,5 +1,5 @@
 module View.Game
-  ( render
+  ( renderGame
   ) where
 
 import Html exposing (Html)
@@ -18,32 +18,96 @@ import Model.Round exposing (..)
 
 import View.Round exposing (roundView)
 
-render : Game -> Html
-render game =
-  let renderPoints config = List.map (renderPoint game.time config) (game.cloud.points config)
+renderGame : Game -> Html
+renderGame game =
+  let renderPoints config = List.map (renderPoint game.boardSize game.time config) (game.cloud.points config)
   in  svg
-        [ width (toString game.boardSize.x)
-        , height (toString game.boardSize.y)
+        [ width "100%"
+        , height "100%"
+        , Svg.Attributes.style ("background-color: " ++ backgroundColor ++ ";")
+        , viewBox ("0 0 " ++ (toString game.boardSize.x) ++ " " ++ (toString (game.boardSize.y + headerHeight)))
         ]
         [ renderBoard
-        , renderPlayer game.player
+        , renderPlayer game.boardSize game.player
         , g [] (renderPoints White)
         , g [] (renderPoints Black)
         , renderScore game.boardSize game.time game.rounds game.currentScore
+        , hideNewPoints game.boardSize
+        , renderHeader game
         ]
 
+headerHeight : Float
+headerHeight = 115
+
+renderHeader : Game -> Svg
+renderHeader game =
+  g
+    []
+    [ rect
+        [ width "100%"
+        , height (toString headerHeight)
+        , fill "#1B203F"
+        ]
+        []
+    , text'
+        [ x "10"
+        , y "45"
+        , fontSize "36"
+        , fill "white"
+        , fontWeight "bold"
+        ]
+        [ text "cAtchVoid" ]
+    , text'
+        [ fill "white"
+        , fontSize "12"
+        , fontStyle "italic"
+        ]
+        [ tspan
+            [ x (toString (game.boardSize.x / 2))
+            , y "75"
+            , textAnchor "middle"
+            ]
+            [ text "Catch the points of your color, avoid the other points." ]
+        , tspan
+            [ x (toString (game.boardSize.x / 2))
+            , y "92"
+            , textAnchor "middle"
+            ]
+            [ text "Use the arrow keys to move and 'e' to change your color." ]
+        ]
+    , ( case maybeBestRound game.rounds of
+          Nothing ->
+            text ""
+          Just bestRound ->
+            text'
+              [ fill "yellow"
+              , x "355"
+              , y "38"
+              , fontSize "13"
+              ]
+              [ tspan
+                  [ textAnchor "middle" ]
+                  [ text ("Top: " ++ roundView bestRound) ]
+              ]
+      )
+    ]
+
+backgroundColor : String
+backgroundColor = "#1B203F"
+
 renderBoard : Svg
 renderBoard =
   rect
-    [ width "100%"
+    [ y (toString headerHeight)
+    , width "100%"
     , height "100%"
     , fill "#677BF4"
     ]
     []
 
-renderPlayer : Player -> Svg
-renderPlayer player =
-  renderCircle player.pos playerSize (playerColor player.config)
+renderPlayer : Vec2 -> Player -> Svg
+renderPlayer boardSize player =
+  renderCircle boardSize player.pos playerSize (playerColor player.config)
 
 playerColor : Config -> String
 playerColor config =
@@ -51,10 +115,10 @@ playerColor config =
     White -> "#F0F0F0"
     Black -> "#0E1121"
 
-renderPoint : Float -> Config -> Point -> Svg
-renderPoint time config point =
+renderPoint : Vec2 -> Float -> Config -> Point -> Svg
+renderPoint boardSize time config point =
   let pos = pointMove point time
-  in  renderCircle pos pointSize (playerColor config)
+  in  renderCircle boardSize pos pointSize (playerColor config)
 
 pointColor : Config -> String
 pointColor config =
@@ -62,15 +126,13 @@ pointColor config =
     White -> "white"
     Black -> "black"
 
-renderCircle : Vec2 -> Float -> String -> Svg
-renderCircle pos size color =
+renderCircle : Vec2 -> Vec2 -> Float -> String -> Svg
+renderCircle boardSize pos size color =
   circle
-    [ cx (toString (pos.x + 250))
-    , cy (toString (-1 * pos.y + 250))
+    [ cx (toString (pos.x + boardSize.x / 2))
+    , cy (toString (-1 * pos.y + boardSize.y / 2 + headerHeight))
     , r (toString size)
     , fill color
-    , stroke "#222222"
-    , strokeWidth "1"
     ]
     []
 
@@ -84,17 +146,17 @@ renderScore boardSize currentRoundTime rounds score =
         then
           case List.head rounds of
             Just round ->
-              renderText scorePos (roundView round)
+              renderText boardSize scorePos (roundView round)
             Nothing ->
-              renderText scorePos (toString score)
+              renderText boardSize scorePos (toString score)
         else
-          renderText scorePos (toString score)
+          renderText boardSize scorePos (toString score)
 
-renderText : Vec2 -> String -> Svg
-renderText pos content =
+renderText : Vec2 -> Vec2 -> String -> Svg
+renderText boardSize pos content =
   text'
-    [ x (toString (250 + pos.x))
-    , y (toString (-1 * pos.y + 250))
+    [ x (toString (pos.x + boardSize.x / 2))
+    , y (toString (-1 * pos.y + boardSize.y / 2 + headerHeight))
     , fontFamily "calibri"
     , fontSize "24"
     , color "#0E1121"
@@ -104,3 +166,40 @@ renderText pos content =
         [ textAnchor "middle" ]
         [ text content ]
     ]
+
+hideNewPoints : Vec2 -> Svg
+hideNewPoints boardSize =
+  let size =
+        (pointSpawnDist boardSize) + pointSize - (Basics.max boardSize.x boardSize.y) / 2
+          |> toString
+  in  g
+        []
+        [ rect
+            [ x ("-" ++ size)
+            , width size
+            , height "100%"
+            , fill backgroundColor
+            ]
+            []
+        , rect
+            [ x (toString boardSize.x)
+            , width size
+            , height "100%"
+            , fill backgroundColor
+            ]
+            []
+        , rect
+            [ y ("-" ++ size)
+            , width "100%"
+            , height size
+            , fill backgroundColor
+            ]
+            []
+        , rect
+            [ y (toString (boardSize.y + headerHeight))
+            , width "100%"
+            , height size
+            , fill backgroundColor
+            ]
+            []
+        ]
-- 
cgit v1.2.3