Instantly share code, notes, and snippets.

View gist:2885724
(ns examples.rotating-spheres
(:use [quil.core]))
(defn rand-circle-coords []
(let [max-x (* 2 (width))
max-y (* 2 (height))
max-z 800]
[(random (- max-x) max-x) (random (- max-y) max-y) (random (- max-z) max-z)]))
(def circle-coords
View gist:1016751
(defn- tr-gui []
(-> (surface "Tone Reich" 300 200)
(fader :cutoff 579 :x 20 :y 15 :mul 2000)
(button :wave true :x 50 :y 85)
(fader :r 0.309 :x 80 :y 15)
(dial :attack 0.059 :x 120 :y 10)
(dial :decay 0.039 :x 120 :y 50 :mul 4)
(dial :sustain 0.269 :x 120 :y 90)
(dial :release 3.6 :x 120 :y 130 :mul 6)
(fader :bass-rate 0.38 :x 160 :y 15)
View getting-started.clj
(use 'overtone.sc)
(boot)
(hit) ; makes a test noise
(hit (now) "kick") ; hits the kick drum right now
(hit (+ (now) 1000) "kick") ; hits the kick drum in 1 second (1,000 ms)
(quit)