Skip to content
Browse files

Drop psycho-acoustics for time reasons. It's nice, but it's a detour.

  • Loading branch information...
1 parent 8edb3e6 commit b202ef03f7dc3fa0691bf06746735c1ede300b8d @ctford committed Nov 8, 2012
Showing with 2 additions and 24 deletions.
  1. +2 −24 src/goldberg/variations/canone_alla_quarta.clj
View
26 src/goldberg/variations/canone_alla_quarta.clj
@@ -50,8 +50,7 @@
(definst bell [frequency 440 duration 10
h0 1 h1 0.6 h2 0.4 h3 0.25 h4 0.2 h5 0.15]
- (let [harmonics [ 1 2 3 4 5 6 ]
- ;[ 1 2 3 4.2 5.4 6.8] ; more realistic timbre
+ (let [harmonics [ 1 2 3 4 5 6 ]
proportions [h0 h1 h2 h3 h4 h5]
proportional-partial
(fn [harmonic proportion]
@@ -67,28 +66,6 @@
;(beep 300)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Psycho-acoustics ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;(bell 600 10.0)
-;(bell 500 10.0 0.0)
-;(bell 400 10.0 0.0 0.0)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Equal temperament ;;
@@ -317,6 +294,7 @@
(adjust :pitch max-y min-y)))]
(sketch
+ :title "Time vs pitch"
:setup (fn [] (smooth) (frame-rate 6) (background 200))
:draw (fn []
(let [colours

0 comments on commit b202ef0

Please sign in to comment.
Something went wrong with that request. Please try again.