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