Dynamic width

1 files changed, 6 insertions, 0 deletions

diff --git a/path/point.ml b/path/point.ml
index abb9515..06eb635 100755
--- a/path/point.ml
+++ b/path/point.ml
@@ -19,6 +19,12 @@ let create ~angle ~width ~x ~y =
 let copy point p =
   { point with p }
 
+let set_angle p angle =
+  { p with angle = Gg.Float.rad_of_deg (180. -. angle) }
+
+let set_width p size =
+  { p with size }
+
 let (+) p1 p2 =
   { p1 with p = Gg.V2.(+) p1.p p2 }