blob: 2d07895a4edcebd0e3fcc698ea990a57fe56b639 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
open Js_of_ocaml
module Path = Script_path
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
]
|
