From 0da46c8a33e7a9b61b564cce5c4c4526fe3d84dc Mon Sep 17 00:00:00 2001
From: Anthony Wang
Date: Thu, 16 Mar 2023 22:59:41 -0400
Subject: Clean up code and rename to yue

---
 blend.scm | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 blend.scm

(limited to 'blend.scm')

diff --git a/blend.scm b/blend.scm
new file mode 100644
index 0000000..1824ca1
--- /dev/null
+++ b/blend.scm
@@ -0,0 +1,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)
-- 
cgit v1.2.3-70-g09d2