1 files changed, 4 insertions, 0 deletions
diff --git a/path/point.ml b/path/point.ml
index 031e1e0..046c2e7 100755
--- a/path/point.ml
+++ b/path/point.ml
@@ -25,9 +25,13 @@ let copy point p =
 let set_angle p angle =
   { p with angle = Gg.Float.rad_of_deg (180. -. angle) }
 
+let get_angle { angle; _} = 180. -. (Gg.Float.deg_of_rad angle)
+
 let set_width p size =
   { p with size }
 
+let get_width { size; _} = size
+
 let (+) p1 p2 =
   { p1 with p = Gg.V2.(+) p1.p p2 }