From af88c8895bba85fe5340b34aafb3dce7650bd01f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 1 Jan 2021 11:08:38 +0100 Subject: Use first type module instead of functors --- paths.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'paths.ml') diff --git a/paths.ml b/paths.ml index 49bf03a..4ff6c66 100755 --- a/paths.ml +++ b/paths.ml @@ -3,8 +3,10 @@ module Path_Builder = Path.Builder.Make(Path.Point) module Fixed = Path.Fixed.Make(Path.Point) -module SVGRepr = Path.WireFramePrinter.Make(Layer.Svg) -module SVG_Printer = Fixed.DrawFixed(SVGRepr) +(* Canva representation *) module CanvaRepr = Path.FillPrinter.Make(Layer.CanvaPrinter) -module Fixed_Printer = Fixed.DrawFixed(CanvaRepr) + +(* SVG representation *) + +module SVGRepr = Path.WireFramePrinter.Make(Layer.Svg) -- cgit v1.2.3