type A_Allegro_Joystick is access all Allegro_Joystick;
type Joystick_Stick is record axis : Axis_Array; -- -1.0 to 1.0 end record;
type Stick_Array is array(0..7) of Joystick_Stick;
type Joystick_State is record stick : Stick_Array; button : Button_Array; -- 0 to 32767 end record;
type A_Joystick_State is access all Joystick_State;
JOYFLAG_DIGITAL : constant Joystick_Flags := 16#01#;
JOYFLAG_ANALOGUE : constant Joystick_Flags := 16#02#;
function Al_Get_Joystick
( | num | : Integer ) return A_Allegro_Joystick; |
procedure Al_Release_Joystick
( | joy | : A_Allegro_Joystick ); |
function Al_Get_Joystick_Active
( | joy | : A_Allegro_Joystick ) return Boolean; |
function Al_Get_Joystick_Name
( | joy | : A_Allegro_Joystick ) return String; |
function Al_Get_Joystick_Num_Sticks
( | joy | : A_Allegro_Joystick ) return Integer; |
function Al_Get_Joystick_Stick_Flags
( | joy | : A_Allegro_Joystick; |
stick | : Integer ) return Joystick_Flags; |
function Al_Get_Joystick_Stick_Name
( | joy | : A_Allegro_Joystick; |
stick | : Integer ) return String; |
function Al_Get_Joystick_Num_Axes
( | joy | : A_Allegro_Joystick; |
stick | : Integer ) return Integer; |
function Al_Get_Joystick_Axis_Name
( | joy | : A_Allegro_Joystick; |
stick | : Integer; | |
axis | : Integer ) return String; |
function Al_Get_Joystick_Num_Buttons
( | joy | : A_Allegro_Joystick ) return Integer; |
function Al_Get_Joystick_Button_Name
( | joy | : A_Allegro_Joystick; |
button | : Integer ) return String; |
procedure Al_Get_Joystick_State
( | joy | : A_Allegro_Joystick; |
ret_state | : A_Joystick_State ); |
function Al_Get_Joystick_Event_Source return A_Allegro_Event_Source;