Added phantom fundamental back in.

MarcoPolo · Nov 16, 2012 · 2541de3 · 2541de3
1 parent 3f8f026
commit 2541de3
Showing 1 changed file with 22 additions and 1 deletion.
diff --git a/src/goldberg/variations/canone_alla_quarta.clj b/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]