From 20d10a93e5becb41d1145f9d35136782365b0ba4 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 17 Dec 2020 13:56:00 +0100
Subject: Refactor

---
 shapes/bspline.mli | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 shapes/bspline.mli

(limited to 'shapes/bspline.mli')

diff --git a/shapes/bspline.mli b/shapes/bspline.mli
new file mode 100755
index 0000000..a36aa22
--- /dev/null
+++ b/shapes/bspline.mli
@@ -0,0 +1,24 @@
+type t
+
+type err = 
+  [ `InvalidPath (* Too few points in the path for building the curve *)
+  ]
+
+(** Convert a list of points into a beziers curves. 
+
+    At least 4 points are required for building the path.
+
+    [to_bezier ~connexion points] create a list of beziers segments joining all
+    the points together. 
+
+    [connexion0] add a virtual point in the begining for helping to get the
+    appropriate tangent when connecting path together
+
+    [connexion1] does the same at the end
+
+*)
+val to_bezier
+  :  ?connexion0:Gg.v2
+  -> ?connexion1:Gg.v2
+  -> Gg.v2 list 
+  -> (Bezier.t array, [> err]) Result.t
-- 
cgit v1.2.3