module type M = sig
  type t

  type repr

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

  val line_to
    : t -> t -> repr -> repr

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

  val stop
    : repr -> repr
end