blob: 7efd3d3d825c557fc370ac3f6958e782db211489 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
open Js_of_ocaml
type to_worker = [
| `Complete of Outline.t
| `DeletePoint of (Path.Point.t * Outline.t)
(* Update the interior path *)
| `Back of Outline.t
(* Translate a path *)
| `TranslatePath of (Outline.t * Gg.v2)
| `TranslatePoint of (Path.Point.t * Outline.t)
]
type from_worker = [
| `Complete of Outline.t
| `Other of Js.js_string Js.t
]
|
