1 files changed, 32 insertions, 41 deletions
diff --git a/script.it/layer/lineEngine.ml b/script.it/layer/lineEngine.ml
index 3d15d9c..c10017a 100755
--- a/script.it/layer/lineEngine.ml
+++ b/script.it/layer/lineEngine.ml
@@ -1,5 +1,6 @@
-module Make(Layer: Repr.PRINTER) = struct
+module Path = Script_path
 
+module Make (Layer : Repr.PRINTER) = struct
   type point = Path.Point.t
 
   let mark point path =
@@ -9,60 +10,50 @@ module Make(Layer: Repr.PRINTER) = struct
     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')))
+    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 t = { path : Layer.t }
 
   type repr = Layer.t
 
-  let create_path
-    : 'b -> t
-    = fun _ ->
-      { path = Layer.create ()
-      }
+  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 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 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 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 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
 
-  let stop
-    : t -> t
-    = fun path -> path
+    { path }
 
 
-  let get
-    : t -> Layer.t
-    = fun {path; _} ->
-      path
+  let stop : t -> t = fun path -> path
 
+  let get : t -> Layer.t = fun { path; _ } -> path
 end