diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-11 13:51:21 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-11 13:55:43 +0100 |
| commit | 1aa90219e3e74bac3afbde0ec120e098b50bd0c5 (patch) | |
| tree | 50613ecc6f1984b9a9824fc347d064df38f33cf0 /script.it/worker.ml | |
| parent | 42c3c122c4f53dd68bcdd89411835887c3ae0af9 (diff) | |
Interior curve evaluation
Diffstat (limited to 'script.it/worker.ml')
| -rwxr-xr-x | script.it/worker.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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")) |