module Make(Repr:Layer.Repr.PRINTER): sig

  type repr 

  type t = Point.t

  val create_path
    : 'b -> repr

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

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

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

  val stop
    : repr -> repr
    

  val get 
    : repr -> Repr.t

end