diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-29 21:41:47 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-29 21:41:47 +0100 |
commit | fae31bdb659b4b14322136e045ea565d38bbd04f (patch) | |
tree | b08636d488b85e0532e84135f39da33f5e47af91 /path/point.ml | |
parent | 9d65e5e6a5bd8666baf0d7d3e0474c721cafc683 (diff) |
Dynamic width
Diffstat (limited to 'path/point.ml')
-rwxr-xr-x | path/point.ml | 6 |
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 } |