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