gel.world: Fix sprite naming.

This commit is contained in:
Rod Kay
2024-01-03 12:17:59 +11:00
parent ae520b226b
commit a3cf450826
8 changed files with 92 additions and 11 deletions

View File

@@ -123,6 +123,7 @@ is
--
function new_circle_Sprite (in_World : in gel.World.view;
Name : in String;
Site : in math.Vector_3 := math.Origin_3D;
Mass : in math.Real := 1.0;
Friction : in math.Real := 0.5;
@@ -158,7 +159,7 @@ is
texture_Count => 1)).all'Access;
end if;
return gel.Sprite.Forge.new_Sprite ("circle_Sprite",
return gel.Sprite.Forge.new_Sprite (Name,
sprite.World_view (in_World),
Site,
the_graphics_Model,

View File

@@ -54,6 +54,7 @@ is
--
function new_circle_Sprite (in_World : in gel.World.view;
Name : in String;
Site : in math.Vector_3 := math.Origin_3D;
Mass : in math.Real := 1.0;
Friction : in math.Real := 0.5;