add program change, control change; tweak tempo
[maximus:gulcii.git] / example / mars.gu
1 :load prelude
2 main = play (cons (event (program 0 48)) timpanis)
3 timpanis = append timpani timpanis
4 timpani = concatMap makeNote [20,20,20,60,60,30,30,60]
5 makeNote = \d ! note d 0 43 96