summaryrefslogtreecommitdiff
path: root/script.it/worker_messages/worker_messages.ml
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
]