From fae31bdb659b4b14322136e045ea565d38bbd04f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Tue, 29 Dec 2020 21:41:47 +0100 Subject: Dynamic width --- path/point.ml | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'path/point.ml') 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 } -- cgit v1.2.3