Add initial prototype.

3-mid/physics/interface/source/physics-forge.adb

@@ -0,0 +1,28 @@
+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;