2022-12-18 00:37:07 +00:00
|
|
|
(include "lib.scm")
|
|
|
|
|
2023-01-07 01:25:27 +00:00
|
|
|
(define (melody t)
|
|
|
|
(apply + (map (lambda (x)
|
|
|
|
(apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x))
|
|
|
|
'(
|
2023-01-07 01:09:14 +00:00
|
|
|
(2 5 1 1)
|
|
|
|
(2 8 4 1)
|
|
|
|
(3 5 7 1)
|
|
|
|
(3 0 9 1)
|
|
|
|
(2 10 10 1)
|
|
|
|
(2 8 12 1)
|
|
|
|
(2 7 15 1)
|
|
|
|
(2 8 17 1)
|
|
|
|
(2 7 18 1)
|
|
|
|
(3 3 19 1)
|
|
|
|
(2 8 21 1)
|
|
|
|
(3 0 22 1)
|
|
|
|
(3 3 23 1)
|
|
|
|
(3 5 25 1)
|
|
|
|
(3 0 30 1)
|
2023-01-07 01:25:27 +00:00
|
|
|
(3 3 31 1)))))
|
2022-12-18 00:37:07 +00:00
|
|
|
|
2023-01-07 01:25:27 +00:00
|
|
|
(define (music t)
|
|
|
|
(melody (* t 8)))
|