Communication with webworker

1 files changed, 6 insertions, 1 deletions

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