From 8714c3befcf3f9923cf72e8d992ba6d963c0e6e7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Sep 2016 15:52:17 +0200
Subject: Upgrade to elm 0.17.1

---
 src/Model.elm | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 src/Model.elm

(limited to 'src/Model.elm')

diff --git a/src/Model.elm b/src/Model.elm
new file mode 100644
index 0000000..7e91e87
--- /dev/null
+++ b/src/Model.elm
@@ -0,0 +1,50 @@
+module Model exposing
+  ( Model
+  , init
+  )
+
+import Random.Pcg as Random exposing (Seed)
+import Char exposing (KeyCode)
+import Time exposing (Time)
+import Set
+import Set exposing (Set)
+import Platform.Cmd
+import Keyboard.Extra as Keyboard
+
+import Msg exposing (Msg)
+import Model.Player exposing (..)
+import Model.Cloud exposing (..)
+import Model.Vec2 exposing (Vec2)
+import Model.Config exposing (..)
+import Model.Round exposing (Round)
+import Model.Board exposing (initBoardSize)
+
+type alias Model =
+  { time : Time
+  , elapsedTime : Float
+  , boardSize : Vec2
+  , currentScore : Int
+  , player : Player
+  , cloud : Cloud
+  , rounds : List Round
+  , seed : Seed
+  , keyboard : Keyboard.Model
+  , transform : Bool
+  }
+
+init : Time -> (Model, Cmd Msg)
+init time =
+  let (keyboard, keyboardCmd) = Keyboard.init
+  in  ( { time = time
+        , elapsedTime = 0
+        , boardSize = initBoardSize
+        , currentScore = 0
+        , player = initPlayer
+        , cloud = initCloud
+        , rounds = []
+        , seed = Random.initialSeed (round time)
+        , keyboard = keyboard
+        , transform = False
+        }
+      , Cmd.map Msg.Keyboard keyboardCmd
+      )
-- 
cgit v1.2.3