blob: 1824ca1faaa824c6718d807593ef25d7d90481ac (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
(include "yue.scm")
; https://musiclab.chromeexperiments.com/Song-Maker/song/6021372552937472
(define (music t)
(apply + (map (lambda (x)
(apply (lambda (octave pitch start len) ((note (getfreq octave pitch) (/ start 2) (/ len 2)) t)) x))
'(
; opening notes
(1 11 0 .2)
(2 3 .2 .2)
(2 6 .4 .2)
(2 10 .6 2)
(1 9 3 .2)
(2 1 3.2 .2)
(2 4 3.4 .2)
(2 8 3.6 1)
(1 7 5 .2)
(1 11 5.2 .2)
(2 2 5.4 .2)
(2 6 5.6 1)
(1 4 7 .2)
(1 8 7.2 .2)
(1 11 7.4 .2)
(2 3 7.6 4.4)
; melody
(2 8 12 0.5)
(2 7 12.5 0.5)
(2 3 13 0.5)
(2 0 13.5 0.5)
(2 8 14 0.5)
(2 7 14.5 0.5)
(2 3 15 0.5)
(2 0 15.5 0.5)
(2 8 16 0.5)
(2 7 16.5 0.5)
(2 3 17 0.5)
(1 10 17.5 0.5)
(2 8 18 0.5)
(2 7 18.5 0.5)
(2 3 19 0.5)
(1 8 19.5 0.5)
(2 8 20 0.5)
(2 7 20.5 0.5)
(2 3 21 0.5)
(2 5 21.5 0.5)
(2 8 22 0.5)
(2 7 22.5 0.5)
(2 3 23 0.5)
(2 0 23.5 0.5)
(2 8 24 0.5)
(2 7 24.5 0.5)
(2 3 25 0.5)
(1 10 25.5 0.5)
(2 8 26 0.5)
(2 7 26.5 0.5)
(2 3 27 0.5)
(2 10 27.5 0.5)
(2 8 28 0.5)
(2 7 28.5 0.5)
(2 8 29 0.5)
(2 0 29.5 0.5)
(2 8 30 0.5)
(2 7 30.5 0.5)
(2 3 31 0.5)
(1 10 31.5 0.5)
(2 8 32 0.5)
(2 7 32.5 0.5)
(2 8 33 0.5)
(2 10 33.5 0.5)
(2 8 34 0.5)
(2 7 34.5 0.5)
(2 3 35 0.5)
(2 0 35.5 0.5)
))))
(play 6 100)
|
