1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 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)