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

all: Fix simple warnings and cosmetics.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
3-mid/opengl/applet/demo/models/render_boxes/launch_render_boxes.adb
View File

@@ -6,7 +6,6 @@ with
openGL.Model.Box.textured,
openGL.Model.Box.lit_colored_textured,
openGL.texture_Set,
openGL.Palette,
openGL.Demo;

10
3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb
View File

@@ -3,12 +3,9 @@ with
openGL.Buffer.general,
openGL.Program,
openGL.Attribute,
openGL.Texture,
openGL.Palette,
openGL.Tasks,
openGL.Errors,
GL.Binding,
GL.lean,
GL.Pointers,
@@ -29,7 +26,6 @@ is
vertex_Shader : aliased Shader.item;
fragment_Shader : aliased Shader.item;
the_Program : openGL.Program.view;
white_Texture : openGL.Texture.Object;
Name_1 : constant String := "Site";
Name_2 : constant String := "Color";
@@ -64,8 +60,7 @@ is
if the_Program = null
then -- Define the shaders and program.
declare
use Palette,
Attribute.Forge;
use Attribute.Forge;
Sample : Vertex;
@@ -73,10 +68,7 @@ is
Attribute_2 : Attribute.view;
Attribute_3 : Attribute.view;
white_Image : constant Image := [1 .. 2 => [1 .. 2 => +White]];
begin
white_Texture := openGL.Texture.Forge.to_Texture (white_Image);
vertex_Shader .define (Shader.Vertex, "assets/opengl/shader/colored_textured.vert");
fragment_Shader.define (Shader.Fragment, (asset_Names' (1 => to_Asset ("assets/opengl/shader/version.header"),
2 => to_Asset ("assets/opengl/shader/texturing-frag.snippet"),

13
3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads
View File

@@ -1,7 +1,3 @@
with
openGL.texture_Set;
private
with
openGL.Geometry.texturing;
@@ -54,13 +50,4 @@ private
end record;
-- type Item is new Geometry.item with
-- record
-- null;
-- end record;
--
--
-- overriding
-- procedure enable_Textures (Self : in out Item);
end openGL.Geometry.colored_textured;

16
3-mid/opengl/source/lean/model/opengl-model-capsule-textured.adb
View File

@@ -81,8 +81,8 @@ is
vertex_Count : constant Index_t := Index_t (sides_Count * 2 + 2); -- 2 triangles per side plus 2 since we cannot share the first and last edge.
indices_Count : constant long_Index_t := long_Index_t (sides_Count * 2 * 3); -- 2 triangles per side with 3 vertices per triangle.
the_Vertices : aliased Geometry.textured.Vertex_array := (1 .. vertex_Count => <>);
the_Indices : aliased Indices := (1 .. indices_Count => <>);
the_Vertices : aliased Geometry.textured.Vertex_array := [1 .. vertex_Count => <>];
the_Indices : aliased Indices := [1 .. indices_Count => <>];
begin
ny := 1.0;
@@ -190,14 +190,14 @@ is
indices_Count : constant long_Index_t := long_Index_t ( (hoop_count - 1) * sides_Count * 2 * 3 -- For each hoop, 2 triangles per side with 3 vertices per triangle
+ sides_Count * 3); -- plus the extra indices for the pole triangles.
the_Vertices : aliased Geometry.textured.Vertex_array := (1 .. vertex_Count => <>);
the_Indices : aliased Indices := (1 .. indices_Count => <>);
the_Vertices : aliased Geometry.textured.Vertex_array := [1 .. vertex_Count => <>];
the_Indices : aliased Indices := [1 .. indices_Count => <>];
the_arch_Edges : arch_Edges;
i : Index_t := 1;
pole_Site : constant Site := (if is_Fore then (0.0, 0.0, L + Radius)
else (0.0, 0.0, -L - Radius));
pole_Site : constant Site := (if is_Fore then [0.0, 0.0, L + Radius]
else [0.0, 0.0, -L - Radius]);
Degrees_90 : constant := Pi / 2.0;
Degrees_360 : constant := Pi * 2.0;
@@ -375,9 +375,9 @@ is
cap_1_Geometry .Model_is (Self.all'unchecked_Access);
cap_2_Geometry .Model_is (Self.all'unchecked_Access);
return (1 => the_shaft_Geometry.all'Access,
return [1 => the_shaft_Geometry.all'Access,
2 => cap_1_Geometry.all'Access,
3 => cap_2_Geometry.all'Access);
3 => cap_2_Geometry.all'Access];
end to_GL_Geometries;

3
3-mid/opengl/source/lean/opengl-terrain.adb
View File

@@ -3,8 +3,7 @@ with
openGL.IO,
openGL.texture_Set,
ada.unchecked_Deallocation,
ada.unchecked_Conversion;
ada.unchecked_Deallocation;
package body openGL.Terrain

1
3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_contact.ads
View File

@@ -2,7 +2,6 @@
--
with c_math_c.Vector_3;
with Interfaces.C;
use Interfaces.C;
with Interfaces.C.Pointers;
package box2d_c.b2d_Contact is

1
3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_point_collision.ads
View File

@@ -2,7 +2,6 @@
--
with c_math_c.Vector_3;
with Interfaces.C;
use Interfaces.C;
with Interfaces.C.Pointers;
package box2d_c.b2d_point_Collision is

1
3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_ray_collision.ads
View File

@@ -3,7 +3,6 @@
with c_math_c;
with c_math_c.Vector_3;
with Interfaces.C;
use Interfaces.C;
with Interfaces.C.Pointers;
package box2d_c.b2d_ray_Collision is

2
3-mid/physics/implement/box2d/source/thin/box2d_c-binding.ads
View File

@@ -13,8 +13,6 @@ with c_math_c.Vector_2;
with c_math_c.Vector_3;
with Interfaces.C;
with swig;
with Interfaces.C;
use Interfaces.C;
package box2d_c.Binding is

1
3-mid/physics/implement/box2d/source/thin/box2d_c-joint_cursor.ads
View File

@@ -1,7 +1,6 @@
-- This file is generated by SWIG. Please do not modify by hand.
--
with Interfaces.C;
use Interfaces.C;
with Interfaces.C.Pointers;
package box2d_c.joint_Cursor is

1
3-mid/physics/implement/box2d/source/thin/box2d_c-pointers.ads
View File

@@ -1,7 +1,6 @@
-- This file is generated by SWIG. Please do not modify by hand.
--
with Interfaces.C;
use Interfaces.C;
with Interfaces.C.Pointers;
with System;

1
3-mid/physics/implement/box2d/source/thin/box2d_c.ads
View File

@@ -2,7 +2,6 @@
--
with swig;
with Interfaces.C;
use Interfaces.C;
package box2d_c is

4
3-mid/physics/interface/source/private/box2d/box2d_physics-shape.adb
View File

@@ -4,8 +4,8 @@ with
c_math_c.Vector_2,
c_math_c.Conversion,
ada.unchecked_Deallocation,
ada.unchecked_Conversion;
ada.unchecked_Deallocation;
package body box2d_Physics.Shape
is

2
3-mid/physics/interface/source/private/box2d/box2d_physics-space.adb
View File

@@ -16,8 +16,6 @@ with
ada.unchecked_Conversion;
with ada.Text_IO; use ada.Text_IO;
package body box2d_Physics.Space
is

2
3-mid/physics/interface/source/private/bullet/bullet_physics-shape.adb
View File

@@ -7,10 +7,10 @@ with
c_math_c.Triangle,
ada.unchecked_Deallocation,
ada.Unchecked_Conversion,
interfaces.C;
package body bullet_Physics.Shape
is
use c_math_c.Conversion,