From 9d65e5e6a5bd8666baf0d7d3e0474c721cafc683 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 28 Dec 2020 21:17:20 +0100
Subject: Fixed width and angle sliddes

---
 path/point.ml  | 6 +++---
 path/point.mli | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'path')

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 =
diff --git a/path/point.mli b/path/point.mli
index 521eced..2c687ab 100755
--- a/path/point.mli
+++ b/path/point.mli
@@ -6,7 +6,7 @@ val (+): t -> Gg.v2 -> t
 
 val get_coord : t -> Gg.v2
 
-val create: float -> float -> t
+val create: angle:float -> width:float -> x:float -> y:float -> t
 
 val copy : t -> Gg.v2 -> t
 
-- 
cgit v1.2.3