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

Tidy.

Browse Source
This commit is contained in:
Rod Kay
2023-12-08 17:14:00 +11:00
parent dbe487c074
commit b7f584ca7f
4 changed files with 51 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
3-mid/opengl/source/lean/opengl-texture.adb
View File

@@ -169,12 +169,12 @@ is
Self.Dimensions.Width := min_Width;
Self.Dimensions.Height := min_Height;
new_Line (3);
put_Line ("openGL.Texture.set_Image ~ GLsizei (Self.Dimensions.Width) =>" & GLsizei (Self.Dimensions.Width) 'Image);
put_Line (" ~ GLsizei (Self.Dimensions.Height) =>" & GLsizei (Self.Dimensions.Height)'Image);
put_Line (" ~ the_Image =>");
put_Line (the_Image'Image);
new_Line (3);
-- new_Line (3);
-- put_Line ("openGL.Texture.set_Image ~ GLsizei (Self.Dimensions.Width) =>" & GLsizei (Self.Dimensions.Width) 'Image);
-- put_Line (" ~ GLsizei (Self.Dimensions.Height) =>" & GLsizei (Self.Dimensions.Height)'Image);
-- put_Line (" ~ the_Image =>");
-- put_Line (the_Image'Image);
-- new_Line (3);
Self.enable;

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

@@ -15,6 +15,9 @@ with
ada.unchecked_Conversion;
with ada.Text_IO; use ada.Text_IO;
package body box2d_Physics.Space
is
use box2d_c.Binding,
@@ -413,6 +416,7 @@ is
end add;
overriding
procedure rid (Self : in out Item; the_Object : in physics.Object.view)
is
@@ -422,6 +426,7 @@ is
end rid;
overriding
function cast_Ray (Self : access Item; From, To : in Vector_3) return physics.Space.ray_Collision
is
@@ -446,6 +451,7 @@ is
end cast_Ray;
overriding
procedure evolve (Self : in out Item; By : in Duration)
is
@@ -470,6 +476,7 @@ is
end evolve;
overriding
function Gravity (Self : in Item) return Vector_3
is
@@ -479,6 +486,7 @@ is
end Gravity;
overriding
procedure Gravity_is (Self : in out Item; Now : in Vector_3)
is