TdRFrom2Axes

type TdRFrom2Axes = procedure(

  var R: TdMatrix3;

  const ax: TdReal;

  const ay: TdReal;

  const az: TdReal;

  const bx: TdReal;

  const by: TdReal;

  const bz: TdReal

);