From 6ae97ecca8b4f38213f0f45aa6eaef944cd6b497 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 5 Jan 2021 21:43:08 +0100
Subject: Responsive sliders

---
 path/point.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'path/point.ml')

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 }
 
-- 
cgit v1.2.3