path/repr.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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