From c734c1b30fd1c58a0d42020859be31d89b92bcd0 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sat, 9 Jan 2021 11:35:02 +0100 Subject: Moved tools library inside the shapes one --- shapes/tools/utils.mli | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 shapes/tools/utils.mli (limited to 'shapes/tools/utils.mli') diff --git a/shapes/tools/utils.mli b/shapes/tools/utils.mli new file mode 100755 index 0000000..4e12906 --- /dev/null +++ b/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