input/mutopia/R.Schumann/romanze-op28-2.ly

   1 % NOT FINISHED!!!!
   2
   3 \include "deutsch.ly"
   4
   5
   6 %% 19 is broken --hwn.
   7 %\include "paper19.ly"
   8 \version "1.7.6"
   9
  10 \header {
  11   title = "Romanzen"
  12   opus = "op. 28/2"
  13   composer = "R. Schumann (1810-1856)"
  14   % latexpackages="rotating"
  15   enteredby="Rune Zedeler"
  16   maintainer="rune@zedeler.dk"
  17   mutopiatitle = "Romanzen - op. 28/2"
  18   mutopiacomposer = "R. Schumann 1810-1856"
  19   mutopiainstrument = "Piano"
  20   style = "Romantic"
  21   copyright = "Public Domain"
  22 }
  23
  24 #(define note '((font-relative-size . -2) (rows (music "noteheads-2" ((kern . -0.1) "flags-stem")))))
  25 #(define eight-note `((font-relative-size . -2) (rows ,note ((kern . -0.03) (music ((raise . 2.5) "flags-u3"))))))
  26
  27
  28 u = { \translator Staff = up  \stemDown }
  29 m = { \translator Staff = mid  \stemUp  }
  30 d = { \translator Staff = down  \stemUp }
  31
  32 % forcedBreak should be \break, but first we have to reinstate paper19 or paper18
  33 forcedBreak = \notes { }
  34
  35 global = \notes { \key fis \major \time 6/8
  36   \property Score.beatLength = #(ly:make-moment 3 8)
  37   \repeat volta 2 { s2.*8 } s2.*26 \bar "|."
  38 }
  39
  40 righta = \notes \transpose c cis' {
  41  % \stemUp \slurUp \tieUp
  42  \stemUp
  43  \property Voice.Slur \override #'attachment = #'(stem . stem)
  44  \repeat volta 2 {
  45   \property Voice.TextScript \override #'extra-offset = #'(-8.0 . 2.5)
  46   \m  a,16-[^\p( \u c^\markup {
  47       \large { "Einfach ("
  48       \note #3 #0 #1
  49       " = 100)" } }
  50   a c -] \m  g,-[ \u c^3 -] \m  b,-[ \u c^2 b c-] \m  a,-[ \u )c^3-] |
  51   \property Voice.TextScript \revert #'extra-offset
  52   \m  f,-[( \u c f c-] \m  g,-[ \u c^4-] \m  a,-[ \u c^2 a c8  c16-)-] |
  53   \m  c16-[( \u f c' f-] \m  b,-[ \u f-] \m  d-[ \u f^3 d' f^2-] \m  c-[ \u  f-)^4-] |
  54   \m  f,16-[( \u c16^3 f c-] \m  g,-[ \u c^4-] \m  a,-[ \u c^2 a c8  c16-)-] |
  55   \m  a,-[( \u c a c-] \m  c-[ \u d c' d-] \m  b,-[ \u d-] \m  a,-[ \u  d-)^3-] |
  56   \m  g,-[( \u c^2 g c-] \m  b,-[ \u c b c-] \m  a,-[ \u c-] \m  g,-[ \u  cis-)^3-] |
  57   \m  f,-[( \u d^3 f d-] \m  g,-[ \u d g d-] \m  g,-[ \u c-] \m  a,-[ \u  a-)-] |
  58   \m  g,-[( \u c g c-] \m  f,-[ \u h,^2 g h,-] \m  e,-[ \u c^2 g  c-)-] |
  59  }
  60  \stemUp \slurUp \tieUp
  61  b4^5( <<a g>>8~<<a g>> a g^4 |
  62  f4^5 e8^5~e  d4-)^4 |
  63  as4^4( <<g f>>8~<<g f>> g^5 f^4 |
  64  es4^5 d8^5~d  c4-)^4 |
  65  c^4( es8^5~<<es as,_1>> d^3  f-) |
  66  e4^4( g8^5~<<g ces_4>> f^3  as-) |
  67  g4^4 b8^5~b a c'^5~ |
  68  c' b^4 ges^5 des^3 b,^5 \d  ges,16-[^4 f,] |
  69  e,^2^#'(large "ritard...") cis,^1 \u r8 r r4 r16 \d gis,^2^"R.H."-] |
  70
  71
  72  \forcedBreak
  73  \m  a,16-[^\p( \u c a c-] \m  g,-[ \u c^3-] \m  b,-[ \u c^2 b c-] \m  a,-[ \u  c-)^3 -]|
  74  \m  f,-[( \u c f c-] \m  g,-[ \u c^4-] \m  a,-[ \u c^2 a c8  c16-)-] |
  75  \m  c16-[( \u f c' f-] \m  b,-[ \u f-] \m  d-[ \u f^3 d' f^2-] \m  c-[ \u  f-)-]^4 |
  76  \m  f,-[( \u c^3 f c-] \m  g,-[ \u c^4-] \m  a,-[ \u c^2 a c8  cis16-)-] |
  77  \m  a,-[( \u d^2 a d-] \m  c-[ \u d c' d-] \m  b,-[ \u  d-)^3] r8 |
  78  \m  c16-[( \u f c' f-] \m  es-[ \u f es' f-] \m  d-[ \u  f-)^3-] \m  f-[( \u as^2-] |
  79   f'-[  as-)-] \m  f-[( \u as f'  as-)] r8^\fermata r16 e'^2( f' g' | \stemBoth \tieBoth
  80  as' des'^1 c'8^#'(finger "2-3") h~h  c'16-) \clef F  e,16-[(^2 f, g,] |
  81  \forcedBreak
  82
  83   as,-[^5 h,,^2-)-] \clef G [<<c a^3>>8-( <<c g^2>>16 c'] <<c es ges c'^5>>4.~
  84  <<c es ges c'>>8-) s4 s8 r16 h^2( c' d' |
  85  es' ges-1 f-2 a-1 c'-2 f'-4 \stemUp \tieUp e'-5 d' c' b-4 a^\prall^#'(finger "2-4-3") g |
  86   f-) f'-5( e'-5 d'-4 c'-3  f'-)-5 <<f^4 a^5>>4-( <<e^3 g^5>>8 |
  87  <<a, f^4>>4 <<g, e^3>>8 f16^4 d'^5~ d'8.-[ c'16^4] |
  88  \forcedBreak
  89  < f8-)^3 \context Voice = another { \m  a,16-[^\pp \u c8 c16] } > \m  g,-[ \u c_3-] \m  b,-[^#'(finger "2-1") \u c8 c16-] \m  a,-[ \u c]~ | \stemBoth
  90  c16 c8_4 c c16~c c8_2 c c16~ |
  91  c16 c8 c c16~c c8 c c16~ |
  92  c16 c8 c c16 r4^\fermata r8 | \bar "|."
  93
  94 }
  95
  96 rightb = \notes \transpose c cis' {
  97  \relative c { \stemDown \slurDown
  98   \repeat volta 2 {
  99    a4^1( g8^1 b4^1 a8^1 |
 100    f8..^1 f32^1 g8^2  a4.-)^1 |
 101    c4^1( b8 d4 c8 |
 102    f,8.. f32^1 g8^2  a4.-) |
 103    a4(^1 c8^1_\accent~c b^1 a^1 |
 104     g4-) b8^1_\accent(~b a^1 g^1 |
 105     f4-)^1 g8_\accent(~g g_. a_. |
 106    g4 f8~f  e4-) |
 107   }
 108  }
 109  \u \slurUp
 110  g16_4 d b, d g e cis g_4 f_3 d_1 e_2 b, |
 111  d_3 a,_2 f, a, cis_4 a, e, a, d a,8 g,16 |
 112  f_4 c as, c f d h, f_4 es_3 c_1 d_2 as, |
 113  c_3 g,_2 es, g, h,_4 g, d, g, c g,8 f,16 |
 114  c g, es, g, es c_3 as, c^2 d^3 c h, c |
 115  e des b,\< des g e_3 ces_4 d_2 f^3 d cis d |
 116  \property Voice.Slur \override #'extra-offset =  #'(0 . 3)
 117  \property Voice.Slur \override #'beautiful = #42
 118  g( fes des fes b g_3 \! es_1 ges_2 a^3 ges f_1 ges_2 |
 119  r ges_2 b des_1 ges b,_2 des ges,^1 b, \d des,^1 \stemDown \transpose c' c { b,-[_1 as,] |
 120  g,8  b,16-[ g, e, cis,]  d,-)_4 \< f, h, d_3 f_2 \! r16 }
 121  \property Voice.Slur \revert #'extra-offset
 122  \property Voice.Slur \revert #'beautiful
 123
 124  \translator Staff=mid
 125  \relative c { \stemDown \slurDown
 126   a4^1( g8^1 b4^1 a8^1 |
 127   f8..^1 f32^1 g8^2  a4.-)^1 |
 128   c4^1( b8 d4 c8 |
 129   f,8.. f32^1 g8^2  a4.-) |
 130   a4^1( c8^1_\accent~c b g16^1( b^2 |
 131    c4-)^1 es8^1~es d^1 f^1~ |
 132   \property PianoStaff.Arpeggio \override #'direction = #1
 133   f f8.. f32^1( as4.-)^\fermata-\arpeggio ~ |
 134   \property PianoStaff.Arpeggio \revert #'direction
 135   \stemUp \tieUp as r4 r8 |
 136  }
 137   s2. s
 138  \u s4. \grace {f8(}  f4-) e8 |
 139  f g16_2 b_1 a_2 gis_1 c_2 h, c cis_1 d_2 b,_1 |
 140  \tieDown c4.~<<f, c  >>16-\< \tieBoth <<f h>>~[<< f^3 h >>8-\> -\! << e b^2>> -\!] |
 141  \translator Staff=mid
 142  \transpose c' c {
 143   a4^1( g8^1 b4 a8^2 |
 144   f8..^1 f32^1 g8^2  a8..-)   \slurUp <<f f'^3>>32-( <<g g'^4>>8 |
 145   <<a a'^5>>8..-) <<f f'^3>>32-( <<g g'^4>>8 <<a a'^5 >>4.-\>-) ~ |
 146   a~ \! a^\fermata \bar "|."
 147  }
 148 }
 149
 150 lefta = \notes \transpose c cis {
 151  \stemUp \slurUp \tieUp
 152  \repeat volta 2 {
 153   f4^1( e8^1 g4^1 f8^1 |
 154   d8..^1 d32^2 e8^1  f4.-) |
 155   a4^1( g8 b4 a8 |
 156   d8..^1 d32^2 e8^1  f4.-) |
 157   fis4^1 a8^1^\accent(~a g^1 f^1 |
 158    e4-)^1 g8^1^\accent(~g f^1 e^1 |
 159    d4-)^1 f8^1^\accent(~f e^. dis^1^. |
 160   e4^1 d8^1~d  c4-)^1 |
 161  }
 162  \d \tieBoth \slurDown
 163  <
 164  \transpose c' c {
 165   g4 a8~a f g | a4 g8~g f e |
 166   d4 g8~g es f | g4 f8~f es d |
 167   c4 r8 f4 as8~ | as g b as4 ces'8~ |
 168   ces' b des' c'4 \context Voice=another { \stemUp \tieUp <<es' es>>8~ |
 169   es' des'4^1~ \stemDown  des'8.-[ c'16] }
 170  }
 171  \transpose c' c, {
 172   g4(-4 a8-3~a f-5 g-4 | a4-3 g8-#'(finger "4-3") ~g f-4 e-5 |
 173    d4-)-#'(finger "4-5")( g8-3~g es f-4 | g4-3 f8-4~f es d-4 |
 174    c4-) r8 f4-4( as8-5~ | as g-4  b-)-5 as4-5( ces'8-4~ |
 175   ces' b des'-4  c'4-)-5( <<es'-4 es''>>8 |
 176   \stemDown \tieDown  des'4.-)_5~des'~ |
 177   \property Voice.NoteColumn \override #'horizontal-shift = #-1 des' s
 178  }
 179  >
 180  \translator Staff=down \stemUp \slurUp \tieUp \phrasingSlurUp
 181  f4^1( e8^1 g4^1 f8^1 |
 182  d8..^1 d32^2 e8^1  f4.-) |
 183  a4^1( g8 b4 a8 |
 184  d8..^1 d32^2 e8^1  f4.-) |
 185  fis4 a8^\accent~a g s |
 186  a4 c'8^\accent(~c'  b-) d'^\accent~ |
 187  d' d'8..^\accent d'32-1 s4. |
 188  s2.*2
 189  s8 r16 h\( c' d' es' as g8-\arpeggio  fis-)(
 190  ges-)-\) f16-2( a-1 c'-3  f'-)-1 \grace {\stemDown \slurUp  b,-[-( f] \stemUp }  e'-)-1( d' c' b-1 a-2-\prall g
 191   f16-)-4 f' <<c' e'>> d'-1 c'-2 h-1 s4.
 192  s2.
 193  f4^1( e8 g4 f8 |
 194  d8..^1 d32-2 e8^1  f8..-) d32^2( e8^1 |
 195   f8..-) d32-2( e8^1  f4.-)^1 ~ |
 196  f~ f-\fermata |
 197 }
 198
 199 leftb = \notes \transpose c cis {
 200  \stemDown \slurDown \tieDown
 201  \repeat volta 2 {
 202   f16^\p c f, c e c-3 g c-2 f, c f c |
 203   d c f, c-3 e c f c f, c8 c16-3 |
 204   a16 c f, c g c-3 b c f, c a c |
 205   d c f, c-3 e c f c-2 f, c8 c16 |
 206   fis d-2 d, d  a-[ d] g, d g d f h,-3 |
 207   e c-2 c, c  g-[ c] f, c f c e a,-3 |
 208   d a, d, a,  f-[ g,-2] h,, g, e c, dis fis,-5 |
 209   e c g,-4 c d g,-2  c,-[ g, c g,] c,8 |
 210  }
 211
 212  s2.*9 |
 213
 214  f16^\p c c, c e c-3 g c-2 c, c f c |
 215  d c c, c-3 e c f c f, c8 c16-3 |
 216  a16 c f, c g c-3 b c f, c a c |
 217  d c f, c-3 e c f c-2 f, c8 cis16 |
 218  fis^1 d d, d  a-[ d_2] g, d g d_3  b,-[_5( g_2] |
 219   a-) c_3 f, c  c'-[ f_2] b, f b f_3 d' as |
 220  h, as d' as h, as( f'4.-)^\fermata-\arpeggio_2 ~
 221  \d \stemDown f'8. \clef G \stemBoth \tieBoth \transpose c c' { e16-[_4( f g]  as-[ des_3]  c8-[_4 <<h, d f d'>>]~ |
 222  <<h, d f d'>>} \clef F [<<c_3 f_1>>-( <<b,_4 e^2>>] <<a,_5 eis^1>>8.-) h,16_4( c d |
 223  \voiceTwo
 224  es as,_3 g,8 fis,~fis, g,_4-\arpeggio gis,_5~ |
 225  gis, <<a, c>>16 r16 r8 r4 cis8( |
 226   d-) e( f16_4 d_5  c4.-)_ #'(finger "4-3")~ |
 227  \oneVoice
 228  c16( h,_4 c_3 cis_1 d_2 b,_3 a,_4 as,_1 g,8  c,8-) |
 229  \translator Staff = down \stemDown \tieDown
 230  f16^\pp c f, c e c-3 g c-2 f, c f c |
 231  d c f, c-3 e c f c-2 f, c-3 e c |
 232  f c-2 f, c-3 e c ~ c c8 c c16 ~ |
 233  c c8 c c16 r4_\fermata r8 \bar "|." |
 234 }
 235
 236 \score { \notes
 237   \context PianoStaff <
 238     \pianoCautionaries
 239     \property PianoStaff.NoteCollision \override #'merge-differently-dotted = ##t
 240     \property PianoStaff.connectArpeggios = ##t
 241     \property PianoStaff.Arpeggio \override #'molecule-callback = \arpeggioBracket
 242
 243     \property PianoStaff.InstrumentName \set #'font-relative-size   = #3
 244     \property PianoStaff.InstrumentName \set #'font-shape   = #'italic
 245     \property PianoStaff.InstrumentName \set #'font-magnification   = #3
 246
 247     \property PianoStaff.instrument="2. "
 248     \context Staff = up {
 249       \property Staff.DynamicLineSpanner \override #'direction = #-1
 250       \clef G <\global \context Voice=upv \righta>
 251     }
 252     \context Staff = mid {
 253    % \property Staff.instrument="\\begin{turn}{-90}{Rechte Hand}\\end{turn}"
 254     \property Staff.instrument=#'(rows ((raise . -7.5) "") ((raise . 7.5) (lines "Rechte   " "Hand.")))
 255       \clef F <\global \context Voice=midv \rightb>
 256     }
 257       \context Staff = down {
 258         \property Staff.DynamicLineSpanner \override #'direction = #1
 259         \clef F
 260         < \global \context Voice=lva \lefta \context Voice=lvb \leftb >
 261     }
 262   >
 263   \paper {
 264     interscoreline = 0.0
 265     interscorelinefill = 1
 266     indent = 0.5 \in
 267     textheight = 27.0 \cm
 268     pagenumber = no
 269     \translator {
 270       \HaraKiriStaffContext
 271     }
 272     \translator {
 273       \ScoreContext
 274       SpacingSpanner \override #'common-shortest-duration = #(ly:make-moment 1 8)
 275     }
 276     \translator {
 277       \PianoStaffContext
 278       VerticalAlignment \override #'forced-distance = #12.0
 279     }
 280   }
 281   \midi { \tempo 8=100 }
 282 }
 283 %% new-chords-done %%