From 42c3c122c4f53dd68bcdd89411835887c3ae0af9 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 11 Jan 2021 11:33:32 +0100
Subject: Outline module

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

(limited to 'layer/fillPrinter.ml')

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