Even more functions, including it in Xhads soon...
This commit is contained in:
parent
ed338d84f1
commit
ddfe437967
241
raylib.ads
241
raylib.ads
@ -858,6 +858,8 @@ package Raylib is
|
||||
Frame_Count : Natural := 0;
|
||||
end record with Convention => C_Pass_By_Copy;
|
||||
|
||||
No_Sound : Sound;
|
||||
|
||||
type Music is record
|
||||
Stream : Audio_Stream := No_Audio_Stream;
|
||||
Frame_Count : Natural := 0;
|
||||
@ -1891,9 +1893,7 @@ package Raylib is
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "PlayAutomationEvent";
|
||||
--~################################################################
|
||||
--~################################################################
|
||||
--~################################################################
|
||||
|
||||
function Is_Key_Pressed (
|
||||
Key : Keyboard_Key := Key_Null
|
||||
) return Logical with
|
||||
@ -1996,75 +1996,94 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~function bool IsMouseButtonPressed (int button) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Is_Mouse_Button_Pressed (
|
||||
Button : Mouse_Button := Mouse_Button_Left
|
||||
) return Logical with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "IsMouseButtonPressed";
|
||||
|
||||
--~function bool IsMouseButtonDown (int button) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Is_Mouse_Button_Down (
|
||||
Button : Mouse_Button := Mouse_Button_Left
|
||||
) return Logical with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "IsMouseButtonDown";
|
||||
|
||||
--~function bool IsMouseButtonReleased (int button) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Is_Mouse_Button_Released (
|
||||
Button : Mouse_Button := Mouse_Button_Left
|
||||
) return Logical with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "IsMouseButtonReleased";
|
||||
|
||||
--~function bool IsMouseButtonUp (int button) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Is_Mouse_Button_Up (
|
||||
Button : Mouse_Button := Mouse_Button_Left
|
||||
) return Logical with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "IsMouseButtonUp";
|
||||
|
||||
--~function int GetMouseX (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_X return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMouseX";
|
||||
|
||||
--~function int GetMouseY (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_Y return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMouseY";
|
||||
|
||||
--~function Vector2 GetMousePosition (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_Position return Vector_2D with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMousePosition";
|
||||
|
||||
--~function Vector2 GetMouseDelta (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_Delta return Vector_2D with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMouseDelta";
|
||||
|
||||
--~procedure SetMousePosition (int x, int y) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Set_Mouse_Position (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "SetMousePosition";
|
||||
|
||||
--~procedure SetMouseOffset (int offsetX, int offsetY) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Set_Mouse_Offset (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "SetMouseOffset";
|
||||
|
||||
--~procedure SetMouseScale (float scaleX, float scaleY) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Set_Mouse_Scale (
|
||||
X : Float := 0.0;
|
||||
Y : Float := 0.0
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "SetMouseScale";
|
||||
|
||||
--~function float GetMouseWheelMove (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_Wheel_Move return Float with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMouseWheelMove";
|
||||
|
||||
--~function Vector2 GetMouseWheelMoveV (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Mouse_Wheel_Move_V return Vector_2D with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetMouseWheelMoveV";
|
||||
|
||||
--~procedure SetMouseCursor (int cursor) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Set_Mouse_Cursor (
|
||||
Cursor : Mouse_Cursor := Mouse_Cursor_Default
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "SetMouseCursor";
|
||||
|
||||
--~function int GetTouchX (void) with
|
||||
--~Import => True,
|
||||
@ -2929,8 +2948,6 @@ package Raylib is
|
||||
Convention => C,
|
||||
External_Name => "DrawTexturePro";
|
||||
|
||||
--~RLAPI void DrawTexturePro(Texture2D texture, Rectangle source, Rectangle dest, Vector2 origin, float rotation, Color tint);
|
||||
|
||||
--~procedure DrawTextureNPatch (Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
@ -3016,10 +3033,12 @@ package Raylib is
|
||||
Convention => C,
|
||||
External_Name => "GetFontDefault";
|
||||
|
||||
--~function Font LoadFont (const char *fileName) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Load_Font (
|
||||
File_Name : String := ""
|
||||
) return Font with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "LoadFont";
|
||||
|
||||
--~function Font LoadFontEx (const char *fileName, int fontSize, int *codepoints, int codepointCount) with
|
||||
--~Import => True,
|
||||
@ -3056,10 +3075,12 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~procedure UnloadFont (Font font) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Unload_Font (
|
||||
Data : Font := No_Font
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "UnloadFont";
|
||||
|
||||
--~function bool ExportFontAsCode (Font font, const char *fileName) with
|
||||
--~Import => True,
|
||||
@ -3073,9 +3094,7 @@ package Raylib is
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawFPS";
|
||||
--~################################################################
|
||||
--~################################################################
|
||||
--~################################################################
|
||||
|
||||
procedure Draw_Text (
|
||||
Text : String := "";
|
||||
--~Text : access String := null;
|
||||
@ -3096,7 +3115,7 @@ package Raylib is
|
||||
|
||||
procedure Draw_Text_Pro (
|
||||
Data : Font := Get_Font_Default;
|
||||
Text : String := "NOOO";
|
||||
Text : String := "";
|
||||
Position : Vector_2D := (0.0, 0.0);
|
||||
Origin : Vector_2D := (0.0, 0.0);
|
||||
Rotation : Float := 0.0;
|
||||
@ -3638,15 +3657,15 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~procedure InitAudioDevice (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Open_Audio_Device with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "InitAudioDevice";
|
||||
|
||||
--~procedure CloseAudioDevice (void) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Close_Audio_Device with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "CloseAudioDevice";
|
||||
|
||||
--~function bool IsAudioDeviceReady (void) with
|
||||
--~Import => True,
|
||||
@ -3678,10 +3697,12 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~function Sound LoadSound (const char *fileName) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Load_Sound (
|
||||
File_Name : String := ""
|
||||
) return Sound with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "LoadSound";
|
||||
|
||||
--~function Sound LoadSoundFromWave (Wave wave) with
|
||||
--~Import => True,
|
||||
@ -3708,10 +3729,12 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~procedure UnloadSound (Sound sound) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Unload_Sound (
|
||||
Data : Sound := No_Sound
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "UnloadSound";
|
||||
|
||||
--~procedure UnloadSoundAlias (Sound alias) with
|
||||
--~Import => True,
|
||||
@ -3728,25 +3751,33 @@ package Raylib is
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
|
||||
--~procedure PlaySound (Sound sound) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Play_Sound (
|
||||
Data : Sound := No_Sound
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "PlaySound";
|
||||
|
||||
--~procedure StopSound (Sound sound) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Stop_Sound (
|
||||
Data : Sound := No_Sound
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "StopSound";
|
||||
|
||||
--~procedure PauseSound (Sound sound) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Pause_Sound (
|
||||
Data : Sound := No_Sound
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "PauseSound";
|
||||
|
||||
--~procedure ResumeSound (Sound sound) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Resume_Sound (
|
||||
Data : Sound := No_Sound
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "ResumeSound";
|
||||
|
||||
--~function bool IsSoundPlaying (Sound sound) with
|
||||
--~Import => True,
|
||||
|
||||
Loading…
Reference in New Issue
Block a user