type t = private { x : float ; y : float ; z : float ; } val make : Point.t -> t