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

---
 layer/fillPrinter.ml | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100755 layer/fillPrinter.ml

(limited to 'layer/fillPrinter.ml')

diff --git a/layer/fillPrinter.ml b/layer/fillPrinter.ml
new file mode 100755
index 0000000..2297d15
--- /dev/null
+++ b/layer/fillPrinter.ml
@@ -0,0 +1,73 @@
+module Point = Path.Point
+module Make(Repr: 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
+    : Path.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