blob: 3b188146c1a3966c34108243a38f23709e354bc3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Path = Script_path
module Make (Repr : Repr.PRINTER) : sig
type repr
type t = Path.Point.t
val create_path : 'b -> repr
(* Start a new path. *)
val start : Path.Point.t -> repr -> repr
val line_to : Path.Point.t -> Path.Point.t -> repr -> repr
val quadratic_to :
Path.Point.t -> Gg.v2 -> Gg.v2 -> Path.Point.t -> repr -> repr
val stop : repr -> repr
val get : repr -> Repr.t
end
|
