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/fillPrinter.ml | 72 -----------------------------------------------------
 1 file changed, 72 deletions(-)
 delete mode 100755 path/fillPrinter.ml

(limited to 'path/fillPrinter.ml')

diff --git a/path/fillPrinter.ml b/path/fillPrinter.ml
deleted file mode 100755
index 76056c7..0000000
--- a/path/fillPrinter.ml
+++ /dev/null
@@ -1,72 +0,0 @@
-module Make(Repr: Layer.Repr.PRINTER) = struct
-
-  type t = Point.t
-
-  type repr =
-    { path: Repr.t
-    ; close : Repr.t -> Repr.t
-    }
-
-  let create_path
-    : (Repr.t -> Repr.t) -> repr
-    = fun f ->
-      { close = f
-      ; path = Repr.create ()
-      }
-
-  (* Start a new path. *)
-  let start
-    : Point.t -> repr -> repr
-    = fun t {close ; path } ->
-      let path = Repr.move_to (Point.get_coord t) path in
-      { close
-      ; path
-      }
-
-  let line_to
-    : Point.t -> Point.t -> repr -> repr
-    = fun p0 p1 t ->
-      let path =
-        Repr.move_to (Point.get_coord p1) t.path
-        |> Repr.line_to (Point.get_coord' p1)
-        |> Repr.line_to (Point.get_coord' p0)
-        |> Repr.line_to (Point.get_coord p0)
-        |> Repr.line_to (Point.get_coord p1)
-        |> Repr.close in
-      let path = t.close path in
-      { t with path}
-
-  let quadratic_to
-    : Point.t -> Gg.v2 -> Gg.v2 -> Point.t -> repr -> repr
-    = fun p0 ctrl0 ctrl1 p1 t ->
-
-      let ctrl0' = Point.copy p1 ctrl0
-      and ctrl1' = Point.copy p1 ctrl1 in
-
-      let path =
-        Repr.move_to (Point.get_coord p1) t.path
-        |> Repr.line_to (Point.get_coord' p1)
-        |> Repr.quadratic_to
-          (Point.get_coord' ctrl1')
-          (Point.get_coord' ctrl0')
-          (Point.get_coord' p0)
-        |> Repr.line_to (Point.get_coord p0)
-        |> Repr.quadratic_to
-          (Point.get_coord ctrl0')
-          (Point.get_coord ctrl1')
-          (Point.get_coord p1)
-        |> Repr.close in
-      let path = t.close path in
-      { t with path}
-
-
-  let stop
-    : repr -> repr
-    = fun t ->
-      t
-
-  let get
-    : repr -> Repr.t
-    = fun t ->
-      t.path
-end
-- 
cgit v1.2.3