Module SFInput

module SFInput: sig .. end

type t 

val isKeyDown : input:t -> key:SFKey.t -> bool

val isMouseButtonDown : input:t -> button:SFEvent.mouse_button -> bool

val getMousePos : input:t -> int * int

val isJoystickButtonDown : input:t -> joyId:int -> button:int -> bool

val getJoystickAxis : input:t -> joyId:int -> axis:SFEvent.joy_axis -> float