\version "2.20.0"
                             %                 "PRELUDE Op28 No4"
                             %                 by Frederic Chopin
                             %
                             %
                             
\include "english.ly"
\header {
                                % LILYPOND HEADERS
    title = "Prelude"
    subtitle = "« Suffocation »"

    composer = \markup{"Frédéric" \smallCaps "Chopin" "(1810-1849)"}
    opus = "Op.28, No.4"
                                % MUTOPIA HEADERS
    mutopiatitle = "Prelude: Op. 28, No. 4 (« Suffocation »)"
    mutopiacomposer = "ChopinFF"
    mutopiaopus = "Op. 28"
    mutopiainstrument = "Piano"
    mutopiastyle = "Romantic"
    date = "1838/39"
    source = "Peters, 1879"
    style = "Classical"
    enteredby = "Magnus Lewis-Smith"
    maintainer = "Magnus Lewis-Smith"
    maintainerEmail = "mlewissmith@users.sourceforge.net"
    maintainerWeb = "http://magware.sourceforge.net/"
    lastupdated = "2016/10/18" %-------Javier Ruiz-Alma
    
    license = "Public Domain"
    
 %footer = "Mutopia-2016/10/28-468"
 %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 " "by " \maintainer " " \char ##x2014 " " \footer}\concat {\concat {\abs-fontsize #8 { "Placed in the " \with-url #"http://creativecommons.org/licenses/publicdomain" "public domain " "by the typesetter " \char ##x2014 " free to distribute, modify, and perform" }}\abs-fontsize #13 \with-color #white \char ##x01C0 }}}
 tagline = ##f
}

\paper {
    top-margin = 8\mm
    line-width = 18.5\cm
    top-markup-spacing.basic-distance = #6
    markup-system-spacing.basic-distance = #3
    top-system-spacing.basic-distance = #8
    last-bottom-spacing.padding = #1.5
    ragged-bottom = ##f
    ragged-last-bottom = ##f
}

%#(set-default-paper-size "letter")
#(set-global-staff-size 19)

barRest =  {\skip 2 |}

paperOFF = { \set Score.skipTypesetting = ##t }
paperON = { \set Score.skipTypesetting = ##f }

hidePP = \tweak #'stencil ##f \pp
ppWhiteOut = \markup { \whiteout { \dynamic "pp" } }

posBeamA = \once \override Beam.damping = #2

shpSlurA = \shape #'( ((0 . -0.3) (8 . 0.5) (0 . 1) (0 . 0))
                      ((0 . 0) (0 . 0) (-3 . -0.7) (0 . -0.7)) ) PhrasingSlur
shpSlurB = \shape #'((0 . 2.8) (0 . 1) (0 . -0.6) (0 . 0)) PhrasingSlur
shpSlurC = \shape #'( ((0.8 . 0) (0.8 . 0) (0 . 0) (0 . 0))
                      ((0 . -0.5) (0 . -0.5) (-1 . 1) (-0.5 . 2)) ) PhrasingSlur
shpSlurD = \shape #'( ((0.3 . 0) (3 . 1) (-3 . 1) (0 . 0))
                      ((0 . 0) (0 . 0.3) (0 . 0.8) (0 . -0.7)) ) PhrasingSlur

shpSlurE = \shape #'((0 . 1) (0 . 0.6) (0 . 0.5) (0 . 0)) PhrasingSlur

posScriptA = \once \override Script.extra-offset = #'(-3 . 0)
posScriptB = \once \override TextScript.extra-offset = #'(-1.8 . -2.6)
posAccidental = \once \override Staff.AccidentalPlacement #'right-padding = #1.5

playRH =  \relative c' {
    \clef treble
    \time 2/2
    \key e \minor

                                % 0
    \phrasingSlurUp
    \partial 4 \posBeamA \shpSlurA
    %\once\override HorizontalBracketText.text = "a"
    b8.^\markup{Mi mineur}-\tweak HorizontalBracketText.text "A" \startGroup\(\p b'16_\markup{ \italic \whiteout "espressivo"} |

                                % 1 - 4
    b2. <c-\balloonText #'(-0.5 . 1.5) \markup { "broderie" }>4 |
    b2. <c-\balloonText #'(-0.5 . 1.5) \markup { "broderie" }>4 |
    b2. <c-\balloonText #'(-0.5 . 3.5) \markup { "broderie" }>4 |
    b2. bf4 |

                                % 5 - 8
    a2. \stemUp b!4 |
    a2. <b-\balloonText #'(-0.5 . 1.5) \markup { "broderie" }>4 \stemNeutral |
    a2. b8. a16 |
    a2.\)
    \shpSlurB
    gs4->\(~ |

                                % 9 - 12
    <gs-\balloonText #'(-0.5 . 2.75) \markup { "retard" }>4 << {a8 <b-\balloonText #'(0 . 4.75) \markup { "double broderie" }>} \\
           {s32\< s s s s s s s\!} >> <d-\balloonText #'(-0.5 . 3.75) \markup { "" }>8\> c e, a\! |           %% double voice to give hairpin a nicer length
    fs2.\) a4( |
    fs2.) \acciaccatura b8 \shpSlurC a4_\( |
    g!8 fs\stopGroup
    %\once\override HorizontalBracketText.text = "a’"
    <c-\balloonText #'(-0.5 . -1) \markup { "appoggiature" }>\<^>-\tweak HorizontalBracketText.text "A’" \startGroup b ds fs\! \tuplet 3/2 {<d'-\balloonText #'(-0.5 . 3.5) \markup { "app" }>\> <c-\balloonText #'(0 . 4) \markup { "app" }> b\!} |

                                % 13 - 15
    \shpSlurD b2.\p\)\( c4 |
    b2. c4 |
    b2. <c-\balloonText #'(-0.5 . 4) \markup { "broderie" }>4 |
                                % 16 - 20
    << {  b8. <as-\balloonText #'(-0.5 . -2) \markup { "anticipation" }>16 as4 } \\
       { s16\< s s s s s\! s s } >> \posScriptA \posAccidental gss'4\turn\> fs8. e16\! |  %% double voice to give hairpin a nicer length
    %\once\override Staff.Hairpin.extra-offset = #'(0 . 2.5)
    e8\f\< ds c' ds,\! <ds-\balloonText #'(0.25 . 4.75) \markup { "appoggiature" }>\> e g b, |
    \stemUp
    d! c \tupletDown \tuplet 3/2 {e e, a\! } fs4._\markup{ \italic "dim." } a8 |
    \stemNeutral
    fs2.\p\) \acciaccatura b8 a4\( |
    fs2.~ fs8.\< e16\! |

                                % 21 - 23
    e2._\markup{\italic smorz.}\> fs4 |
    e2.\! <fs-\balloonText #'(-0.5 . 4.75) \markup { "broderie" }>4 |
    e2\)\stopGroup r\fermata |

                                % 24 - 25
    << { 
         \posScriptB \shpSlurE <e--\balloonText #'(-0.5 . 3.5) \markup { "retard" }>2^\(-\hidePP_\ppWhiteOut ds | e1\)\fermata
       } \\ {
         \change Staff = "lh" \stemUp
         \crossStaff { <fs, b e,-\balloonText #'(-0.5 . 2.75) \markup { "retard" }>2 <b ds, fs> } | <g b e,>1
    } >>
    \bar "|."
}


playLH =  \relative c' {
    \clef bass
    \time 2/2
    \key e \minor
                                % 0
    \partial 4 r4 |

                                % 1 - 4
    <g b e>8\sustainOn\(-\hidePP <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8\sustainOff <g b e>8 |
    <fs a e'-\balloonText #'(-0.5 . 1.75) \markup { "retard" }>\sustainOn <fs a e'-\balloonText #'(-0.5 . 1.75) \markup { "r" }> <fs a e'-\balloonText #'(-0.5 . 1.75) \markup { "r" }> <fs a e'-\balloonText #'(-0.5 . 1.75) \markup { "r" }>\sustainOff <fs a ef'>\sustainOn <fs a ef'> <fs a ef'> <fs a ef'>\sustainOff |
    <f a ef'-\balloonText #'(-0.5 . 1.75) \markup { "retard" }>\sustainOn <f a ef'-\balloonText #'(-0.5 . 1.75) \markup { "r" }> <f a ef'-\balloonText #'(-0.5 . 1.75) \markup { "r" }> <f a ef'-\balloonText #'(-0.5 . 1.75) \markup { "r" }>\sustainOff <f a d> <f a d> <f gs d'> <f gs d'> |
    <e gs d'>\sustainOn <e gs d'> <e gs d'> <e gs d'>\sustainOff <e g d'> <e g d'> <e g cs> <e g cs> |

                                % 5 - 8
    <e g c>\sustainOn <e g c> <e g c> <e g c>\sustainOff <e fs c'> <e fs c'> <e fs c'> <e fs c'> |
    <e fs c'>\sustainOn <e fs c'> <e fs c'> <e fs c'>\sustainOff <ds fs c'>\sustainOn <ds fs c'> <ds fs c'> <ds fs c'>\sustainOff |
    <d fs c'>\sustainOn <d fs c'> <d fs c'> <d fs c'> <d fs c'> <d fs c'> <d fs c'>\sustainOff <d fs c'> |
    <d f c'>\sustainOn <d f c'> <d f c'> <d f c'>\sustainOff <d f b> <d f b> <d f b> <d f b> |

                                % 9 - 12
    <c e b'-\balloonText #'(-0.5 . 0.25) \markup { "retard" }> <c e b'-\balloonText #'(-0.5 . 1.75) \markup { "r" }> <c e a> <c e a> <c e a> <c e a> <c e a> <c e a> |
    <b e-\balloonText #'(-0.5 . 3.75) \markup { "retard" } a> <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } a> <b ds a'> <b ds a'> <c e a>\sustainOn <c e a> <c e a> <c e a>\sustainOff |
    <b ds a'>\sustainOn <b ds a'> <b ds a'> <b ds a'>\sustainOff <c e a>\sustainOn <c e a> <c e a> <c e a>\sustainOff |
    <b ds a'>4\) r r2 |

                                % 13 - 16
    <g' b e>8\sustainOn\( <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8\sustainOff <g b e>8 |
    <fs a e'-\balloonText #'(-0.5 . 2.75) \markup { "retard" }>\sustainOn <fs a e'-\balloonText #'(0 . 0.5) \markup { "r" }> <fs a e'-\balloonText #'(0 . 0.5) \markup { "r" }> <fs a e'-\balloonText #'(0 . 0.5) \markup { "r" }>\sustainOff <f a ef'>\sustainOn <f a ef'> <f a ef'> <f a ef'>\sustainOff |
    <f af ef'> <f af ef'> <f af d> <f af d> <e gs d'>\sustainOn <e gs d'> <e gs d'> <e gs d'>\sustainOff |
    <e g d'> <e g d'> <e g cs> <e g cs> <cs e as> <cs e as> <c e a> <c e a> |

                                % 17 - 20
    <b, b'>\)\sustainOn <a'' c fs a>\( <a c fs a> <a c fs a>\sustainOff <g b ds-\balloonText #'(0 . 2.75) \markup { "double appoggiature" } fs-\balloonText #'(0.25 . 2.5) \markup { "" }> <g b e> <g b e> <g b e> |
    \override Staff.PianoPedalBracket.shorten-pair = #'(0 . -2.0)
    <a c e>[ <a c e>] a,\sustainOn <e' fs c'>\sustainOff <b e-\balloonText #'(-0.5 . 2.75) \markup { "retard" } b'> <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'> <c e a> <c e a> |
    \revert Staff.PianoPedalBracket.shorten-pair
    <b e-\balloonText #'(-0.5 . 2.75) \markup { "retard" } b'>\sustainOn <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'> <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'> <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'>\sustainOff <c e a> <c e a> <c e a> <c e a> |
    <b e-\balloonText #'(-0.5 . 2.75) \markup { "retard" } b'>\sustainOn <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'> <b e-\balloonText #'(-0.5 . 2.75) \markup { "r" } b'> <b e b'>\sustainOff <b ds b'>\sustainOn <b ds b'> <b ds a'> <b ds a'>\sustainOff |

                                % 21 - 23
    <c g'>\sustainOn <c g'> <c g'> <c g'> <c bf'> <c bf'> <c e a>\sustainOff <c e a> |
    <b e a-\balloonText #'(-0.25 . 0.5) \markup { "retard" }> <b e a-\balloonText #'(-0.25 . 0.5) \markup { "r" }> <b e gs> <b e gs> <b e g>\sustainOn <b e g> <b e g> <b e g>\sustainOff |
    <bf c g'>2\) r\fermata |

                                % 24 - 25
        \relative b,, { \stemDown <b! b'!>2_( <b b'fs> | <e, e'>1)_\fermata | }
        
}

superMarks =  {
    \partial 4 s4^\markup{ \center-align \bold\large \raise #1 "Largo" }  |
    \repeat unfold 15 { s1 }
    \set decrescendoText = \markup { \italic "stretto" }
    \set decrescendoSpanner = #'text
    s4 s8^\> s s2 |
    s4 s s s  |
    s s s\! s |
}


scoreAll =  {
    \new PianoStaff {
        \set PianoStaff.midiInstrument = "acoustic grand"
        <<
            \context Staff = "rh" {
%                \accidentalStyle modern
                \accidentalStyle modern-cautionary
                \override Staff.TextScript.staff-padding = #2
                \override Staff.DynamicLineSpanner.staff-padding = #3  % (forced-distance - 6) / 2
                \override Staff.Hairpin.minimum-length = #3
                <<
                    \playRH
                    \superMarks
                >>
            }
            \new FiguredBass {
              \figuremode {
                \bassFigureExtendersOn
                <_>4 <6>8 <6> <6> <6> <6> <6> <6> <6>
                \bassFigureExtendersOff
                \bassFigureExtendersOn
                <_> <_> <_> <_> <6\+> <6\+> <6\+> <6\+>
                \bassFigureExtendersOff
                \bassFigureExtendersOn
                <_> <_> <_> <_> <4 3> <4 3> <2\+> <2\+> <7 _\+>
                <7 _\+> <7 _\+> <7 _\+> <7 _!> <7 _!> <6\+ 5/> <6\+ 5/> <4 3 >
                <4 3> <4 3> <4 3> <2> <2> <2> <2> <2> <2> <2> <2> <7/> <7/>
                <7/> <7/> <7 _\+> <7 _\+> <7 _\+> <7 _\+> <7 _\+> <7 _\+>
                <7 _\+> <7 _\+> <7 _!> <7 _!> <7 _!> <7 _!> <6 5> <6 5>
                <4\+ 3> <4\+ 3> <7> <7> <6> <6> <6> <6> <6> <6> <7 5 4>
                <7 5 4> <7 5 _\+> <7 5 _\+> <4 3> <4 3> <4 3> <4 3> <7 _\+>
                <7 _\+> <7 _\+> <7 _\+> <4 3> <4 3> <4 3> <4 3> <7 6- _\+>
                <7 _\+> <7 _\+> <5 _+> <5 _+> <5 _+> <5 _+> <5 _+> <6> <6> <6>
                <6> <6> <6> <6> <6> <7 4 3> <7 4 3> <7 4 3> <7 4 3>
                <7- 4\! 3\!> <7- 4 3> <7- 4 3> <7- 4 3> <7- 4 3-> <7- 4 3->
                <7- 4 3-> <7- 4 3-> <7 _\+> <7 _\+> <7 _\+> <7 _\+> <7 _!>
                <7 _!> <6\+ 5> <6\+ 5> <7/> <7/> <6 5> <6 5> <4> <9 7 _\+>
                <9 7 _\+> <9 7 _\+> <7\! 6-> <6> <6> <6> <5 4 3> <5 3> <6 5\!>
                <6 5> <5\! 4> <5 4> <4\! 3> <4 3> <5 4\!> <5 4> <5 4> <5 4>
                <4\! 3> <4 3> <4 3> <4 3> <5 4\!> <5 4> <5 4> <5 4> <5 _+>
                <5 _+> <7 _\+> <7 _\+> <5> <5> <5> <5> <6+ 3> <6+ 3> <4 3\!>
                <4 3> <7 4\!> <7 4> <6+ 4> <6+ 4> <6 4> <6 4> <6 4> <6 4>
                <_>2 <_\!> <5 4> <5 3> <5\!>1
              }
            }
            \context Staff = "lh" {
%                \accidentalStyle modern
                \accidentalStyle modern-cautionary
                %\set Staff.pedalSustainStyle = #'bracket
                \set Staff.pedalSustainStyle = #'mixed
                \override Staff.PianoPedalBracket.shorten-pair = #'(0 . -1.0)
                \playLH
            }
            \new FiguredBass {
              \figuremode {
                \bassFigureExtendersOn
                <_>4 <I>8 <I> <I> <I> <I> <I> <I> <I> <V> <V> <V> <V> <V> <V>
                <V> <V> <"II/IV" "Zone"> <"II/IV"_"sous-dominante"> <"II/IV">
                <"II/IV"> <"II/IV"> <"II/IV"> <"VII/IV"> <"VII/IV">
                <"V/IV" "Zone"> <"V/IV"_"sous-dominante"> <"V/IV"> <"V/IV">
                <"V/IV"> <"V/IV"> <"Accord" "passage"> <"de"> <IV> <IV> <IV>
                <IV> <II "Syncope"> <II_"d’harmonie"> <II> <II> <II> <II>
                <II> <II> <VII> <VII> <VII> <VII> <VII↓> <VII↓> <VII↓> <VII↓>
                <VII↓> <VII↓> <VII↓> <VII↓> <"IV/IV" Zone>
                <"IV/IV"_"sous-dominante"> <"IV/IV"> <"IV/IV"> <"II/IV">
                <"II/IV"> <"VII/IV"> <"VII/IV"> <IV\!> <IV> <IV> <IV> <IV>
                <IV> <IV> <IV> <V> <V> <V> <V> <II> <II> <II> <II> <V> <V> <V>
                <V> <II> <II> <II> <II> <V DC> <V> <V> <V> <V> <V> <V> <V> <I>
                <I> <I> <I> <I> <I> <I> <I> <V> <V> <V> <V>
                \bassFigureExtendersOff
                <_> <_> <_> <_> <_> <_> <_> <_>
                \bassFigureExtendersOn
                <"V/IV"> <"V/IV"> <"V/IV"> <"V/IV"> <"VII/II"> <"VII/II">
                <"V/II"> <"V/II"> <"V/II"> <"V/II"> <II> <II> <V> <V> <V> <V>
                <I> <I> <I> <I> <IV> <IV> <II> <II> <V> <V> <II> <II>
                <V Pédale> <V_"de dominante"> <V> <V> <II Accord>
                <II broderie> <II> <II> <V> <V> <V> <V> <V> <V> <V> <V> <VI>
                <VI> <VI> <VI> <"V/V" "6A"> <"V/V"> <II> <II> <V> <V> <V> <V>
                <V> <V> <V> <V> <"V/V" CE >2 <_> <V> <_> <I CP>1
              }
            }
        >>
    }
}

\score
{  
    {
        \scoreAll
    }
    \layout {
      \context {
        \PianoStaff
        \consists #Span_stem_engraver
        \consists "Horizontal_bracket_engraver"
        \override HorizontalBracket.direction = #UP
        \consists "Balloon_engraver"
  }
    }
}