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

gel.forge: Use 'Vector_3' for site parameter when creating 2D sprites.

Browse Source
This commit is contained in:
Rod Kay
2023-12-09 15:27:24 +11:00
parent dff24fcb37
commit b812a8020f
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -123,7 +123,7 @@ is
-- --
function new_circle_Sprite (in_World : in gel.World.view; function new_circle_Sprite (in_World : in gel.World.view;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;
@@ -160,7 +160,7 @@ is
return gel.Sprite.Forge.new_Sprite ("circle_Sprite", return gel.Sprite.Forge.new_Sprite ("circle_Sprite",
sprite.World_view (in_World), sprite.World_view (in_World),
Vector_3 (Site & float_Math.Random.random_Real (Lower => 0.0, Upper => 1.1)), Site,
the_graphics_Model, the_graphics_Model,
the_physics_Model, the_physics_Model,
owns_graphics => True, owns_graphics => True,
@@ -172,7 +172,7 @@ is
function new_polygon_Sprite (in_World : in gel.World.view; function new_polygon_Sprite (in_World : in gel.World.view;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;
@@ -215,7 +215,7 @@ is
return gel.Sprite.Forge.new_Sprite ("polygon_Sprite", return gel.Sprite.Forge.new_Sprite ("polygon_Sprite",
sprite.World_view (in_World), sprite.World_view (in_World),
Vector_3 (Site & 0.0), Site,
the_graphics_Model, the_graphics_Model,
the_physics_Model, the_physics_Model,
owns_graphics => True, owns_graphics => True,
@@ -227,7 +227,7 @@ is
function new_rectangle_Sprite (in_World : in gel.World.view; function new_rectangle_Sprite (in_World : in gel.World.view;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;

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

@@ -54,7 +54,7 @@ is
-- --
function new_circle_Sprite (in_World : in gel.World.view; function new_circle_Sprite (in_World : in gel.World.view;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;
@@ -64,7 +64,7 @@ is
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;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;
@@ -74,7 +74,7 @@ is
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;
Site : in math.Vector_2 := math.Origin_2D; Site : in math.Vector_3 := math.Origin_3D;
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;