From 7bb561f31e0ee57a388032b760b7db943dd6b36c Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 1 Jan 2021 23:18:35 +0100
Subject: Update

---
 paths.ml | 114 ---------------------------------------------------------------
 1 file changed, 114 deletions(-)
 delete mode 100755 paths.ml

(limited to 'paths.ml')

diff --git a/paths.ml b/paths.ml
deleted file mode 100755
index 9d968f0..0000000
--- a/paths.ml
+++ /dev/null
@@ -1,114 +0,0 @@
-(** Common  module for ensuring that the function is evaluated only once *)
-
-module Path_Builder = Path.Builder.Make(Path.Point)
-module Fixed = Path.Fixed.Make(Path.Point)
-
-(* Canva representation *)
-
-module FillCanvaRepr = Path.FillPrinter.Make(Layer.CanvaPrinter)
-module LineCanvaRepr = Path.LinePrinter.Make(Layer.CanvaPrinter)
-module WireCanvaRepr = Path.WireFramePrinter.Make(Layer.CanvaPrinter)
-
-
-(* SVG representation *)
-
-module FillSVGRepr = Path.FillPrinter.Make(Layer.Svg)
-module LineSVGRepr = Path.LinePrinter.Make(Layer.Svg)
-module WireSVGRepr = Path.WireFramePrinter.Make(Layer.Svg)
-
-
-module type REPRESENTABLE = sig
-  type t
-
-  (** Represent the path *)
-  val repr
-    : t -> (module Path.Repr.M with type t = Path.Point.t and type repr = 's) -> 's -> 's
-end
-
-type printer =
-  [ `Fill
-  | `Line
-  | `Wire
-  ]
-
-(** Draw a path to a canva *)
-let to_canva
-  : (module REPRESENTABLE with type t = 's)  -> 's -> Brr_canvas.C2d.t -> printer -> unit
-  = fun (type s) (module R:REPRESENTABLE with type t = s) path ctx -> function
-    | `Fill ->
-      R.repr
-        path
-        (module FillCanvaRepr)
-        (FillCanvaRepr.create_path (fun p -> Brr_canvas.C2d.fill ctx p; p))
-      |> FillCanvaRepr.get
-      |> Brr_canvas.C2d.stroke ctx
-    | `Line ->
-      R.repr
-        path
-        (module LineCanvaRepr)
-        (LineCanvaRepr.create_path (fun p -> Brr_canvas.C2d.fill ctx p; p))
-      |> LineCanvaRepr.get
-      |> Brr_canvas.C2d.stroke ctx
-    | `Wire ->
-      R.repr
-        path
-        (module WireCanvaRepr)
-        (WireCanvaRepr.create_path (fun p -> Brr_canvas.C2d.fill ctx p; p))
-      |> WireCanvaRepr.get
-      |> Brr_canvas.C2d.stroke ctx
-
-
-(** Draw a path and represent it as SVG *)
-let to_svg
-  : (module REPRESENTABLE with type t = 's) -> color:Jstr.t -> 's -> printer -> Brr.El.t
-  = fun (type s) (module R:REPRESENTABLE with type t = s) ~color path -> function
-    | `Fill ->
-
-      (* In order to deal with over crossing path, I cut the path in as
-         many segment as there is curve, and fill them all. Then, all of theme
-         are grouped inside a single element *)
-      let paths = ref [] in
-      let _ = R.repr
-          path
-          (module FillSVGRepr)
-          (FillSVGRepr.create_path
-             (fun p ->
-                let repr = Layer.Svg.path
-                    ~at:Brr.At.[ v (Jstr.v "d") p ]
-                    [] in
-
-                paths := repr::!paths;
-                Jstr.empty)) in
-
-      Brr.El.v (Jstr.v "g")
-        ~at:Brr.At.[
-            v (Jstr.v "fill")  color
-          ; v (Jstr.v "stroke") color]
-        !paths
-
-    | `Line ->
-      let svg_path = R.repr
-          path
-          (module LineSVGRepr)
-          (LineSVGRepr.create_path (fun _ -> ()))
-                     |> LineSVGRepr.get in
-      Layer.Svg.path
-        ~at:Brr.At.[
-            v (Jstr.v "fill")  color
-          ; v (Jstr.v "stroke") color
-          ; v (Jstr.v "d") svg_path ]
-        []
-    | `Wire ->
-      let svg_path = R.repr
-          path
-          (module WireSVGRepr)
-          (WireSVGRepr.create_path (fun _ -> ()))
-                     |> WireSVGRepr.get in
-      Layer.Svg.path
-        ~at:Brr.At.[
-            v (Jstr.v "fill")  color
-          ; v (Jstr.v "stroke") color
-          ; v (Jstr.v "d") svg_path ]
-        []
-
-
-- 
cgit v1.2.3