xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Gesture functions...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-07 19:01:25 -04:00
parent 1e094a665c
commit b9c1b2c8c2
1 changed files with 64 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

119
raylib.ads
View File

@ -544,6 +544,7 @@ package Raylib is
for Index_Range'Size use 16; for Index_Range'Size use 16;
type Pointer is access all System.Address; type Pointer is access all System.Address;
type Strings is access all Character;
type Vector_2D is record type Vector_2D is record
X : Float := 0.0; X : Float := 0.0;
@ -1197,7 +1198,7 @@ package Raylib is
function Get_Monitor_Name ( function Get_Monitor_Name (
Monitor : Integer := 0 Monitor : Integer := 0
) return Pointer with ) return Strings with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "GetMonitorName"; External_Name => "GetMonitorName";
@ -1209,7 +1210,7 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "SetClipboardText"; External_Name => "SetClipboardText";
function Get_Clipboard_Text return Pointer with function Get_Clipboard_Text return Strings with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "GetClipboardText"; External_Name => "GetClipboardText";
@ -1907,7 +1908,7 @@ package Raylib is
function Get_Gamepad_Name ( function Get_Gamepad_Name (
Gamepad : Integer := 0 Gamepad : Integer := 0
) return access Character with ) return Strings with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "GetGamepadName"; External_Name => "GetGamepadName";
@ -2060,70 +2061,78 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "SetMouseCursor"; External_Name => "SetMouseCursor";
--~function int GetTouchX (void) with function Get_Touch_X return Integer with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetTouchX";
--~function int GetTouchY (void) with function Get_Touch_Y return Integer with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetTouchY";
--~function Vector2 GetTouchPosition (int index) with function Get_Touch_Position (
--~Import => True, Index : Integer := 0
--~Convention => C, ) return Vector_2D with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "GetTouchPosition";
--~function int GetTouchPointId (int index) with function Get_Touch_Point_Id (
--~Import => True, Index : Integer := 0
--~Convention => C, ) return Integer with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "GetTouchPointId";
--~function int GetTouchPointCount (void) with function Get_Touch_Point_Count return Integer with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetTouchPointCount";
--~procedure SetGesturesEnabled (unsigned int flags) with procedure Set_Gestures_Enabled (
--~Import => True, Data : Gesture := Gesture_None
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "SetGesturesEnabled";
--~function bool IsGestureDetected (unsigned int gesture) with function Is_Gesture_Detected (
--~Import => True, Data : Gesture := Gesture_None
--~Convention => C, ) return Logical with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "IsGestureDetected";
--~function int GetGestureDetected (void) with function Get_Gesture_Detected return Integer with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGestureDetected";
--~function float GetGestureHoldDuration (void) with function Get_Gesture_Hold_Duration return Float with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGestureHoldDuration";
--~function Vector2 GetGestureDragVector (void) with function Get_Gesture_Drag_Vector return Vector_2D with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGestureDragVector";
--~function float GetGestureDragAngle (void) with function Get_Gesture_Drag_Angle return Float with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGestureDragAngle";
--~function Vector2 GetGesturePinchVector (void) with function Get_Gesture_Pinch_Vector return Vector_2D with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGesturePinchVector";
--~function float GetGesturePinchAngle (void) with function Get_Gesture_Pinch_Angle return Float with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "GetGesturePinchAngle";
procedure Update_Camera ( procedure Update_Camera (
Data : access Camera_3D := null; Data : access Camera_3D := null;