Skip to content

Instantly share code, notes, and snippets.

@rosejn

rosejn/gist:1016751

Created June 9, 2011 13:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rosejn/1016751 to your computer and use it in GitHub Desktop.
Save rosejn/1016751 to your computer and use it in GitHub Desktop.
Download ZIP
tone-rich gui
Raw
gistfile1.clj
(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)
(fader :bass-release 0.1 :x 200 :y 15)
(dial :double-delay 0 :x 240 :y 10)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment