[SSAO] Use slider from UI.Primitives

Author: hyazinthh

src/SSAO/Util.fs

@@ -32,37 +32,4 @@ module Utilities =
             (fun _ msg -> mapping msg)
             (fun _ _ -> Seq.empty)
             []
-            app
-
-    let semuirange =
-        [
-            { kind = ReferenceKind.Script; url = "https://cdn.jsdelivr.net/npm/semantic-ui-range@1.0.1/range.js"; name = "semui-range"}
-            { kind = ReferenceKind.Stylesheet; url = "https://cdn.jsdelivr.net/npm/semantic-ui-range@1.0.1/range.css"; name = "semui-range"}
-        ]
-
-    let private newId =
-        let mutable curr = 0
-        fun () ->
-            inc &curr
-            curr
-
-    let slider (att : list<string * AttributeValue<'msg>>) (min : float) (max : float) (step : float) (value : aval<float>) (onChange : float -> 'msg) =
-        
-        let channelName = sprintf "channel%d" (newId())
-        
-        let boot = 
-            String.concat ";" [
-                sprintf "$('#__ID__').range({ min: %f, max: %f, step: %f, start: %f, onChange: function(value, meta) { if(meta.triggeredByUser) aardvark.processEvent('__ID__', 'onchange', value); } });" min max step (AVal.force value)
-                sprintf "%s.onmessage = function(value) {$('#__ID__').range('set value', value); };" channelName
-            ]
-            
-        let changeAtt = 
-            onEvent "onchange" [] (fun vs ->
-                System.Double.Parse(List.head vs, System.Globalization.CultureInfo.InvariantCulture) |> onChange
-            )
-            
-        require semuirange (
-            onBoot' [channelName, AVal.channel value] boot (div (changeAtt :: att) [])
-        )
-
-
+            app