Add initial prototype.
This commit is contained in:
19
3-mid/physics/interface/source/physics-forge.ads
Normal file
19
3-mid/physics/interface/source/physics-forge.ads
Normal file
@@ -0,0 +1,19 @@
|
||||
with
|
||||
physics.Space;
|
||||
|
||||
package physics.Forge
|
||||
--
|
||||
-- Provides constructors for physics classes.
|
||||
--
|
||||
is
|
||||
type Real_view is access all math.Real;
|
||||
|
||||
|
||||
----------
|
||||
--- Space
|
||||
--
|
||||
|
||||
function new_Space (Kind : in space_Kind) return Space.view;
|
||||
|
||||
|
||||
end physics.Forge;
|
||||
Reference in New Issue
Block a user