Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Tinkered with whitespace for presentation purposes.

  • Loading branch information...
commit 4bd604e7f130720f107a5ede9f37b53b57d1c7c3 1 parent eeb9784
@ctford authored
Showing with 26 additions and 9 deletions.
  1. +26 −9 src/goldberg/variations/canone_alla_quarta.clj
View
35 src/goldberg/variations/canone_alla_quarta.clj
@@ -21,10 +21,6 @@
-
-
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Sine waves ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -44,11 +40,18 @@
;(beep)
;(stop)
-; harmonics
+
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Harmonics ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
(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 ]
+ ;[ 1 2 3 4.2 5.4 6.8] ; more realistic timbre
proportions [h0 h1 h2 h3 h4 h5]
proportional-partial
(fn [harmonic proportion]
@@ -63,6 +66,7 @@
;(bell)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Psycho-acoustics ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -86,8 +90,6 @@
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Equal temperament ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -101,6 +103,20 @@
(defn ding! [midi] (bell (midi->hz midi) 3))
+
+
+
+
+
+
+
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Musical events ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
(defn note [timing pitch] {:time timing :pitch pitch})
(defn where [k f notes] (->> notes (map #(update-in % [k] f))))
(defn arrange [part notes] (where :part (constantly part) notes))
@@ -119,6 +135,7 @@
;(even-melody (range 70 81))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scale ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

0 comments on commit 4bd604e

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