diff --git a/4-high/gel/source/forge/gel-forge.adb b/4-high/gel/source/forge/gel-forge.adb
index cfc7ed6..d84ab51 100644
--- a/4-high/gel/source/forge/gel-forge.adb
+++ b/4-high/gel/source/forge/gel-forge.adb
@@ -122,16 +122,17 @@ is
    -- 2D
    --
 
-   function new_circle_Sprite (in_World   : in gel.World.view;
-                               Name       : in String;
-                               Site       : in math.Vector_3      := math.Origin_3D;
-                               Mass       : in math.Real          := 1.0;
-                               Friction   : in math.Real          := 0.5;
-                               Bounce     : in math.Real          := 0.5;
-                               Radius     : in math.Real          := 0.5;
-                               Color      : in openGL.Color       := opengl.Palette.White;
-                               Texture    : in openGL.asset_Name  := openGL.null_Asset;
-                               user_Data  : in any_user_Data_view := null) return gel.Sprite.view
+   function new_circle_Sprite (in_World    : in gel.World.view;
+                               Name        : in String;
+                               Site        : in math.Vector_3      := math.Origin_3D;
+                               Mass        : in math.Real          := 1.0;
+                               Friction    : in math.Real          := 0.5;
+                               Bounce      : in math.Real          := 0.5;
+                               is_Tangible : in Boolean            := True;
+                               Radius      : in math.Real          := 0.5;
+                               Color       : in openGL.Color       := opengl.Palette.White;
+                               Texture     : in openGL.asset_Name  := openGL.null_Asset;
+                               user_Data   : in any_user_Data_view := null) return gel.Sprite.view
    is
       use openGL;
       use type Vector_2;
@@ -142,8 +143,8 @@ is
         := physics.Model.Forge.new_physics_Model (shape_Info  => (physics.Model.Circle, Radius),
                                                   Mass        => Mass,
                                                   Friction    => Friction,
-                                                  Restitution => Bounce);
-                                                  --  Site        => Vector_3 (Site & 0.0));
+                                                  Restitution => Bounce,
+                                                  is_Tangible => is_Tangible);
    begin
       if Texture = openGL.null_Asset
       then
diff --git a/4-high/gel/source/forge/gel-forge.ads b/4-high/gel/source/forge/gel-forge.ads
index 3f0b0c5..310f7de 100644
--- a/4-high/gel/source/forge/gel-forge.ads
+++ b/4-high/gel/source/forge/gel-forge.ads
@@ -53,37 +53,38 @@ is
    -- 2D
    --
 
-   function new_circle_Sprite    (in_World   : in gel.World.view;
-                                  Name       : in String;
-                                  Site       : in math.Vector_3      := math.Origin_3D;
-                                  Mass       : in math.Real          := 1.0;
-                                  Friction   : in math.Real          := 0.5;
-                                  Bounce     : in math.Real          := 0.5;
-                                  Radius     : in math.Real          := 0.5;
-                                  Color      : in openGL.Color       := opengl.Palette.White;
-                                  Texture    : in openGL.asset_Name  := openGL.null_Asset;
-                                  user_Data  : in any_user_Data_view := null) return gel.Sprite.view;
+   function new_circle_Sprite    (in_World    : in gel.World.view;
+                                  Name        : in String;
+                                  Site        : in math.Vector_3      := math.Origin_3D;
+                                  Mass        : in math.Real          := 1.0;
+                                  Friction    : in math.Real          := 0.5;
+                                  Bounce      : in math.Real          := 0.5;
+                                  is_Tangible : in Boolean            := True;
+                                  Radius      : in math.Real          := 0.5;
+                                  Color       : in openGL.Color       := opengl.Palette.White;
+                                  Texture     : in openGL.asset_Name  := openGL.null_Asset;
+                                  user_Data   : in any_user_Data_view := null) return gel.Sprite.view;
 
-   function new_polygon_Sprite   (in_World   : in gel.World.view;
-                                  Site       : in math.Vector_3      := math.Origin_3D;
-                                  Mass       : in math.Real          := 1.0;
-                                  Friction   : in math.Real          := 0.5;
-                                  Bounce     : in math.Real          := 0.5;
-                                  Vertices   : in Geometry_2d.Sites;
-                                  Color      : in openGL.Color       := opengl.Palette.White;
-                                  Texture    : in openGL.asset_Name  := openGL.null_Asset;
-                                  user_Data  : in any_user_Data_view := null) return gel.Sprite.view;
+   function new_polygon_Sprite   (in_World    : in gel.World.view;
+                                  Site        : in math.Vector_3      := math.Origin_3D;
+                                  Mass        : in math.Real          := 1.0;
+                                  Friction    : in math.Real          := 0.5;
+                                  Bounce      : in math.Real          := 0.5;
+                                  Vertices    : in Geometry_2d.Sites;
+                                  Color       : in openGL.Color       := opengl.Palette.White;
+                                  Texture     : in openGL.asset_Name  := openGL.null_Asset;
+                                  user_Data   : in any_user_Data_view := null) return gel.Sprite.view;
 
-   function new_rectangle_Sprite (in_World   : in gel.World.view;
-                                  Site       : in math.Vector_3      := math.Origin_3D;
-                                  Mass       : in math.Real          := 1.0;
-                                  Friction   : in math.Real          := 0.5;
-                                  Bounce     : in math.Real          := 0.5;
+   function new_rectangle_Sprite (in_World    : in gel.World.view;
+                                  Site        : in math.Vector_3      := math.Origin_3D;
+                                  Mass        : in math.Real          := 1.0;
+                                  Friction    : in math.Real          := 0.5;
+                                  Bounce      : in math.Real          := 0.5;
                                   Width,
-                                  Height     : in math.Real;
-                                  Color      : in openGL.Color       := opengl.Palette.White;
-                                  Texture    : in openGL.asset_Name  := openGL.null_Asset;
-                                  user_Data  : in any_user_Data_view := null) return gel.Sprite.view;
+                                  Height      : in math.Real;
+                                  Color       : in openGL.Color       := opengl.Palette.White;
+                                  Texture     : in openGL.asset_Name  := openGL.null_Asset;
+                                  user_Data   : in any_user_Data_view := null) return gel.Sprite.view;
    -- 3D
    --