all: Fix simple warnings and cosmetics.

This commit is contained in:
Rod Kay
2025-09-21 11:39:31 +10:00
parent aa5ff988fa
commit b02c1a92f7
35 changed files with 47 additions and 165 deletions

View File

@@ -1,4 +1,3 @@
with openGL.texture_Set;
with
gel.Applet.gui_World,
gel.Window.setup,
@@ -8,8 +7,8 @@ with
physics.Model,
openGL.Model.any,
openGL.Light,
openGL.texture_Set,
openGL.Light,
ada.Calendar,
ada.Text_IO,
@@ -86,7 +85,7 @@ begin
the_Human.Site_is ([0.0, 5.0, 0.0]); --
-- the_Applet.gui_World.add (the_Cobra); -- Add cobra.
the_Cobra.Site_is ((0.0, 5.0, 0.0)); --
the_Cobra.Site_is ([0.0, 5.0, 0.0]); --
the_Applet.gui_Camera.Site_is ([0.0, 1.5, 2.6]); -- Position the camera.
-- the_Applet.gui_Camera.Site_is ((0.0, 100.0, 0.0)); -- Position the camera.

View File

@@ -17,8 +17,7 @@ procedure launch_text_sprite_Demo
-- Shows a few text sprites.
--
is
use gel.Math,
openGL.Palette;
use openGL.Palette;
the_Applet : constant gel.Applet.gui_World.view := gel.Forge.new_gui_Applet ("text sprite Demo",
space_Kind => physics.Bullet);