From 7ef12b7e79043b48bc20ca62697d93045263a016 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sat, 21 Oct 2023 14:28:03 +1100 Subject: [PATCH] gel.demo.pomg: Add color for ball. --- 4-high/gel/applet/demo/game/pong/launch_pong.adb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/4-high/gel/applet/demo/game/pong/launch_pong.adb b/4-high/gel/applet/demo/game/pong/launch_pong.adb index c4d7c4a..9e6b7bb 100644 --- a/4-high/gel/applet/demo/game/pong/launch_pong.adb +++ b/4-high/gel/applet/demo/game/pong/launch_pong.adb @@ -55,8 +55,8 @@ is Bounce => 1.0, Friction => 0.0, Radius => 0.5, - Color => White); - -- Texture => openGL.to_Asset ("assets/opengl/texture/Face1.bmp")); + Color => Grey, + Texture => openGL.to_Asset ("assets/opengl/texture/Face1.bmp")); --- Players -- type Player is @@ -187,12 +187,14 @@ begin the_Applet.World.add (the_Ball); + put_Line (the_Ball.graphics_Model.texture_Count'Image); + -- Set the lights position. -- declare Light : openGL.Light.item := the_Applet.Renderer.new_Light; begin - Light.Site_is ([0.0, 1000.0, 0.0]); + Light.Site_is ([0.0, -1000.0, 0.0]); the_Applet.Renderer.set (Light); end; @@ -287,7 +289,7 @@ begin end if; the_Ball.apply_Force (the_Force); - end; + end; relaunch_Ball := False; end if;