2017-06-28 22:02:51 +00:00
|
|
|
module Views.Map exposing (..)
|
|
|
|
|
2017-06-29 17:50:54 +00:00
|
|
|
import GLOBALS exposing (background_color, play_area_size)
|
2017-06-28 22:58:49 +00:00
|
|
|
import Svg exposing (Svg, g, path, rect)
|
|
|
|
import Svg.Attributes exposing (d, fill, x, y, width, height)
|
2017-06-28 22:02:51 +00:00
|
|
|
import Svg.Path exposing (pathToString, lineTo, subpath, startAt, closed)
|
|
|
|
|
|
|
|
|
|
|
|
render : Svg msg
|
|
|
|
render =
|
|
|
|
let
|
2017-06-28 22:58:49 +00:00
|
|
|
( areaWidth, areaHeight ) =
|
2017-06-29 17:50:54 +00:00
|
|
|
play_area_size
|
2017-06-28 22:02:51 +00:00
|
|
|
in
|
|
|
|
g []
|
2017-06-28 22:58:49 +00:00
|
|
|
[ rect
|
2017-06-29 17:50:54 +00:00
|
|
|
[ fill background_color
|
2017-06-28 22:58:49 +00:00
|
|
|
, width (toString areaWidth)
|
|
|
|
, height (toString areaHeight)
|
|
|
|
, x (toString 0)
|
|
|
|
, y (toString 0)
|
2017-06-28 22:02:51 +00:00
|
|
|
]
|
|
|
|
[]
|
|
|
|
]
|