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

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