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

gel.demo.pomg: Add color for ball.

Browse Source
This commit is contained in:
Rod Kay
2023-10-21 14:28:03 +11:00
parent 77512c2247
commit 7ef12b7e79
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -55,8 +55,8 @@ is
Bounce => 1.0, Bounce => 1.0,
Friction => 0.0, Friction => 0.0,
Radius => 0.5, Radius => 0.5,
Color => White); Color => Grey,
-- Texture => openGL.to_Asset ("assets/opengl/texture/Face1.bmp")); Texture => openGL.to_Asset ("assets/opengl/texture/Face1.bmp"));
--- Players --- Players
-- --
type Player is type Player is
@@ -187,12 +187,14 @@ begin
the_Applet.World.add (the_Ball); the_Applet.World.add (the_Ball);
put_Line (the_Ball.graphics_Model.texture_Count'Image);
-- Set the lights position. -- Set the lights position.
-- --
declare declare
Light : openGL.Light.item := the_Applet.Renderer.new_Light; Light : openGL.Light.item := the_Applet.Renderer.new_Light;
begin begin
Light.Site_is ([0.0, 1000.0, 0.0]); Light.Site_is ([0.0, -1000.0, 0.0]);
the_Applet.Renderer.set (Light); the_Applet.Renderer.set (Light);
end; end;
@@ -287,7 +289,7 @@ begin
end if; end if;
the_Ball.apply_Force (the_Force); the_Ball.apply_Force (the_Force);
end; end;
relaunch_Ball := False; relaunch_Ball := False;
end if; end if;