Musical Phrase Example

extensions [ sound ]

globals [clock]

to beethoven
  set clock 0
  let i "ACOUSTIC GRAND PIANO"
  let v 50
  ;; da da da DUMMMM
  note i v 56 eighth
  note i v 56 eighth
  note i v 56 eighth
  note i v 53 half
  rest eighth
  ;; da da da DUMMMMMMMMMMM
  note i v 55 eighth
  note i v 55 eighth
  note i v 55 eighth
  note i v 52 whole
end 

;;; helpers

to note [instrument velocity pitch duration]
  sound:play-note-later clock instrument pitch velocity duration
  set clock clock + duration
end 

to rest [duration]
  set clock clock + duration
end 

to-report whole   report 240 / bpm end

to-report half    report 120 / bpm end

to-report quarter report  60 / bpm end

to-report eighth  report  30 / bpm end


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.