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

Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2023-11-10 18:39:29 +11:00
parent 3bb82e5a39
commit 51c16154fd
5 changed files with 30 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
4-high/gel/applet/demo/game/pong-gtk/launch_pong.adb
View File

@@ -247,16 +247,17 @@ begin
the_key_release_Response : aliased key_release_Response;
begin
-------------------
--- Setup the game.
--
Box.pack_Start (window_gl_Area);
-- Show the window and present it.
-- Show the window.
--
top_Window.Show_All;
top_Window.Present;
top_Window.show_All;
-- top_Window.present;
the_Applet.Camera. Site_is ([0.0, 0.0, 20.0]);
the_Applet.World.Gravity_is ([0.0, 0.0, 0.0]);

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

@@ -108,10 +108,13 @@ is
end new_client_Applet;
-----------
--- Sprites
--
-----
-- 2D
--
@@ -167,6 +170,7 @@ is
Bounce : in math.Real := 0.5;
Vertices : in Geometry_2d.Sites;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
user_Data : in any_user_Data_view := null) return gel.Sprite.view
is
use Math;
@@ -208,6 +212,7 @@ is
Width,
Height : in math.Real;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
user_Data : in any_user_Data_view := null) return gel.Sprite.view
is
use Math;
@@ -220,11 +225,12 @@ is
[ half_Width, half_Height],
[-half_Width, half_Height]];
begin
return new_polygon_Sprite (in_World, Site, Mass, Friction, Bounce, the_Vertices, Color, user_Data);
return new_polygon_Sprite (in_World, Site, Mass, Friction, Bounce, the_Vertices, Color, Texture, user_Data);
end new_rectangle_Sprite;
-----
-- 3D
--

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

@@ -70,6 +70,7 @@ is
Bounce : in math.Real := 0.5;
Vertices : in Geometry_2d.Sites;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
user_Data : in any_user_Data_view := null) return gel.Sprite.view;
function new_rectangle_Sprite (in_World : in gel.World.view;
@@ -80,6 +81,7 @@ is
Width,
Height : in math.Real;
Color : in openGL.Color := opengl.Palette.White;
Texture : in openGL.asset_Name := openGL.null_Asset;
user_Data : in any_user_Data_view := null) return gel.Sprite.view;
-- 3D
--

3
4-high/gel/source/world/gel-world-client.adb
View File

@@ -365,6 +365,9 @@ is
end loop;
end;
end;
of_World.register (the_Mirror => Self,
Mirror_as_observer => Self);
end is_a_Mirror;

6
4-high/gel/source/world/gel-world-server.adb
View File

@@ -19,7 +19,7 @@ is
procedure log (Message : in String)
renames ada.text_IO.put_Line;
pragma Unreferenced (log);
-- pragma Unreferenced (log);
---------
@@ -127,6 +127,7 @@ is
return the_Sprite;
end to_Sprite;
pragma Unreferenced (to_Sprite);
@@ -186,6 +187,8 @@ is
while has_Element (Cursor)
loop
the_Sprite := Sprite.view (Element (Cursor));
-- the_Sprite.apply_Force ([0.0, 1.0, 0.0]);
-- the_Sprite.apply_Torque_impulse ([0.0, 1.0, 0.0]);
updates_Count := updates_Count + 1;
the_motion_Updates (updates_Count) := (Id => the_Sprite.Id,
@@ -194,6 +197,7 @@ is
-- Spin => the_Sprite.Spin);
-- log (Image (Quaternion' (refined (the_motion_Updates (updates_Count).Spin))));
ada.Text_IO.put (refined (the_motion_Updates (updates_Count).Site)'Image);
next (Cursor);
end loop;