Even more functions...
This commit is contained in:
parent
5c3f17af05
commit
16ebe6a915
226
raylib.ads
226
raylib.ads
@ -3404,15 +3404,29 @@ package Raylib is
|
|||||||
Convention => C,
|
Convention => C,
|
||||||
External_Name => "DrawTextPro";
|
External_Name => "DrawTextPro";
|
||||||
|
|
||||||
--~procedure DrawTextCodepoint (Font font, int codepoint, Vector2 position, float fontSize, Color tint) with
|
procedure Draw_Text_Codepoint (
|
||||||
--~Import => True,
|
Data : Font := Get_Font_Default;
|
||||||
--~Convention => C,
|
Code_Point : Integer := 0;
|
||||||
--~External_Name => "";
|
Position : Vector_2D := (others => 0.0);
|
||||||
|
Font_Size : Float := 0.0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawTextCodepoint";
|
||||||
|
|
||||||
--~procedure DrawTextCodepoints (Font font, const int *codepoints, int codepointCount, Vector2 position, float fontSize, float spacing, Color tint) with
|
procedure Draw_Text_Codepoints (
|
||||||
--~Import => True,
|
Data : Font := Get_Font_Default;
|
||||||
--~Convention => C,
|
Code_Points : access Integer := null;
|
||||||
--~External_Name => "";
|
Code_Point_Count : Integer := 0;
|
||||||
|
Position : Vector_2D := (others => 0.0);
|
||||||
|
Font_Size : Float := 0.0;
|
||||||
|
Spacing : Float := 0.0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawTextCodepoints";
|
||||||
|
|
||||||
procedure Set_Text_Line_Spacing (
|
procedure Set_Text_Line_Spacing (
|
||||||
Spacing : Integer := 0
|
Spacing : Integer := 0
|
||||||
@ -3624,10 +3638,14 @@ package Raylib is
|
|||||||
Convention => C,
|
Convention => C,
|
||||||
External_Name => "DrawCube";
|
External_Name => "DrawCube";
|
||||||
|
|
||||||
--~procedure DrawCubeV (Vector3 position, Vector3 size, Color color) with
|
procedure Draw_Cube_V (
|
||||||
--~Import => True,
|
Position : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Size : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCubeV";
|
||||||
|
|
||||||
procedure Draw_Cube_Wires (
|
procedure Draw_Cube_Wires (
|
||||||
Position : Vector_3D := (others => 0.0);
|
Position : Vector_3D := (others => 0.0);
|
||||||
@ -3640,55 +3658,117 @@ package Raylib is
|
|||||||
Convention => C,
|
Convention => C,
|
||||||
External_Name => "DrawCubeWires";
|
External_Name => "DrawCubeWires";
|
||||||
|
|
||||||
--~procedure DrawCubeWiresV (Vector3 position, Vector3 size, Color color) with
|
procedure Draw_Cube_Wires_V (
|
||||||
--~Import => True,
|
Position : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Size : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCubeWiresV";
|
||||||
|
|
||||||
--~procedure DrawSphere (Vector3 centerPos, float radius, Color color) with
|
procedure Draw_Sphere (
|
||||||
--~Import => True,
|
Center : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius : Float := 0.0;
|
||||||
--~External_Name => "";
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawSphere";
|
||||||
|
|
||||||
--~procedure DrawSphereEx (Vector3 centerPos, float radius, int rings, int slices, Color color) with
|
procedure Draw_Sphere_Ex (
|
||||||
--~Import => True,
|
Center : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius : Float := 0.0;
|
||||||
--~External_Name => "";
|
Rings : Integer := 0;
|
||||||
|
Slices : Integer := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawSphereEx";
|
||||||
|
|
||||||
--~procedure DrawSphereWires (Vector3 centerPos, float radius, int rings, int slices, Color color) with
|
procedure Draw_Sphere_Wires (
|
||||||
--~Import => True,
|
Center : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius : Float := 0.0;
|
||||||
--~External_Name => "";
|
Rings : Integer := 0;
|
||||||
|
Slices : Integer := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawSphereWires";
|
||||||
|
|
||||||
--~procedure DrawCylinder (Vector3 position, float radiusTop, float radiusBottom, float height, int slices, Color color) with
|
procedure Draw_Cylinder (
|
||||||
--~Import => True,
|
Position : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius_Top : Float := 0.0;
|
||||||
--~External_Name => "";
|
Radius_Bottom : Float := 0.0;
|
||||||
|
Height : Float := 0.0;
|
||||||
|
Slices : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCylinder";
|
||||||
|
|
||||||
--~procedure DrawCylinderEx (Vector3 startPos, Vector3 endPos, float startRadius, float endRadius, int sides, Color color) with
|
procedure Draw_Cylinder_Ex (
|
||||||
--~Import => True,
|
From : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
To : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
From_Radius : Float := 0.0;
|
||||||
|
To_Radius : Float := 0.0;
|
||||||
|
Sides : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCylinderEx";
|
||||||
|
|
||||||
--~procedure DrawCylinderWires (Vector3 position, float radiusTop, float radiusBottom, float height, int slices, Color color) with
|
procedure Draw_Cylinder_Wires (
|
||||||
--~Import => True,
|
Position : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius_Top : Float := 0.0;
|
||||||
--~External_Name => "";
|
Radius_Bottom : Float := 0.0;
|
||||||
|
Height : Float := 0.0;
|
||||||
|
Slices : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCylinderWires";
|
||||||
|
|
||||||
--~procedure DrawCylinderWiresEx (Vector3 startPos, Vector3 endPos, float startRadius, float endRadius, int sides, Color color) with
|
procedure Draw_Cylinder_Wires_Ex (
|
||||||
--~Import => True,
|
From : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
To : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
From_Radius : Float := 0.0;
|
||||||
|
To_Radius : Float := 0.0;
|
||||||
|
Sides : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCylinderWiresEx";
|
||||||
|
|
||||||
--~procedure DrawCapsule (Vector3 startPos, Vector3 endPos, float radius, int slices, int rings, Color color) with
|
procedure Draw_Capsule (
|
||||||
--~Import => True,
|
From : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
To : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
Radius : Float := 0.0;
|
||||||
|
Slices : Natural := 0;
|
||||||
|
Rings : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCapsule";
|
||||||
|
|
||||||
--~procedure DrawCapsuleWires (Vector3 startPos, Vector3 endPos, float radius, int slices, int rings, Color color) with
|
procedure Draw_Capsule_Wires (
|
||||||
--~Import => True,
|
From : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
To : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
Radius : Float := 0.0;
|
||||||
|
Slices : Natural := 0;
|
||||||
|
Rings : Natural := 0;
|
||||||
|
Tint : Color := White
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawCapsuleWires";
|
||||||
|
|
||||||
procedure Draw_Plane (
|
procedure Draw_Plane (
|
||||||
Center : Vector_3D := (others => 0.0);
|
Center : Vector_3D := (others => 0.0);
|
||||||
@ -3699,15 +3779,21 @@ package Raylib is
|
|||||||
Convention => C,
|
Convention => C,
|
||||||
External_Name => "DrawPlane";
|
External_Name => "DrawPlane";
|
||||||
|
|
||||||
--~procedure DrawRay (Ray ray, Color color) with
|
procedure Draw_Ray (
|
||||||
--~Import => True,
|
Data : Ray := No_Ray;
|
||||||
--~Convention => C,
|
Tint : Color := White
|
||||||
--~External_Name => "";
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawRay";
|
||||||
|
|
||||||
--~procedure DrawGrid (int slices, float spacing) with
|
procedure Draw_Grid (
|
||||||
--~Import => True,
|
Slices : Integer := 0;
|
||||||
--~Convention => C,
|
Spacing : Float := 0.0
|
||||||
--~External_Name => "";
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawGrid";
|
||||||
|
|
||||||
function Load_Model (
|
function Load_Model (
|
||||||
File_Name : String := ""
|
File_Name : String := ""
|
||||||
@ -3716,15 +3802,19 @@ package Raylib is
|
|||||||
Convention => C,
|
Convention => C,
|
||||||
External_Name => "LoadModel";
|
External_Name => "LoadModel";
|
||||||
|
|
||||||
--~function Model LoadModelFromMesh (Mesh mesh) with
|
function Load_Model_From_Mesh (
|
||||||
--~Import => True,
|
Data : Mesh := No_Mesh
|
||||||
--~Convention => C,
|
) return Model with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "LoadModelFromMesh";
|
||||||
|
|
||||||
--~function bool IsModelReady (Model model) with
|
function Is_Model_Ready (
|
||||||
--~Import => True,
|
Data : Model := No_Model
|
||||||
--~Convention => C,
|
) return Logical with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "IsModelReady";
|
||||||
|
|
||||||
procedure Unload_Model (
|
procedure Unload_Model (
|
||||||
Data : Model := No_Model
|
Data : Model := No_Model
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user