Fixed width and angle sliddes

2 files changed, 4 insertions, 4 deletions

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