Added viz.js code

1 files changed, 0 insertions, 23 deletions

diff --git a/elements/input.ml b/elements/input.ml
deleted file mode 100755
index 6ae9aa8..0000000
--- a/elements/input.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-open Brr
-open Brr_note
-open Note
-
-(** Create a slider element, and a signal with the value *)
-let slider
-  : at:Brr.At.t list -> Brr.El.t * float S.t
-
-  = fun ~at ->
-    let slider =
-      El.input ~at () in
-
-    let init_value = (Jstr.to_float (El.prop El.Prop.value slider)) in
-
-    let event =
-      Evr.on_el
-        Ev.input (fun _ ->
-            let raw_value = El.prop El.Prop.value slider in
-            Jstr.to_float raw_value)
-        slider
-      |> S.hold init_value
-    in
-    slider, event