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/svg.ml | 64 ------------------------------------------------------------
 1 file changed, 64 deletions(-)
 delete mode 100755 layer/svg.ml

(limited to 'layer/svg.ml')

diff --git a/layer/svg.ml b/layer/svg.ml
deleted file mode 100755
index 2394cb8..0000000
--- a/layer/svg.ml
+++ /dev/null
@@ -1,64 +0,0 @@
-(** SVG representation *)
-
-open Brr
-
-module V2 = Gg.V2
-
-let svg : El.cons
-  = fun ?d ?at childs ->
-    El.v ?d ?at (Jstr.v "svg") childs
-
-let path: El.cons
-  = fun ?d ?at childs ->
-    El.v ?d ?at (Jstr.v "path") childs
-
-type t = Jstr.t
-
-let create
-  : unit -> t
-  = fun () -> Jstr.empty
-
-(* Start a new path. *)
-let move_to
-  : Gg.v2 -> t -> t
-  = fun point path ->
-    let x, y = V2.to_tuple point in
-
-    Jstr.concat ~sep:(Jstr.v " ")
-      [ path
-      ; Jstr.v "M"
-      ; Jstr.of_float x
-      ; Jstr.of_float y ]
-
-let line_to
-  : Gg.v2 -> t -> t
-  = fun  point path ->
-    let x, y = V2.to_tuple point in
-    Jstr.concat ~sep:(Jstr.v " ")
-      [ path
-      ; (Jstr.v "L")
-      ; (Jstr.of_float x)
-      ; (Jstr.of_float y) ]
-
-let quadratic_to
-  : Gg.v2 -> Gg.v2 -> Gg.v2 -> t -> t
-  = fun  ctrl0 ctrl1 p1 path ->
-    let cx, cy = V2.to_tuple ctrl0
-    and cx', cy' = V2.to_tuple ctrl1
-    and x, y = V2.to_tuple p1 in
-    Jstr.concat ~sep:(Jstr.v " ")
-      [ path
-      ; (Jstr.v "C")
-      ; (Jstr.of_float cx)
-      ; (Jstr.of_float cy)
-      ; (Jstr.v ",")
-      ; (Jstr.of_float cx')
-      ; (Jstr.of_float cy')
-      ; (Jstr.v ",")
-      ; (Jstr.of_float x)
-      ; (Jstr.of_float y) ]
-
-let close
-  : t -> t
-  = fun path ->
-    Jstr.append path (Jstr.v " Z")
-- 
cgit v1.2.3