29 lines
570 B
Ada
29 lines
570 B
Ada
with
|
|
bullet_physics.Space,
|
|
box2d_physics .Space;
|
|
|
|
package body physics.Forge
|
|
is
|
|
----------
|
|
--- Space
|
|
--
|
|
|
|
function new_Space (Kind : in space_Kind) return Space.view
|
|
is
|
|
Self : Space.view;
|
|
begin
|
|
case Kind
|
|
is
|
|
when Bullet =>
|
|
Self := Space.view' (new bullet_physics.Space.item' (bullet_physics.Space.to_Space));
|
|
|
|
when Box2d =>
|
|
Self := Space.view' (new box2d_physics.Space.item' (box2d_physics.Space.to_Space));
|
|
end case;
|
|
|
|
return Self;
|
|
end new_Space;
|
|
|
|
|
|
end physics.Forge;
|