diff options
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 } |