1 files changed, 42 insertions, 0 deletions
diff --git a/src/http/static/viz/2/viz/dial.cljs b/src/http/static/viz/2/viz/dial.cljs
new file mode 100644
index 0000000..46656e5
--- /dev/null
+++ b/src/http/static/viz/2/viz/dial.cljs
@@ -0,0 +1,42 @@
+(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)))
+    ))