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

---
 layer/lineEngine.ml | 68 -----------------------------------------------------
 1 file changed, 68 deletions(-)
 delete mode 100755 layer/lineEngine.ml

(limited to 'layer/lineEngine.ml')

diff --git a/layer/lineEngine.ml b/layer/lineEngine.ml
deleted file mode 100755
index 3d15d9c..0000000
--- a/layer/lineEngine.ml
+++ /dev/null
@@ -1,68 +0,0 @@
-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