diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-28 21:17:20 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-28 21:17:20 +0100 |
commit | 9d65e5e6a5bd8666baf0d7d3e0474c721cafc683 (patch) | |
tree | c391ced8768eca6e2f0c8292bab10fceeb48f2ee /path/point.ml | |
parent | ec812521b31471ce9ac3d9bdf1288b1569defbc8 (diff) |
Fixed width and angle sliddes
Diffstat (limited to 'path/point.ml')
-rwxr-xr-x | path/point.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/path/point.ml b/path/point.ml index 808310c..abb9515 100755 --- a/path/point.ml +++ b/path/point.ml @@ -10,10 +10,10 @@ let empty = ; angle = 0. } -let create x y = +let create ~angle ~width ~x ~y = { p = Gg.V2.v x y - ; size = 10. - ; angle = Float.neg Gg.Float.pi_div_4 + ; size = width + ; angle = Gg.Float.rad_of_deg (180. -. angle ) } let copy point p = |