nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel: Add tiling for multi-textures in forge.

Browse Source
This commit is contained in:
Rod Kay
2025-09-24 13:42:57 +10:00
parent 4dc7e235f0
commit 9ccf2d3cb5
2 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
4-high/gel/source/forge/gel-forge.ads
View File

@@ -69,19 +69,19 @@ is
Texture : in openGL.asset_Name := openGL.null_Asset;
user_Data : in any_user_Data_view := null) return gel.Sprite.view;
function new_polygon_Sprite (in_World : in gel.World.view;
Name : in String;
Site : in math.Vector_3 := math.Origin_3D;
Spin : in math.Matrix_3x3 := math.Identity_3x3;
Mass : in math.Real := 1.0;
Friction : in math.Real := 0.5;
Bounce : in math.Real := 0.5;
is_Tangible : in Boolean := True;
Vertices : in Geometry_2d.Sites;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
texture_Tiling : in openGL.texture_Set.Tiling := (S => 1.0, T => 1.0);
user_Data : in any_user_Data_view := null) return gel.Sprite.view;
function new_polygon_Sprite (in_World : in gel.World.view;
Name : in String;
Site : in math.Vector_3 := math.Origin_3D;
Spin : in math.Matrix_3x3 := math.Identity_3x3;
Mass : in math.Real := 1.0;
Friction : in math.Real := 0.5;
Bounce : in math.Real := 0.5;
is_Tangible : in Boolean := True;
Vertices : in Geometry_2d.Sites;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
texture_Tiling : in openGL.texture_Set.Tilings := [others => (S => 1.0, T => 1.0)];
user_Data : in any_user_Data_view := null) return gel.Sprite.view;
function new_rectangle_Sprite (in_World : in gel.World.view;
Name : in String;
@@ -95,7 +95,7 @@ is
Height : in math.Real;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
texture_Tiling : in openGL.texture_Set.Tiling := (S => 1.0, T => 1.0);
texture_Tiling : in openGL.texture_Set.Tilings := [others => (S => 1.0, T => 1.0)];
user_Data : in any_user_Data_view := null) return gel.Sprite.view;