From: fred <fred>
Date: Mon, 12 Jul 1999 14:01:40 +0000 (+0000)
Subject: lilypond-1.1.57
X-Git-Tag: release/1.5.59~5783
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5a9f49ebf74682a788e41f7722cc1d1051cc745d;p=lilypond.git

lilypond-1.1.57
---

diff --git a/input/bugs/choral.ly b/input/bugs/choral.ly
new file mode 100644
index 0000000000..84a5d45011
--- /dev/null
+++ b/input/bugs/choral.ly
@@ -0,0 +1,241 @@
+
+% TODO:
+% Copyright, Header etc.
+% Begleitsatz
+% Tempo
+
+\include "deutsch.ly"
+
+global = \notes {
+	\time 2/2; \partial 2*1;
+	\key g;
+
+	s2 | s1 | s1 |
+	\time 3/2;
+	s1. | s1. |
+	\time 2/2;
+	s1 | s1 | s1 | s2
+
+	s2 | s1 | s1 |
+	\time 3/2;
+	s1. | s1. |
+	\time 2/2;
+	s1 | s1
+	\time 3/2;
+	s1. \bar "||";
+
+	s1. | s1. | s1. | s1. |
+	s1. | s1. | s1. | s1. \bar "||";
+
+	\key es;
+	s1. | s1. | s1. | s1. |
+	s1. | s1. | s1. | s1 \bar "||";
+
+	\key g;
+	s2 |
+	\time 2/2;
+	s1 | s1 |
+	\time 3/2;
+	s1. | s1. |
+	\time 2/2;
+	s1 | s1 | s1 | s2
+
+	s2 | s1 | s1 |
+	\time 3/2;
+	s1. | s1. |
+	\time 2/2;
+	s1 | s1 | s1 \bar "|.";
+}
+
+themeMelody = \notes \relative c'' {
+	g2 | g d' | h a |
+	g fis g | a ~ a \breathe b |
+	d b | a a | g ~ g ~ | g \breathe
+
+	g2 | g d' | h a |
+	g fis g | a ~ a \breathe b |
+	d b |
+}
+
+themeBeforeBreak1EndMelody = \notes \relative  c'' {
+	 a2 a | g ~ g ~ g4 r4
+}
+
+themeFinalEndMelody = \notes \relative  c'' {
+	 a2 a ~ | a1^\fermata
+}
+
+themeRightHand = \notes \relative c' {
+	d2 | c <e g> | <e g> <d fis> | d2 es es4 c4 |
+	<d1 e1> <d2 f2> | <g2 b2> f2 | <cis2 e2> <e2 g2> |
+	<d2 f2> <c4 f4> cis4 | <dis2 fis2>
+
+	<c2 e2> | <c e> <e g> | <e g> <d fis> | d2 es es4 c4 |
+	<d1 e1> <d2 f2> | <g2 b2> f2 |
+}
+
+themeBeforeBreak1EndRightHand = \notes \relative c' {
+	 <cis2 e2> <e2 g2> | <d2 f2> <c4 f4> cis4 <dis4 fis4> r4 |
+}
+
+themeFinalEndRightHand = \notes \relative c' {
+	 <cis2 e2> <e2 g2> | <d1 f1>
+}
+
+themeLeftHand =	\notes \relative c {
+	<d2 g h> | <f a h> <g c> | <g cis> c | <g2 {a4 c4}> <a2 c2> <g2 {b4 a4}> |
+	<a,1 fis'1 a1> <d2 g2 b2> | <g2 b2 e2> <f2 a2 d2> | <a2 h2> <a2 cis2> |
+	<g2 b2> a2 | h2
+
+	g2 | <g a> <g c> | <g cis> c | <g2 {a4 c4}> <a2 c2> <g2 {b4 a4}> |
+	<a,1 fis'1 a1> <d2 g2 b2> | <g2 b2 e2> <f2 a2 d2> |
+}
+
+themeBeforeBreak1EndLeftHand = \notes \relative c' {
+	 <a2 h2> <a2 cis2> | <g2 b2> a2 h4 r4 |
+}
+
+themeFinalEndLeftHand = \notes \relative c' {
+	 <a2 h2> <a2 cis2> | <g1 b1>
+}
+
+themePedal = \notes \relative c' {
+	g4 fis | f2 c | a' d, |
+	h c es | d ~ d b |
+	e, g | a a | d, f4 a | h2
+
+	c2 | e2 c | a' d, |
+	h c es | d ~ d b |
+	e, g |
+}
+
+themeBeforeBreak1EndPedal = \notes \relative c {
+	a2 a | d,2 f4 a h4 r4 |
+}
+
+themeFinalEndPedal = \notes \relative c {
+	a2 a | d,1_\fermata
+}
+
+break1Melody = \notes \relative c'' {
+	g4( fis e fis d' h | )a1. |
+	g4( es g b es g | <fis1. )a1.> |
+	b,2 g es | d1. |
+	b'2 g d' | a1 r2 |
+}
+
+break1RightHand = \notes \relative c' {
+	e1. | g4( fis e fis g fis |
+	)es1. | dis'2 d4 c b a \breathe |
+	s1. | s1. |
+	es1 <es2 g2> | <dis1 fis1 > r2 |
+}
+
+break1LeftHand = \notes \relative c {
+	<
+		\context Voice = oben {
+			\stemup
+			c'1. | d2. c4 h a | b1. | d1. |
+		}
+		\context Voice = unten {
+			\stemdown
+			<c,1. g'1.> | <d1. a'1.> | <es1. g1.> | d2. e4 fis d |
+		}
+	>
+	r4 b2( g4 b c | d c b g fis d |
+	<)es1 c'1> <c2 c'2> | <h1 h'1> r2 |
+}
+
+break2RightHand = \notes \relative c'' {
+	g8 r8 c,8 r8 <fis8 g8> r8 c r g' r c, r |
+	<fis8 g8> r  c r  b' r  es, r  <es g> r  es  r |
+	b' r es, r <es g> r es r d' r <d, g> r |
+	d' r f, r <f b> r f r d' r <fis, a> r |
+	d' r g, r <g b> r g r d' r g, r |
+	es' r g, r <g b> r g b es r <a, c> r |
+	d8 r b r d8 f d b a r <a cis> r |
+	<fis1 a d1> \breathe
+}
+
+break2LeftHand = \notes \relative c' {
+	r8 g r g r g r g r g r g |
+	r8 g r g r b r b r b r b |
+	r c r c r c r c r h r h |
+	r d r d r d r d r d r d |
+	r d r d r d r d r c r c |
+	r <b es> r <b es> r <b es> r <g es'> r f' r <a, f'> |
+	r <b f'> r <b f'> r <g f'> r <g f'> r <a e'> r <a e'> |
+	<d,1 d'1>
+}
+
+break2Pedal = \notes \relative c {
+	c2 c g' | es1 d2 | c1 h2 |
+	b1 d2 \breathe | g2 g f2 | es1 f2 |
+	b,2 g a | d1 \breathe
+}
+
+\score {
+	<
+		\context PianoStaff <
+			\context Staff = treble <
+				\global
+				\context Voice = melody {
+					\stemup \themeMelody \themeBeforeBreak1EndMelody
+					\break1Melody
+					\stemboth \break2RightHand
+					\stemup \themeMelody \themeFinalEndMelody
+				}
+				\context Voice = firstdown {
+					\stemdown \themeRightHand \themeBeforeBreak1EndRightHand
+					\break1RightHand
+					\notes {
+						s1. | s1. | s1. | s1. |
+						s1. | s1. | s1. | s1
+					}
+					\themeRightHand \themeFinalEndRightHand
+				}
+			>
+			\context Staff = bass <
+				\clef "bass";
+				\global
+				{
+					\themeLeftHand \themeBeforeBreak1EndLeftHand
+					\break1LeftHand
+					\break2LeftHand
+					\themeLeftHand \themeFinalEndLeftHand
+				}
+			>
+		>
+		\context Staff = pedal {
+			\clef "bass";
+			<
+				\global
+				{
+					\themePedal \themeBeforeBreak1EndPedal
+					\notes {
+						s1. | s1. | s1. | s1. |
+						s1. | s1. | s1. | s1. |
+					}
+					\break2Pedal
+					\themePedal \themeFinalEndPedal
+				}
+			>
+		}
+	>
+
+	\header {
+		title = "Choral I";
+		subtitle = "(über ``Aus meines Herzens Grunde'')";
+		composer = "Michael Krause 1999 (*1977)";
+		enteredby = "Michael Krause";
+		copyright = "dunno";
+	}
+
+	\paper {
+		linewidth = 18.0 \cm;
+		textheight = 28.0 \cm;
+
+		indent = 0.0 \mm;
+		\translator { \OrchestralScoreContext }
+	}
+}