From 1aa90219e3e74bac3afbde0ec120e098b50bd0c5 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 11 Jan 2021 13:51:21 +0100 Subject: Interior curve evaluation --- script.it/worker.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'script.it/worker.ml') diff --git a/script.it/worker.ml b/script.it/worker.ml index 898df39..51fe49c 100755 --- a/script.it/worker.ml +++ b/script.it/worker.ml @@ -19,7 +19,7 @@ let execute (command: [> Worker_messages.to_worker]) = path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with path; back}) + post_message (`Complete {outline with path; back}) (* Remove the point from the main line, and reevaluate the whole path *) | `DeletePoint (point, outline) -> @@ -28,7 +28,7 @@ let execute (command: [> Worker_messages.to_worker]) = path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with path; back}) + post_message (`Complete {outline with path; back}) (* Only evaluate the interior *) | `Back outline -> @@ -36,7 +36,7 @@ let execute (command: [> Worker_messages.to_worker]) = outline.Outline.path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with back}) + post_message (`Complete {outline with back}) | _ -> post_message (`Other (Js.string "Unknown message received")) -- cgit v1.2.3