From a8f37f041dce3f16917b6659d3ca97492f178f4d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 3 Jan 2021 05:42:35 +0100
Subject: Communication with webworker

---
 path/point.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'path/point.ml')

diff --git a/path/point.ml b/path/point.ml
index 06eb635..031e1e0 100755
--- a/path/point.ml
+++ b/path/point.ml
@@ -2,18 +2,21 @@ type t =
   { p: Gg.v2
   ; size : float
   ; angle: float
+  ; stamp : float
   }
 
 let empty =
   { p = Gg.V2.of_tuple (0., 0.)
   ; size = 0.
   ; angle = 0.
+  ; stamp = 0.
   }
 
-let create ~angle ~width ~x ~y =
+let create ~angle ~width ~stamp ~x ~y =
   { p = Gg.V2.v x y
   ; size = width
   ; angle = Gg.Float.rad_of_deg (180. -. angle )
+  ; stamp
   }
 
 let copy point p =
@@ -30,6 +33,8 @@ let (+) p1 p2 =
 
 let get_coord { p; _ } = p
 
+let get_stamp { stamp; _} = stamp
+
 let get_coord'
   : t -> Gg.v2
   = fun t ->
-- 
cgit v1.2.3