From b812a8020fbb35568efc178a504765b54de7a99d Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sat, 9 Dec 2023 15:27:24 +1100 Subject: [PATCH] gel.forge: Use 'Vector_3' for site parameter when creating 2D sprites. --- 4-high/gel/source/forge/gel-forge.adb | 10 +++++----- 4-high/gel/source/forge/gel-forge.ads | 6 +++--- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/4-high/gel/source/forge/gel-forge.adb b/4-high/gel/source/forge/gel-forge.adb index bb20b34..63a54bc 100644 --- a/4-high/gel/source/forge/gel-forge.adb +++ b/4-high/gel/source/forge/gel-forge.adb @@ -123,7 +123,7 @@ is -- 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; Friction : in math.Real := 0.5; Bounce : in math.Real := 0.5; @@ -160,7 +160,7 @@ is return gel.Sprite.Forge.new_Sprite ("circle_Sprite", sprite.World_view (in_World), - Vector_3 (Site & float_Math.Random.random_Real (Lower => 0.0, Upper => 1.1)), + Site, the_graphics_Model, the_physics_Model, owns_graphics => True, @@ -172,7 +172,7 @@ is 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; Friction : in math.Real := 0.5; Bounce : in math.Real := 0.5; @@ -215,7 +215,7 @@ is return gel.Sprite.Forge.new_Sprite ("polygon_Sprite", sprite.World_view (in_World), - Vector_3 (Site & 0.0), + Site, the_graphics_Model, the_physics_Model, owns_graphics => True, @@ -227,7 +227,7 @@ is 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; Friction : in math.Real := 0.5; Bounce : in math.Real := 0.5; diff --git a/4-high/gel/source/forge/gel-forge.ads b/4-high/gel/source/forge/gel-forge.ads index 75183c4..ed78cfa 100644 --- a/4-high/gel/source/forge/gel-forge.ads +++ b/4-high/gel/source/forge/gel-forge.ads @@ -54,7 +54,7 @@ is -- 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; Friction : 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; 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; Friction : 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; 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; Friction : in math.Real := 0.5; Bounce : in math.Real := 0.5;