Subversion Repositories openrisc

package Opt18 is

   type Cart_Axis_Type is (X, Y, Z);

   type Cart_Vector_Type is array (Cart_Axis_Type) of Float;

   function Mag (Item : in Cart_Vector_Type) return Float;

   type Unit_Vector_Type is array (Cart_Axis_Type) of Float;

   type Mag_Axis_Type is

   record

      Mag  : Float;

      Axis : Unit_Vector_Type;

   end record;

   type Unit_Quaternion_Type is record

      X : Float;

      Y : Float;

      Z : Float;

      S : Float;

   end record;

   function Unit_Quaternion_To_Mag_Axis (Quaternion : in Unit_Quaternion_Type)

     return Mag_Axis_Type;

   X_Unit : constant Unit_Vector_Type := (1.0, 0.0, 0.0);

end Opt18;