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

10
4-high/gel/source/forge/gel-forge.adb
View File

@@ -168,7 +168,7 @@ is
texture_Applies => [1 => True, others => <>], texture_Applies => [1 => True, others => <>],
Textures => [1 => Texture, others => <>], Textures => [1 => Texture, others => <>],
texture_Count => 1, texture_Count => 1,
texture_Tiling => (S => 1.0, T => 1.0), texture_Tilings => [others => (S => 1.0, T => 1.0)],
Animation => null)).all'Access; Animation => null)).all'Access;
end if; end if;
@@ -189,7 +189,7 @@ is
function new_polygon_Sprite (in_World : in gel.World.view; function new_polygon_Sprite (in_World : in gel.World.view;
Name : in String; Name : in String;
Site : in math.Vector_3 := math.Origin_3D; Site : in math.Vector_3 := math.Origin_3D;
Spin : in math.Matrix_3x3 := math.Identity_3x3; Spin : in math.Matrix_3x3 := math.Identity_3x3;
Mass : in math.Real := 1.0; Mass : in math.Real := 1.0;
Friction : in math.Real := 0.5; Friction : in math.Real := 0.5;
Bounce : in math.Real := 0.5; Bounce : in math.Real := 0.5;
@@ -197,7 +197,7 @@ is
Vertices : in Geometry_2d.Sites; Vertices : in Geometry_2d.Sites;
Color : in openGL.Color := opengl.Palette.White; Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset; 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 user_Data : in any_user_Data_view := null) return gel.Sprite.view
is is
use type Geometry_2d.Sites, use type Geometry_2d.Sites,
@@ -223,7 +223,7 @@ is
texture_Details => (Fades => [1 => 0.0, others => <>], texture_Details => (Fades => [1 => 0.0, others => <>],
Textures => [1 => Texture, others => <>], Textures => [1 => Texture, others => <>],
texture_Count => 1, texture_Count => 1,
texture_Tiling => texture_Tiling, texture_Tilings => texture_Tiling,
texture_Applies => [others => True], texture_Applies => [others => True],
Animation => null)).all'Access; Animation => null)).all'Access;
end if; end if;
@@ -254,7 +254,7 @@ is
Height : in math.Real; Height : in math.Real;
Color : in openGL.Color := opengl.Palette.White; Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset; 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 user_Data : in any_user_Data_view := null) return gel.Sprite.view
is is
use Math; use Math;

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

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