blob: 3680c2a100796c06c489e8ce3e21c5005b570453 (
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
31
32
|
(include "lib.scm")
(define (music t)
(apply + (map (lambda (x)
(apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x))
'(
; opening notes
(2 2 0 .1)
(2 6 .1 .1)
(2 9 .2 .1)
(3 1 .3 1.2)
(2 0 2 .1)
(2 4 2.1 .1)
(2 7 2.2 .1)
(2 11 2.3 .6)
(1 10 3 .1)
(2 2 3.1 .1)
(2 5 3.2 .1)
(2 9 3.3 .6)
(1 7 4 .1)
(1 11 4.1 .1)
(2 2 4.2 .1)
(2 6 4.3 4.2)
; A melody
(2 6 9 2.5)
(2 7 11.5 .5)
(2 6 12 .5)
(2 2 12.5 .5)
(2 9 13 1)
))))
|
