use core::num::{One, Zero}; // , Trigonometric};
use std::cmp::FuzzyEq;
use traits::workarounds::rlmul::{RMul, LMul};
use traits::workarounds::trigonometric::Trigonometric;
use traits::dim::Dim;
use traits::inv::Inv;
use traits::transpose::Transpose;
use dim2::mat2::Mat2;
use dim3::mat3::Mat3;
use dim3::vec3::Vec3;

// FIXME: use a newtype here?
#[deriving(Eq)]
pub struct Rotmat<M>
{
  priv submat: M
}

pub fn Rotmat2<T: Copy + Trigonometric + Neg<T>>(angle: T) -> Rotmat<Mat2<T>>
{
  let coa = Trigonometric::cos(angle);
  let sia = Trigonometric::sin(angle);

  Rotmat
  { submat: Mat2(coa, -sia, sia, coa) }
}

pub fn Rotmat3<T: Copy + Trigonometric + Neg<T> + One + Sub<T, T> + Add<T, T> +
                  Mul<T, T>>
(axis: &Vec3<T>, angle: T) -> Rotmat<Mat3<T>>
{
  let _1        = One::one::<T>();
  let ux        = axis.x;
  let uy        = axis.y;
  let uz        = axis.z;
  let sqx       = ux * ux;
  let sqy       = uy * uy;
  let sqz       = uz * uz;
  let cos       = Trigonometric::cos(angle);
  let one_m_cos = _1 - cos;
  let sin       = Trigonometric::sin(angle);

  Rotmat {
    submat: Mat3(
      (sqx + (_1 - sqx) * cos),
      (ux * uy * one_m_cos - uz * sin),
      (ux * uz * one_m_cos + uy * sin),

      (ux * uy * one_m_cos + uz * sin),
      (sqy + (_1 - sqy) * cos),
      (uy * uz * one_m_cos - ux * sin),

      (ux * uz * one_m_cos - uy * sin),
      (uy * uz * one_m_cos + ux * sin),
      (sqz + (_1 - sqz) * cos))
  }
}

impl<M: Dim> Dim for Rotmat<M>
{
  fn dim() -> uint
  { Dim::dim::<M>() }
}
 
impl<M:Copy + One + Zero> One for Rotmat<M>
{
  fn one() -> Rotmat<M>
  { Rotmat { submat: One::one() } }
}

impl<M:Copy + Mul<M, M>> Mul<Rotmat<M>, Rotmat<M>> for Rotmat<M>
{
  fn mul(&self, other: &Rotmat<M>) -> Rotmat<M>
  { Rotmat { submat: self.submat.mul(&other.submat) } }
}

impl<V, M: RMul<V>> RMul<V> for Rotmat<M>
{
  fn rmul(&self, other: &V) -> V
  { self.submat.rmul(other) }
}

impl<V, M: LMul<V>> LMul<V> for Rotmat<M>
{
  fn lmul(&self, other: &V) -> V
  { self.submat.lmul(other) }
}

impl<M:Copy + Transpose>
Inv for Rotmat<M>
{
  fn invert(&mut self)
  { self.transpose() }

  fn inverse(&self) -> Rotmat<M>
  { self.transposed() }
}

impl<M:Copy + Transpose>
Transpose for Rotmat<M>
{
  fn transposed(&self) -> Rotmat<M>
  { Rotmat { submat: self.submat.transposed() } }

  fn transpose(&mut self)
  { self.submat.transpose() }
}

impl<T, M:FuzzyEq<T>> FuzzyEq<T> for Rotmat<M>
{
  fn fuzzy_eq(&self, other: &Rotmat<M>) -> bool
  { self.submat.fuzzy_eq(&other.submat) }

  fn fuzzy_eq_eps(&self, other: &Rotmat<M>, epsilon: &T) -> bool
  { self.submat.fuzzy_eq_eps(&other.submat, epsilon) }
}

impl<M:ToStr> ToStr for Rotmat<M>
{
  fn to_str(&self) -> ~str
  { ~"Rotmat {" + " submat: " + self.submat.to_str() + " }" }
}