24 lines
840 B
Ada
24 lines
840 B
Ada
package physics.Joint.hinge
|
|
--
|
|
-- An interface to a hinge joint.
|
|
--
|
|
is
|
|
type Item is limited interface
|
|
and Joint.item;
|
|
|
|
type View is access all Item'Class;
|
|
|
|
|
|
|
|
procedure Limits_are (Self : in out Item; Low, High : in Real;
|
|
Softness : in Real := 0.9;
|
|
biasFactor : in Real := 0.3;
|
|
relaxationFactor : in Real := 1.0) is abstract;
|
|
|
|
function lower_Limit (Self : in Item) return Real is abstract;
|
|
function upper_Limit (Self : in Item) return Real is abstract;
|
|
|
|
function Angle (Self : in Item) return Real is abstract;
|
|
|
|
end physics.Joint.hinge;
|