nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add initial prototype.

Browse Source
This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
3-mid/physics/interface/source/physics-joint-cone_twist.ads Normal file
View File

@@ -0,0 +1,22 @@
package physics.Joint.cone_Twist
--
-- An interface to a cone-twist joint.
--
is
type Item is limited interface
and Joint.item;
type View is access all Item'Class;
function lower_Limit (Self : in Item; DoF : in Degree_of_freedom) return Real is abstract;
function upper_Limit (Self : in Item; DoF : in Degree_of_freedom) return Real is abstract;
procedure lower_Limit_is (Self : in out Item; Now : in Real;
DoF : in Degree_of_freedom) is abstract;
procedure upper_Limit_is (Self : in out Item; Now : in Real;
DoF : in Degree_of_freedom) is abstract;
end physics.Joint.cone_Twist;