From a8f37f041dce3f16917b6659d3ca97492f178f4d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 3 Jan 2021 05:42:35 +0100
Subject: Communication with webworker

---
 path/linePrinter.ml | 54 -----------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100755 path/linePrinter.ml

(limited to 'path/linePrinter.ml')

diff --git a/path/linePrinter.ml b/path/linePrinter.ml
deleted file mode 100755
index c0a7d58..0000000
--- a/path/linePrinter.ml
+++ /dev/null
@@ -1,54 +0,0 @@
-module Make(Repr: Layer.Repr.PRINTER) = struct
-
-  type t = Point.t
-
-  type repr =
-    { path: (Repr.t)
-    }
-
-  let create_path
-    : 'b -> repr
-    = fun _ ->
-      { path = Repr.create ()
-      }
-
-  (* Start a new path. *)
-  let start
-    : Point.t -> repr -> repr
-    = fun t {path} ->
-      let path = Repr.move_to (Point.get_coord t) path in
-      let path = Repr.line_to (Point.get_coord' t) path in
-      { path
-      }
-
-  let line_to
-    : Point.t -> Point.t -> repr -> repr
-    = fun _ t {path} ->
-      let path = Repr.move_to (Point.get_coord t) path in
-      let path = Repr.line_to (Point.get_coord' t) path in
-      { path
-      }
-
-  let quadratic_to
-    : Point.t -> Gg.v2 -> Gg.v2 -> Point.t -> repr -> repr
-    = fun _p0 _ctrl0 _ctrl1 p1 {path} ->
-
-      let path = Repr.move_to (Point.get_coord p1) path in
-      let path = Repr.line_to (Point.get_coord' p1) path in
-
-      { path
-      }
-
-  let stop
-    : repr -> repr
-    = fun {path} ->
-
-
-      { path
-      }
-
-  let get
-    : repr -> Repr.t
-    = fun {path; _} ->
-      path
-end
-- 
cgit v1.2.3