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 -> Shapes.Bezier.t list -> t list * Shapes.Bezier.t list val get_coord' : t -> Gg.v2