1 files changed, 0 insertions, 42 deletions
diff --git a/srv/src/http/static/viz/2/viz/dial.cljs b/srv/src/http/static/viz/2/viz/dial.cljs
deleted file mode 100644
index 46656e5..0000000
--- a/srv/src/http/static/viz/2/viz/dial.cljs
+++ /dev/null
@@ -1,42 +0,0 @@
-(ns viz.dial
-  (:require [quil.core :as q]))
-
-(defn new-dial []
-  {:val 0
-   :min -1
-   :max 1
-   })
-
-(defn- scale [v old-min old-max new-min new-max]
-  (+ new-min (* (- new-max new-min)
-                (/ (- v old-min) (- old-max old-min)))))
-
-(defn scaled [dial min max]
-  (let [new-val (scale (:val dial) (:min dial) (:max dial) min max)]
-    (assoc dial :min min :max max :val new-val)))
-
-(defn floored [dial at]
-  (if (< (:val dial) at)
-    (assoc dial :val at)
-    dial))
-
-(defn invert [dial]
-  (assoc dial :val (* -1 (:val dial))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-; plot is a sequence of [t val], where t is a normalized time value between 0
-; and 1, and val is the value the plot should become at that point.
-(defn new-plot [frame-rate period-seconds plot]
-  {:frame-rate frame-rate
-   :period period-seconds
-   :plot plot})
-
-(defn by-plot [dial plot curr-frame]
-  (let [dial-t (/ (mod (/ curr-frame (:frame-rate plot)) (:period plot)) (:period plot))
-        ]
-    (assoc dial :val
-           (reduce
-             (fn [curr-v [t v]] (if (<= t dial-t) v (reduced curr-v)))
-             0 (:plot plot)))
-    ))