Play a special chime if video_impression increases by > 10%

samn · Jun 20, 2012 · 9f12b29 · 9f12b29
1 parent 25b693f
commit 9f12b29
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/videochime.clj b/src/videochime.clj
@@ -56,6 +56,15 @@
   of a counter"
   first)
 
+(defmethod chime :video_impression
+  [[event old new]]
+  (if (< (- new old) (* 0.1 old))
+    (noise/schedule-chime (noise/random-time) noise/chime 65)
+    (let [note 85
+          base (- noise/*chime-length* 1000)]
+      (doseq [x (range 3)] 
+        (noise/schedule-chime (+ base (* x 200)) noise/chime note)))))
+
 (defmethod chime :default
   [[event old new]]
   (let [pitch (match (compare old new)