From 0faaa5fda396f0eca6bebf69f3624a344278fa6e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 19 Dec 2020 19:59:17 +0100
Subject: First commit

---
 script.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'script.ml')

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 ->
 
-- 
cgit v1.2.3