summaryrefslogtreecommitdiff
path: root/script.ml
diff options
context:
space:
mode:
Diffstat (limited to 'script.ml')
-rwxr-xr-xscript.ml6
1 files changed, 6 insertions, 0 deletions
diff --git a/script.ml b/script.ml
index f7db9d3..be7fe8e 100755
--- a/script.ml
+++ b/script.ml
@@ -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 ->