Added texture wrap and target functions...

This commit is contained in:
Ognjen Milan Robovic 2024-03-24 07:22:01 -04:00
parent 32f44113f8
commit 49ccc8d2ee

View File

@ -2847,40 +2847,59 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "UnloadTexture"; External_Name => "UnloadTexture";
--~function bool IsRenderTextureReady (RenderTexture2D target) with function Is_Render_Texture_Ready (
--~Import => True, Target : Render_Texture := No_Render_Texture
--~Convention => C, ) return Logical with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "IsRenderTextureReady";
--~procedure UnloadRenderTexture (RenderTexture2D target) with procedure Unload_Render_Texture (
--~Import => True, Target : Render_Texture := No_Render_Texture
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "UnloadRenderTexture";
--~procedure UpdateTexture (Texture2D texture, const void *pixels) with procedure Update_Texture (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Pixels : Pointer := null
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "UpdateTexture";
--~procedure UpdateTextureRec (Texture2D texture, Rectangle rec, const void *pixels) with procedure Update_Texture_Rec (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Source : Rectangle := No_Rectangle;
--~External_Name => ""; Pixels : Pointer := null
) with
Import => True,
Convention => C,
External_Name => "UpdateTextureRec";
--~procedure GenTextureMipmaps (Texture2D *texture) with procedure Gen_Texture_Mipmaps (
--~Import => True, Data : Texture := No_Texture
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "GenTextureMipmaps";
--~procedure SetTextureFilter (Texture2D texture, int filter) with procedure Set_Texture_Filter (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Filter : Texture_Filter := Texture_Filter_Point
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "SetTextureFilter";
--~procedure SetTextureWrap (Texture2D texture, int wrap) with procedure Set_Texture_Wrap (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Wrap : Texture_Wrap := Texture_Wrap_Repeat
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "SetTextureWrap";
procedure Draw_Texture ( procedure Draw_Texture (
Data : Texture := No_Texture; Data : Texture := No_Texture;
@ -2892,20 +2911,35 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "DrawTexture"; External_Name => "DrawTexture";
--~procedure DrawTextureV (Texture2D texture, Vector2 position, Color tint) with procedure Draw_Texture_V (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Position : Vector_2D := (0.0, 0.0);
--~External_Name => ""; Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawTextureV";
--~procedure DrawTextureEx (Texture2D texture, Vector2 position, float rotation, float scale, Color tint) with procedure Draw_Texture_Ex (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Position : Vector_2D := (0.0, 0.0);
--~External_Name => ""; Rotation : Float := 0.0;
Scale : Float := 0.0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawTextureEx";
--~procedure DrawTextureRec (Texture2D texture, Rectangle source, Vector2 position, Color tint) with procedure Draw_Texture_Rec (
--~Import => True, Data : Texture := No_Texture;
--~Convention => C, Source : Rectangle := No_Rectangle;
--~External_Name => ""; Position : Vector_2D := (0.0, 0.0);
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawTextureRec";
procedure Draw_Texture_Pro ( procedure Draw_Texture_Pro (
Data : Texture := No_Texture; Data : Texture := No_Texture;