Skip to content

Instantly share code, notes, and snippets.

@ctford
Created June 5, 2012 19:59
Show Gist options
  • Save ctford/2877443 to your computer and use it in GitHub Desktop.
Save ctford/2877443 to your computer and use it in GitHub Desktop.
Row, row, row your boat!
(ns overtunes.songs.row-row-row-your-boat
(:use
[overtone.live]))
(definst harpsichord [freq 440]
(let [duration 1]
(*
(line:kr 1 1 duration FREE)
(pluck (* (white-noise) (env-gen (perc 0.001 5) :action FREE))
1 1 (/ 1 freq) (* duration 2) 0.25))))
(def melody
(let [pitches
[:C4 :C4 :C4 :D4 :E4
; Row, row, row your boat,
:E4 :D4 :E4 :F4 :G4
; Gently down the stream,
:C5 :C5 :C5 :G4 :G4 :G4 :E4 :E4 :E4 :C4 :C4 :C4
; Merrily, merrily, merrily, merrily,
:G4 :F4 :E4 :D4 :C4]
; Life is but a dream!
durations
[1 1 2/3 1/3 1
2/3 1/3 2/3 1/3 2
1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/3
2/3 1/3 2/3 1/3 2]
times (reductions + 0 durations)]
(map vector times pitches)))
(defn play [metro notes]
(let [play-note (fn [[beat pitch]] (at (metro beat) (-> pitch note midi->hz harpsichord)))]
(dorun (map play-note notes))))
(defn play-round [metro notes]
(let [after (fn [beats metro] (comp metro #(+ % beats)))]
(play metro notes)
(play (after 4 metro) notes)
(play (after 8 metro) notes)
(play (after 16 metro) notes)))
;(play (metronome 120) melody)
;(play-round (metronome 120) melody)
@daveray
Copy link

daveray commented Jun 5, 2012

times -> timings on line 23?

@ctford
Copy link
Author

ctford commented Jun 5, 2012

Yep. Thanks.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment