sig
  type t = Diagrams.Point.t
  val of_points : float * float -> float * float -> float * float
  val scal_mul : float -> float * float -> float * float
  val ( * ) : float -> float * float -> float * float
  val ( + ) : float * float -> float * float -> float * float
  val ( - ) : float * float -> float * float -> float * float
  val ( <> ) : float * float -> float * float -> float
  val minus : float * float -> float * float
  val translate : float * float -> float * float -> float * float
  val rotate : float -> float * float -> float * float
  val norm : float * float -> float
  val normalise : ?norm:float -> float * float -> float * float
  val turn_left : 'a * float -> float * 'a
  val turn_right : float * 'a -> 'a * float
  val unit : float -> float * float
  val angle : float * float -> float
  val sector : float * float -> float * float -> float
  val det : float * float -> float * float -> float
end