From 77544bdfad2af41514ec1435f706fee87ea2969e Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 15:38:37 +0100 Subject: Added viz.js code --- viz.js/worker.ml | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 viz.js/worker.ml (limited to 'viz.js/worker.ml') diff --git a/viz.js/worker.ml b/viz.js/worker.ml new file mode 100755 index 0000000..c6ed6f5 --- /dev/null +++ b/viz.js/worker.ml @@ -0,0 +1,18 @@ +open Js_of_ocaml + +let () = + Worker.import_scripts + [ "viz.js" + ; "full.render.js" + ] + +let () = Worker.set_onmessage (fun content -> + let (viz: Process.viz Js.t Js.constr) + = Js.Unsafe.global##._Viz in + + let _ = Process.do_action (new%js viz) content in + () + + + ) + -- cgit v1.2.3