From 561d0f0155f4906d90eb7e73a3ff9cb28909126f Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 5 Feb 2021 09:08:39 +0100
Subject: Update project structure

---
 script.it/layer/lineEngine.ml | 68 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 script.it/layer/lineEngine.ml

(limited to 'script.it/layer/lineEngine.ml')

diff --git a/script.it/layer/lineEngine.ml b/script.it/layer/lineEngine.ml
new file mode 100755
index 0000000..3d15d9c
--- /dev/null
+++ b/script.it/layer/lineEngine.ml
@@ -0,0 +1,68 @@
+module Make(Layer: Repr.PRINTER) = struct
+
+  type point = Path.Point.t
+
+  let mark point path =
+    let open Gg.V2 in
+    let point = Path.Point.get_coord point in
+
+    let dist = 5.
+    and dist' = -5. in
+
+    let path = Layer.move_to (point - (of_tuple (dist, dist))) path
+               |> Layer.line_to ( point + (of_tuple (dist, dist)))
+               |> Layer.move_to (point + (of_tuple (dist', dist)))
+               |> Layer.line_to ( point + (of_tuple (dist, dist')))
+    in
+    path
+
+
+  type t =
+    { path: (Layer.t)
+    }
+
+  type repr = Layer.t
+
+  let create_path
+    : 'b -> t
+    = fun _ ->
+      { path = Layer.create ()
+      }
+
+  let start
+    : point -> point -> t -> t
+    = fun p1 _ { path } ->
+      let path = mark p1 path in
+      { path
+      }
+
+  let line_to
+    : (point * point) -> (point * point) -> t -> t
+    = fun (p0, p1) _ {path} ->
+      let path = Layer.move_to (Path.Point.get_coord p0) path
+                 |> Layer.line_to (Path.Point.get_coord p1)
+                 |> mark p1 in
+      { path
+      }
+
+  let quadratic_to
+    : (point * Gg.v2 * Gg.v2 * point) -> (point * Gg.v2 * Gg.v2 * point) -> t -> t
+    = fun (p0, ctrl0, ctrl1, p1) _ {path} ->
+
+      let path = Layer.move_to (Path.Point.get_coord p0) path
+                 |> Layer.quadratic_to ctrl0 ctrl1 (Path.Point.get_coord p1)
+                 |> mark p1 in
+
+      { path = path }
+
+  let stop
+    : t -> t
+    = fun path -> path
+
+
+  let get
+    : t -> Layer.t
+    = fun {path; _} ->
+      path
+
+end
-- 
cgit v1.2.3