Permalink
Browse files

Added phantom fundamental back in.

  • Loading branch information...
1 parent 3f8f026 commit 2541de392ee739b74ffb68aec2d870e85e115fed @ctford committed Nov 16, 2012
Showing with 22 additions and 1 deletion.
  1. +22 −1 src/goldberg/variations/canone_alla_quarta.clj
@@ -67,6 +67,27 @@
(beep 300)
)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Psycho-acoustics ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(comment
+ (bell 600 10.0)
+ (bell 500 10.0 0.0)
+ (bell 400 10.0 0.0 0.0)
+)
+
+
+
+
+
+
+
+
+
+
+
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Equal temperament ;;
@@ -324,7 +345,7 @@
(sketch
:title "Time vs pitch"
:target :perm-frame
- :setup (fn [] (smooth) (frame-rate 20) (background 200))
+ :setup (fn [] (smooth) (frame-rate 20) (background 200))
:draw (fn []
(let [colours
(fnil {:leader [190 90 90]

0 comments on commit 2541de3

Please sign in to comment.