From 21c386fee208adb7b494d2677d9f49ed49a1c1ce Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 7 Jan 2021 14:20:54 +0100
Subject: Local point configuration

---
 script.it/script.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'script.it/script.ml')

diff --git a/script.it/script.ml b/script.it/script.ml
index e91dc92..fc64d1e 100755
--- a/script.it/script.ml
+++ b/script.it/script.ml
@@ -281,7 +281,11 @@ let on_change canva mouse_position timer state =
         ~h:10.
         context;
 
-
+      Cd2d.stroke_text
+        context
+        (Jstr.of_float @@ Path.Point.get_stamp point)
+        ~x:(x +. 15.)
+        ~y;
 
     | _ -> ()
   in
-- 
cgit v1.2.3