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