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

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