FallingbrookGameDev2017/Examples/RedBlue.elm at master · MacCASOutreach/FallingbrookGameDev2017 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
myShapes model = [ circle 20
                    |> filled (if model.button == Blue
                                 then blue
                                 else red
                              )
                    |> notifyTap ButtonTapped
                 ]

type States = Blue | Red

type Msg = Tick Float GetKeyState
         | ButtonTapped

update msg model = case msg of
                     Tick t _ -> { model
                                 | time = t }
                     ButtonTapped
                       -> { model
                          | button =
                              case model.button of
                                Red -> Blue
                                Blue -> Red
                          }

init = { time = 0, button = Red }

myShapes model = [ circle 20
                    |> filled (if model.button == Blue
                                 then blue
                                 else red
                              )
                    |> notifyTap ButtonTapped
                 ]

type States = Blue | Red

type Msg = Tick Float GetKeyState
         | ButtonTapped

update msg model = case msg of
                     Tick t _ -> { model
                                 | time = t }
                     ButtonTapped
                       -> { model
                          | button =
                              case model.button of
                                Red -> Blue
                                Blue -> Red
                          }

init = { time = 0, button = Red }