From 32618a5ce8e2b306af102e4c16711b090c36b840 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Thu, 7 Jan 2021 21:54:46 +0100 Subject: Allow point movement --- layer/linePrinter.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'layer') diff --git a/layer/linePrinter.ml b/layer/linePrinter.ml index c15bcc9..38dae5c 100755 --- a/layer/linePrinter.ml +++ b/layer/linePrinter.ml @@ -37,9 +37,10 @@ module Make(Repr: Repr.PRINTER) = struct let line_to : Path.Point.t -> Path.Point.t -> repr -> repr - = fun _ t {path} -> - let path = Repr.line_to (Path.Point.get_coord t) path - |> mark t in + = fun p0 p1 {path} -> + let path = Repr.move_to (Path.Point.get_coord p0) path + |> Repr.line_to (Path.Point.get_coord p1) + |> mark p1 in { path } -- cgit v1.2.3