20 lines
390 B
Scheme
20 lines
390 B
Scheme
(include "lib.scm")
|
|
|
|
(define (melody t) (
|
|
apply + (map
|
|
(lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t))
|
|
;'(3)
|
|
;(cons (* 3 (sin t)) '())
|
|
;'(0)
|
|
;'(6.28)
|
|
'(3 3 3 3 3 3 3 3 3 3)
|
|
'(4 8 4 11 4 2 8 4 11 4)
|
|
'(0 1/4 3/4 1 5/4 3/2 7/4 9/4 5/2 11/4)
|
|
'(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4)
|
|
)
|
|
))
|
|
|
|
(define (music t) (
|
|
melody (floor-remainder t 3)
|
|
))
|