diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-19 19:59:17 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-19 19:59:17 +0100 |
commit | 0faaa5fda396f0eca6bebf69f3624a344278fa6e (patch) | |
tree | cbca5d2f306506c0896f83b8bdd45b777c78aa35 /script.ml | |
parent | e5c2a971644746818f8764481c60c4c5cf1a80c4 (diff) |
First commit
Diffstat (limited to 'script.ml')
-rwxr-xr-x | script.ml | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -45,6 +45,7 @@ let canva (* Mouse events *) let mouse = Brr_note_kit.Mouse.on_el + ~normalize:false (fun x y -> (x, y)) element in let click = @@ -198,11 +199,16 @@ let on_change canva mouse_position state = state.current in + let path = Point.get @@ Path_Builder.draw current in + stroke context path; + +(* let points, beziers = Path_Builder.get current in let path = draw_path area (points) beziers in stroke context path; +*) List.iter state.paths ~f:(fun path -> |