19 lines
439 B
Scheme
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)
|
|
))
|