blob: 7934bda3408610d5b83ab4f98560a221536b4a4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(include "lib.scm")
(define (melody t) (
apply + (
map (lambda (x) (
apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x
)) '(
(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)
(3 3 31 1)
)
)
))
(define (music t) (
melody (* t 8)
))
|
