From 9d65e5e6a5bd8666baf0d7d3e0474c721cafc683 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 28 Dec 2020 21:17:20 +0100 Subject: Fixed width and angle sliddes --- path/point.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'path/point.ml') diff --git a/path/point.ml b/path/point.ml index 808310c..abb9515 100755 --- a/path/point.ml +++ b/path/point.ml @@ -10,10 +10,10 @@ let empty = ; angle = 0. } -let create x y = +let create ~angle ~width ~x ~y = { p = Gg.V2.v x y - ; size = 10. - ; angle = Float.neg Gg.Float.pi_div_4 + ; size = width + ; angle = Gg.Float.rad_of_deg (180. -. angle ) } let copy point p = -- cgit v1.2.3