script.it/path/repr.ml


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

module type M = sig

  type point

  type t

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

  val line_to
    : point -> point -> t -> t

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

  val stop
    : t -> t
end