diff options
Diffstat (limited to 'src/Input.elm')
-rw-r--r-- | src/Input.elm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/src/Input.elm b/src/Input.elm deleted file mode 100644 index e18d8be..0000000 --- a/src/Input.elm +++ /dev/null @@ -1,28 +0,0 @@ -module Input where - -import Char exposing (toCode, KeyCode) -import Keyboard exposing (keysDown, arrows, isDown) -import Random -import Time exposing (Time, fps) -import Signal exposing (..) -import Set exposing (Set) - -import Model.Vec2 exposing (Vec2) - -type alias Input = - { dir : Vec2 - , inputKeysDown : Set KeyCode - , delta : Time - } - -getInput : Signal Input -getInput = - let delta = fps 24 - input = map3 Input (map recordIntToVec2 arrows) keysDown delta - in sampleOn delta input - -recordIntToVec2 : {x : Int, y : Int} -> Vec2 -recordIntToVec2 {x, y} = - { x = toFloat x - , y = toFloat y - } |