gel.demo.pomg: Add color for ball.

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;