diff options
Diffstat (limited to 'path/builder.ml')
-rwxr-xr-x | path/builder.ml | 23 |
1 files changed, 2 insertions, 21 deletions
diff --git a/path/builder.ml b/path/builder.ml index cb87fc5..182fc13 100755 --- a/path/builder.ml +++ b/path/builder.ml @@ -12,25 +12,6 @@ module type P = sig end -module type REPR = 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 - module Make(Point:P) = struct (** Point creation **) @@ -123,8 +104,8 @@ module Make(Point:P) = struct | hd::_ -> Some hd let repr - : t -> (module REPR with type t = Point.t and type repr = 's) -> 's -> 's - = fun (type s) (points, beziers) (module Repr : REPR with type t = Point.t and type repr = s) path -> + : t -> (module Repr.M with type t = Point.t and type repr = 's) -> 's -> 's + = fun (type s) (points, beziers) (module Repr : Repr.M with type t = Point.t and type repr = s) path -> (* Represent the last points *) let path = match points with |