gistfile1.clj

(ns mechanical-sympathiser.core
  (:require [mechanical-sympathiser.sound :as sound]
            [mechanical-sympathiser.system :as system]
            overtone.core)
  (:import (java.util Timer TimerTask)))

(def timer (new Timer))

(defn poll [period poll-fn]
  (let [task (proxy [TimerTask] []
               (run [] (poll-fn)))]
    (. timer (scheduleAtFixedRate task (long 0) (long period)))))

(defn cpus [period]
  (let [insts (for [cpu (system/cpus)] (sound/saw-inst))]
    (poll period #(cpus-poll insts))))

(defn cpus-poll [insts]
  (doseq [[inst cpu] (map vector insts (system/cpus))]
    (let [freq (+ 200 (* 50 (:cpu cpu)))
          volume (/ (:usr cpu) 100)]
    (overtone.core/ctl inst :freq freq :volume volume))))