From 561d0f0155f4906d90eb7e73a3ff9cb28909126f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 5 Feb 2021 09:08:39 +0100 Subject: Update project structure --- script.it/shapes/tools/utils.mli | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 script.it/shapes/tools/utils.mli (limited to 'script.it/shapes/tools/utils.mli') diff --git a/script.it/shapes/tools/utils.mli b/script.it/shapes/tools/utils.mli new file mode 100755 index 0000000..4e12906 --- /dev/null +++ b/script.it/shapes/tools/utils.mli @@ -0,0 +1,21 @@ +(** Return a normalize angle *) +val norm_angle + : Gg.v2 -> float + +(** return the interesction for two segments *) +val intersection + : (Gg.v2 * Gg.v2) -> (Gg.v2 * Gg.v2) -> Gg.v2 option + +(** Return the center of the cercle for three points + None if the point cannot be evaluated +*) +val center + : Gg.v2 -> Gg.v2 -> Gg.v2 -> Gg.v2 option + +(** Rotate the vector by the given angle *) +val rotate + : Gg.v2 -> float -> Gg.v2 + +(** Test equality between two points *) +val equal_point + : float -> Gg.v2 -> Gg.v2 -> bool -- cgit v1.2.3