Cosmetics.

This commit is contained in:
Rod Kay
2025-04-11 21:43:02 +10:00
parent 0e3e3c1d3d
commit 9693041373
10 changed files with 20 additions and 66 deletions

View File

@@ -69,7 +69,6 @@ is
Mass : Real;
Friction : Real;
Restitution : Real; -- Bounce
-- Site : Vector_3;
is_Tangible : Boolean := True;
end record;
@@ -89,7 +88,6 @@ is
Mass : in Real := 0.0;
Friction : in Real := 0.1;
Restitution : in Real := 0.1;
-- Site : in Vector_3 := Origin_3d;
is_Tangible : in Boolean := True) return View;
end Forge;

View File

@@ -6,7 +6,8 @@ is
type Item is limited interface;
type View is access all Item'Class;
procedure define (Self : in out Item) is abstract;
procedure define (Self : in out Item) is abstract;
procedure free (Self : in out View);