input/bugs/choral.ly

   1
   2 \include "deutsch.ly"
   3
   4 global = \notes {
   5         \time 2/2; \partial 2*1;
   6         \key g;
   7
   8         s2 | s1 | s1 |
   9         \time 3/2;
  10         s1. | s1. |
  11         \time 2/2;
  12         s1 | s1 | s1 | s2
  13
  14         s2 | s1 | s1 |
  15         \time 3/2;
  16         s1. | s1. |
  17         \time 2/2;
  18         s1 | s1
  19         \time 3/2;
  20         s1. \bar "||";
  21
  22         s1. | s1. | s1. | s1. |
  23         s1. | s1. | s1. | s1. \bar "||";
  24
  25         \key es;
  26         s1. | s1. | s1. | s1. |
  27         s1. | s1. | s1. | s1 \bar "||";
  28
  29         \key g;
  30         s2 |
  31         \time 2/2;
  32         s1 | s1 |
  33         \time 3/2;
  34         s1. | s1. |
  35         \time 2/2;
  36         s1 | s1 | s1 | s2
  37
  38         s2 | s1 | s1 |
  39         \time 3/2;
  40         s1. | s1. |
  41         \time 2/2;
  42         s1 | s1 | s1 \bar "|.";
  43 }
  44
  45 themeMelody = \notes \relative c'' {
  46         g2 | g d' | h a |
  47         g fis g | a ~ a \breathe b |
  48         d b | a a | g ~ g ~ | g \breathe
  49
  50         g2 | g d' | h a |
  51         g fis g | a ~ a \breathe b |
  52         d b |
  53 }
  54
  55 themeBeforeBreak1EndMelody = \notes \relative  c'' {
  56          a2 a | g ~ g ~ g4 r4
  57 }
  58
  59 themeFinalEndMelody = \notes \relative  c'' {
  60          a2 a ~ | a1^\fermata
  61 }
  62
  63 themeRightHand = \notes \relative c' {
  64         d2 | c <e g> | <e g> <d fis> | d2 es es4 c4 |
  65         <d1 e1> <d2 f2> | <g2 b2> f2 | <cis2 e2> <e2 g2> |
  66         <d2 f2> <c4 f4> cis4 | <dis2 fis2>
  67
  68         <c2 e2> | <c e> <e g> | <e g> <d fis> | d2 es es4 c4 |
  69         <d1 e1> <d2 f2> | <g2 b2> f2 |
  70 }
  71
  72 themeBeforeBreak1EndRightHand = \notes \relative c' {
  73          <cis2 e2> <e2 g2> | <d2 f2> <c4 f4> cis4 <dis4 fis4> r4 |
  74 }
  75
  76 themeFinalEndRightHand = \notes \relative c' {
  77          <cis2 e2> <e2 g2> | <d1 f1>
  78 }
  79
  80 themeLeftHand = \notes \relative c {
  81         < \context Voice = one { \stemup
  82                 h'2 | h c | cis c | a4 c c2 b4 a ~ | a1 \breathe
  83                 b2 | e d | h cis | b a | h \breathe
  84
  85                 g | a c | cis c | a4 c c2 b4 a ~ | a1 \breathe
  86                 b2 | e d |
  87           }
  88           \context Voice = two { \stemdown
  89                 <d,2 g> | <f a> g ~ | g c | g a g | <a,1 fis'>
  90                 <d2 g> | <g b> <f a> | a a | g a | h
  91
  92                 g | g g ~ | g c | g a g | <a,1 fis'>
  93                 <d2 g> | <g b> <f a> |
  94           }
  95         >
  96 }
  97
  98 themeBeforeBreak1EndLeftHand = \notes \relative c' {
  99          <a2 h2> <a2 cis2> | <g2 b2> a2 h4 r4 |
 100 }
 101
 102 themeFinalEndLeftHand = \notes \relative c' {
 103          <a2 h2> <a2 cis2> | <g1 b1>
 104 }
 105
 106 themePedal = \notes \relative c' {
 107         g4 fis | f2 c | a' d, |
 108         h c es | d ~ d \breathe b |
 109         e, g | a a | d, f4 a | h2 \breathe
 110
 111         c2 | e2 c | a' d, |
 112         h c es | d ~ d \breathe b |
 113         e, g |
 114 }
 115
 116 themeBeforeBreak1EndPedal = \notes \relative c {
 117         a2 a | d,2 f4 a h4 r4 |
 118 }
 119
 120 themeFinalEndPedal = \notes \relative c {
 121         a2 a | d,1_\fermata
 122 }
 123
 124 break1Melody = \notes \relative c'' {
 125         g4( fis e fis d' h | )a1. |
 126         g4( es g b es g | <fis1. )a1.> |
 127         b,2 g es | d1. |
 128         b'2 g d' | a1 r2 |
 129 }
 130
 131 break1RightHand = \notes \relative c' {
 132         e1. | g4( fis e fis g fis |
 133         )es1. | dis'2 d4 c b a \breathe |
 134         s1. | s1. |
 135         es1 <es2 g2> | <dis1 fis1 > r2 |
 136 }
 137
 138 break1LeftHand = \notes \relative c {
 139         <
 140                 \context Voice = oben {
 141                         \stemup
 142                         c'1. | d2. c4 h a | b1. | d1. |
 143                 }
 144                 \context Voice = unten {
 145                         \stemdown
 146                         <c,1. g'1.> | <d1. a'1.> | <es1. g1.> | d2. e4 fis d |
 147                 }
 148         >
 149         r4 b2( g4 b c | d c b g fis d |
 150         <)es1 c'1> <c2 c'2> | <h1 h'1> r2 |
 151 }
 152
 153 break2RightHand = \notes \relative c'' {
 154         g8 r8 c,8 r8 <fis8 g8> r8 c r g' r c, r |
 155         <fis8 g8> r  c r  b' r  es, r  <es g> r  es  r |
 156         b' r es, r <es g> r es r d' r <d, g> r |
 157         d' r f, r <f b> r f r d' r <fis, a> r |
 158         d' r g, r <g b> r g r d' r g, r |
 159         es' r g, r <g b> r g b es r <a, c> r |
 160         d8 r b r d8 f d b a4-. <a-. cis-.> |
 161         <fis1 a d1> \breathe
 162 }
 163
 164 break2LeftHand = \notes \relative c' {
 165         r8 g r g r g r g r g r g |
 166         r8 g r g r b r b r b r b |
 167         r c r c r c r c r h r h |
 168         r d r d r d r d r d r d |
 169         r d r d r d r d r c r c |
 170         r <b es> r <b es> r <b es> r <g es'> r f' r <a, f'> |
 171         r <b f'> r <b f'> r4 <g4-. f'-.> <a4-. e'-.> <a-. e'-.> |
 172         <d,1 d'1> \breathe
 173 }
 174
 175 break2Pedal = \notes \relative c {
 176         c2 c g' | es1 d2 | c1 h2 |
 177         b1 d2 \breathe | g2 g f2 | es1 f2 |
 178         b,2 g a | d1 \breathe
 179 }
 180
 181 \score {
 182         <
 183                 \context PianoStaff <
 184                         \property PianoStaff.instrument = "Manual"
 185                         \context Staff = treble <
 186                                 \global
 187                                 \context Voice = melody {
 188                                         \stemup \themeMelody \themeBeforeBreak1EndMelody
 189                                         \break1Melody
 190                                         \stemboth \break2RightHand
 191                                         \stemup \themeMelody \themeFinalEndMelody
 192                                 }
 193                                 \context Voice = righthand {
 194                                         \stemdown \themeRightHand \themeBeforeBreak1EndRightHand
 195                                         \break1RightHand
 196                                         \notes {
 197                                                 s1. | s1. | s1. | s1. |
 198                                                 s1. | s1. | s1. | s1
 199                                         }
 200                                         \themeRightHand \themeFinalEndRightHand
 201                                 }
 202                         >
 203                         \context Staff = bass <
 204                                 \clef "bass";
 205                                 \global
 206                                 \context Voice = lefthand {
 207                                         \themeLeftHand \themeBeforeBreak1EndLeftHand
 208                                         \break1LeftHand
 209                                         \break2LeftHand
 210                                         \themeLeftHand \themeFinalEndLeftHand
 211                                 }
 212                         >
 213                 >
 214                 \context Staff = pedal {
 215                         \property Staff.instrument = "Pedal"
 216                         \clef "bass";
 217                         <
 218                                 \global
 219                                 \context Voice = pedal {
 220                                         \themePedal \themeBeforeBreak1EndPedal
 221                                         \notes {
 222                                                 R1. R1. R1. R1. R1. R1. R1. R1.
 223                                         }
 224                                         \break2Pedal
 225                                         \themePedal \themeFinalEndPedal
 226                                 }
 227                         >
 228                 }
 229         >
 230
 231         \header {
 232                 tagline = "";
 233         }
 234
 235         \paper {
 236                 linewidth = 18.8 \cm;
 237                 textheight = 28.0 \cm;
 238
 239                 \translator { \OrchestralScoreContext }
 240 %               \translator { \StaffContext \consists "Staff_margin_engraver"; }
 241 %               \translator { \PianoStaffContext \consists "Staff_margin_engraver"; }
 242         }
 243 }