yue/music.scm

19 lines
439 B
Scheme

(include "lib.scm")
(define (melody t) (+
((note (getfreq 3 4) 0 1/4) t)
((note (getfreq 3 8) 1/4 1/4) t)
((note (getfreq 3 4) 3/4 1/4) t)
((note (getfreq 3 11) 1 1/4) t)
((note (getfreq 3 4) 5/4 1/4) t)
((note (getfreq 3 2) 3/2 1/4) t)
((note (getfreq 3 8) 7/4 1/4) t)
((note (getfreq 3 4) 9/4 1/4) t)
((note (getfreq 3 11) 5/2 1/4) t)
((note (getfreq 3 4) 11/4 1/4) t)
))
(define (music t) (
melody (floor-remainder t 3)
))