type 'a repr 

type t = Point.t

val create_path
  : unit -> 'a repr

(* Start a new path. *)
val start
  : Point.t -> 'a repr -> 'a repr

val line_to
  : Point.t -> 'a repr -> 'a repr

val quadratic_to
  : Point.t -> Gg.v2 -> Gg.v2 -> Point.t -> 'a repr -> 'a repr

val stop
  : 'a repr -> 'a repr

val get 
  : 'a repr -> 'a CanvaPrinter.t