From 4f262d6540281487f79870aff589ca92f5d2f6c6 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 16 Dec 2020 14:39:42 +0100
Subject: Initial commit

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

(limited to 'curves/bspline.mli')

diff --git a/curves/bspline.mli b/curves/bspline.mli
new file mode 100755
index 0000000..074658d
--- /dev/null
+++ b/curves/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