%...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....

\version "2.18.2"
\language "english"

\header {
  title = "Prélude"
  composer = "Frederic Chopin (1810-1849)"
  opus = "Op 28, No 11"
  date = "1837"
  style = "Romantic"
  source = "CFEO, http://www.chopinonline.ac.uk/cfeo/browse/pageview/71901/"
  
  maintainer = "Knute Snortum"
  maintainerEmail = "knute (at) snortum (dot) net"
  license = "Creative Commons Attribution-ShareAlike 4.0"
  
  mutopiatitle = "Prélude 11"
  mutopiaopus = "Op 28, No 11"
  mutopiacomposer = "ChopinFF"
  mutopiainstrument = "Piano"

 footer = "Mutopia-2017/02/15-2172"
 copyright = \markup {\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0) \right-column {\with-url #"http://www.MutopiaProject.org" {\abs-fontsize #9  "Mutopia " \concat {\abs-fontsize #12 \with-color #white \char ##x01C0 \abs-fontsize #9 "Project "}}}\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0 ) \center-column {\abs-fontsize #11.9 \with-color #grey \bold {\char ##x01C0 \char ##x01C0 }}\override #'(font-name . "DejaVu Sans,sans-serif") \override #'(baseline-skip . 0) \column { \abs-fontsize #8 \concat {"Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " \char ##x00A9 " 2017 " "by " \maintainer " " \char ##x2014 " " \footer}\concat {\concat {\abs-fontsize #8 { \with-url #"http://creativecommons.org/licenses/by-sa/4.0/" "Creative Commons Attribution ShareAlike 4.0 International License "\char ##x2014 " free to distribute, modify, and perform" }}\abs-fontsize #13 \with-color #white \char ##x01C0 }}}
 tagline = ##f
}

sd = \sustainOn 
su = \sustainOff 

staffUp   = \change Staff = "upper"
staffDown = \change Staff = "lower"

shapeSlurA = \shape #'((0 . 2) (0 . 3) (0 . 3) (0 . 0)) Slur

global = {
  \key b \major
  \time 6/8
  \accidentalStyle piano
}

rightHandUpper = \relative {
  \global
  \clef treble
  \tempo "Vivace."
  \oneVoice
  
  | fs''2. (
  | es8 fs gs fs e ds
  | <e, cs'>8 fs \acciaccatura { as } gs fs fs ds'
  | <e, cs'>8 fs \acciaccatura { as } gs fs fs ds'
  | <e, cs'>8 fs <ds b'> fs <b ds> fs
  | <b es>8 <fs fs'> <b gs'> <fs fs'> <b e> <fs ds'>
  
  \barNumberCheck 7
  | <e cs'>8 fs \acciaccatura { as } gs fs fs ds'
  | <e, cs'>8 fs \acciaccatura { as } gs fs fs ds'
  | <e, cs'>8 fs <ds b'> fs <b ds> fs
  | <b fs'>8 fs <as fss'> fss <b gs'> gs )
  
  \barNumberCheck 11
  | <ds' b'>8 ( b \acciaccatura { fs' } e ds b <gs' b>
  | <fs as>8 ds as \acciaccatura { cs } b as <ds fs> )
  \voiceOne
  | b2 b8 cs
  | ds2.
  
  \barNumberCheck 15
  \oneVoice
  | <e, cs'>8 ( [ fs \acciaccatura { gs16 as } gs8 ] fs fs ds'
  | <e, cs'>8 [ fs \acciaccatura { gs16 as } gs8 ] fs fs ds'
  | <e, cs'>8 fs <ds b'> fs <b ds> fs
  | <b es>8 <fs fs'> <b gs'> <fs fs'> <b e> <fs ds'>
  | <e cs'>8 [ fs \acciaccatura { gs16 as } gs8 ] fs fs ds'
  | <e, cs'>8 [ fs \acciaccatura { gs16 as } gs8 ] fs fs fs' )
  
  \barNumberCheck 21
  | fs2. (
  | es8 fs gs fs e ds
  | ds4. \voiceOne cs8 ds e
  | ds cs b ds cs b
  | <b ds,>2.
  | <fs ds>2.
  | ds2. )
  
  \bar "|."
}

rightHandLower = \relative {
  \global
  \clef treble
  \voiceTwo
  \mergeDifferentlyHeadedOn
  
  | s2. * 6
  
  \barNumberCheck 7
  | s2. * 4
  
  \barNumberCheck 11
  | s2.
  | s2.
  | \shapeSlurA b'8 ^( e, \acciaccatura { \stemUp gs } \stemDown fs e gs4
  | b8 ds, fs ds fs gs )
  
  \barNumberCheck 15
  | s2. * 6
  
  \barNumberCheck 21
  | s2. 
  | s2.
  | s4. fss4.
  | gs4. e4.
  | s2.
  | \voiceThree \staffDown \crossStaff { fs,2. 
  | <fs b>2. }                                      
}

rightHand = << 
  \new Voice { \rightHandUpper } 
  \new Voice { \rightHandLower } 
>>

leftHandNotes = \relative {
  \global
  \clef bass
  \oneVoice
  
  | R1 * 6/8
  | R1 * 6/8
  | as8 fs cs fs, cs' fs
  | as8 fs cs fs, cs' fs
  | b,8 fs' b, fs' ds b'
  | ds8 fs, b ds, fs b,
  
  \barNumberCheck 7
  | as'8 fs cs fs, cs' fs
  | as8 fs cs fs, cs' fs
  | b,8 fs' b, fs' ds b'
  | ds8 fs, cs' e, b' ds,
  
  \barNumberCheck 11
  | gs,8 ds' b' gs ds' b
  | ds,8 fs' as, fs ds' as
  | e,8 b'' b, gs' b e,
  | b8 es fs cs' b gs
  
  \barNumberCheck 15
  | as8 fs cs fs, cs' fs
  | as8 fs cs fs, cs' fs
  | b,,8 fs' b fs' ds b'
  | css8 ds e ds cs b
  | as8 [ r cs, ] fs, cs' fs
  | as8 fs cs fs, cs' fs
  
  \barNumberCheck 21
  | \acciaccatura { b,8 } <b fs' ds'>2.
  | R1 * 6/8
  | r4 r8 <ds as'>4. _(
  | <gs b>4. <fs as>
  | <b, fs'>2.
  \voiceFour
  | <b b,>4. <fs fs,>
  | <b b,>2. )
}

pedal = {
  | s2.
  | s2.
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s2. \sd
  | s4. s4 s8 \su
  
  \barNumberCheck 7
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s2.
  
  \barNumberCheck 11
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  
  \barNumberCheck 15
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s4. \sd s4 s8 \su
  | s2.
  | s2. \sd
  | s4. s4 s8 \su
  
  \barNumberCheck 21
  | s4. \sd s4 s8 \su
  | s2.
  | s2.
  | s4 -\tweak extra-offset #'(0 . 4) \sd 
    s8 -\tweak extra-offset #'(0 . 5.5) \su 
    s4 -\tweak extra-offset #'(0 . 5.5) \sd 
    s8 -\tweak extra-offset #'(0 . 6) \su
  | s2. -\tweak extra-offset #'(0 . 5) \sd
  | s2.
  | s4. s4 s8 \su
}

leftHand = << 
  \new Voice { \leftHandNotes } 
  \new Voice { \pedal } 
>>

dyn = {
  | s2. -\markup { \whiteout "Legato." }
  | s4. \> s4 s8 \!
  | s2.
  | s2.
  | s4. \< s4 s8 \!
  | s4. \> s4.
  
  \barNumberCheck 7
  | s4 s8 \! s4.
  | s2.
  | s2. \<
  | s4. s4 s8 \!
  
  \barNumberCheck 11
  | s2.
  | s2.
  | s4. \> s8 s4 \<
  | s4 s8 \! s4.
  
  \barNumberCheck 15
  | s2. * 6
  
  \barNumberCheck 21
  | s2. \f \>
  | s4. s4 s8 \!
  | s2.
  | s4. s4 \> s8 \!
}

#(set-global-staff-size 20)

\paper {
  ragged-last-bottom = ##f % False after editing is finished
  
  top-margin = 8\mm
  bottom-margin = 6\mm
  system-system-spacing.basic-distance = #19
  
  % #(set-paper-size "letter") % for testing only
}

\score {
  \new PianoStaff <<
    \set PianoStaff.instrumentName = #"XI"
    \new Staff = "upper" \rightHand
    \new Dynamics \dyn
    \new Staff = "lower" \leftHand
  >>
  \layout {
    \context {
      \Score
      \remove "Bar_number_engraver"
    }
    \context {
      \PianoStaff
      \consists #Span_stem_engraver
    }
  }
  \midi {
    \tempo 4. = 100
  }
}