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