module Make(Repr:Repr.PRINTER): sig

  type repr 

  type t = Path.Point.t

  val create_path
    : (Repr.t -> Repr.t) -> repr

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

  val line_to
    : Path.Point.t -> Path.Point.t -> repr -> repr

  val quadratic_to
    : (Path.Point.t * Gg.v2 * Gg.v2 * Path.Point.t) -> repr -> repr

  val stop
    : repr -> repr

  val get 
    : repr -> Repr.t

end