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