From 30a8ea32a65730e76e41b65359b8c25d581c9392 Mon Sep 17 00:00:00 2001
From: Leni Aniva <v@leni.sh>
Date: Tue, 11 Feb 2025 23:25:24 -0800
Subject: [PATCH] Scarlet chamber and some extensions

---
 touhou/06-scarlet-chamber.ly             | 60 ++++++++++++++++++++++++
 touhou/06-seputte-for-a-dead-princess.ly | 26 ++++++++--
 2 files changed, 81 insertions(+), 5 deletions(-)
 create mode 100644 touhou/06-scarlet-chamber.ly

diff --git a/touhou/06-scarlet-chamber.ly b/touhou/06-scarlet-chamber.ly
new file mode 100644
index 0000000..77e2aa9
--- /dev/null
+++ b/touhou/06-scarlet-chamber.ly
@@ -0,0 +1,60 @@
+\version "2.24.0"
+\language "english"
+\header {
+	title = "紅楼　～ Eastern Dream"
+	subtitle = "東方紅魔郷　～ Embodiment of Scarlet Devil"
+	composer = "ZUN"
+	poet = "Transcribed by Leni Aniva"
+}
+violin = \new Staff \with {
+	instrumentName = "Violin"
+	shortInstrumentName = "V."
+	midiInstrument = "violin"
+}
+\fixed c'' {
+	\tempo 4 = 120
+	\time 4/4
+	\key g \minor
+
+	r2       g,4      bf,     | <g, d>2   c4 bf,      |
+	<f, a,>2 <d, g,>4 <c, f,> | <d, g,>2.\fermata  d16 f a bf |
+	d a g c g f bf, d g,4 bf, | <g, d>2   c4 bf,      |
+	a,2      f2               | <bf, d>1~             |
+	  2      d4       f       | <bf, g>2  f4 d4       |
+	<a, c>2   4       <a, f>  | <g, d>2   c4 bf,      |
+	<ef, g,>2 g,4     a,      | <g, bf,>2 bf,4 c      |
+	a,4      g,4      f,2     | <g, bf,>1\fermata |
+
+	\section
+
+	g,8 d a,16 bf, f, d, d,8 bf, a,16 bf, f, a, |
+	g,8 d a,16 bf, f, d, d,8 ef  d  bf,         |
+	<ef, g,>4 4 <c, f,>8. <f, a,>16~ 8 <g, bf,> |
+	2~                      8 ef d bf,          |
+	<ef, g,>4 4 <c, f,>8. c16~ 8 <d, bf,>~ |
+	4. <g, d>8~ 8 <g, ef> <g, d> <g, bf,>  |
+	<ef, g,>4 4 <c, f,>8. <f, a,>16~ 8 <d, bf,> |
+	4. <d, bf,>8~ 8 <f, c> <g, d> <a, f>   |
+	<bf, g>8. <d bf>16 8 <c a> <bf, g>8. <a, f>16 8 <bf, g>~ |
+	1 \fermata
+
+
+	\fine
+}
+\score {
+	\violin
+	\layout {
+		\context {
+			\Score
+			proportionalNotationDuration = #(ly:make-moment 1/4)
+			\override SpacingSpanner.uniform-stretching = ##t
+			\override SpacingSpanner.strict-grace-spacing = ##t
+		}
+	}
+}
+\score {
+	\unfoldRepeats {
+		\violin
+	}
+	\midi {  }
+}
diff --git a/touhou/06-seputte-for-a-dead-princess.ly b/touhou/06-seputte-for-a-dead-princess.ly
index 52271c3..43876da 100644
--- a/touhou/06-seputte-for-a-dead-princess.ly
+++ b/touhou/06-seputte-for-a-dead-princess.ly
@@ -16,16 +16,20 @@ violin = \new Staff \with {
 	\time 4/4
 	\key c \minor
 
-	r4 <ef, g,>-4-2 <g, ef>\downbow d8 f, | r4 <ef, g,> <g, ef> d8 f, |
-	r4 <ef, g,> <g, ef> d8 f, | r4 <ef, g,>4. <g, ef>4. |
-	r4 <ef, g,> <g, ef> d8 f, | r4 <ef, g,> <g, ef> d8 f, |
-	r4 <ef, g,> <g, ef> d8 f, | <ef, g,>2    r8 g, c d |
+	\repeat volta 2 {
+		r4 <ef, g,>-4-2 <g, ef>\downbow d8 f, | r4 <ef, g,> <g, ef> d8 f, |
+		r4 <ef, g,> <g, ef> d8 f, |
+		\alternative {
+		\volta 1 { r4 <ef, g,>4. <g, ef>4. | }
+		\volta 2 { <ef, g,>2    r8 g,\upbow c d  | }
+		}
+	}
 	ef4. f8 d4.    ef8 | c2    r8 g, c d  |
 	ef4. f8 d4.    bf8 | g2    r8 g bf c' |
 	f4    4 r8 f af bf | ef4 4 r8 c c d   |
 	ef4. f8 d4.    b,8 | c2    d          |
 	ef2     r8 d16 ef d bf, g, af, | a,1  |
-	r4 c,16(d, ef, g,) r4 c,16(d, ef, af,) | r4 c,16(d, ef, a,) r4 c,16(d, ef, af,) |
+	r4 c,16-1(d, ef, g,) r4 c,16(d, ef, af,) | r4 c,16(d, ef, a,) r4 c,16(d, ef, af,) |
 	r4 c,16(d, ef, g,) r4 c,16(d, ef, af,) | r4 c,16(d, ef, a,) r4 c,16(d, ef, af,) |
 	ef2 r8 d16( c bf, af, g, f,) |
 
@@ -51,6 +55,18 @@ violin = \new Staff \with {
 	<bf, gf>8. <af, f>16~ 8 <gf, ef> <af, f>8. <d gf>8~ 16 <f af>8 |
 	<d bf>4 r8 8~ 4 8 8
 
+	r2. \key g \minor <d, g,>8 <bf, d> |
+	\repeat volta 2 {
+		<a, c>4. <g, bf,>8 <f, a,>8. <d, f,>16~ 8 <ef, g,>8~ | 2. 8 <bf, d>8 |
+		<a, c>4. <g, bf,>8 <f, a,>8. <c  f >16~ 8 <bf, d >8~ | 2. <d, g,>8 <bf, d> |
+		<a, c>4. <g, bf,>8 <f, a,>8. <d, f,>16~ 8 <ef, g,>8~ | 2. 8 <f, a,>8 |
+		<g, bf,>8 <f, a,> <d, f,>8 <d, g,>8~ 2 |
+		\alternative {
+		\volta 1 { <bf, d>2. <d, g,>8 <bf, d> }
+		\volta 2 { <bf, d>2 g,16 bf, c d a,8 f,16 g, }
+		}
+	}
+
 	\fine
 }
 \score {