1 2 3 4 5 6 7 8 9 10 11 12 13
type t val (+): t -> Gg.v2 -> t val get_coord : t -> Gg.v2 val create: float -> float -> t val add_point_in_path : float -> float -> t list -> Curves.Bezier.t list -> t list * Curves.Bezier.t list val get_coord' : t -> Gg.v2