Fixed width and angle sliddes

1 files changed, 3 insertions, 3 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 =