\version "2.16.2"
\include "english.ly"
\pointAndClickOff
#(set-global-staff-size 18)

\header {
  dedication = "A Madame la Comtesse DELPHINE POTOCKA"
  title = "Valse"
  subtitle = "`Minute Waltz'"
  composer = "Frederic Chopin (1810-1849)"
  opus = "Op.64, No.1"   
  %% instrument = "Pianoforte"
  %% piece = "\\textbf{\large Molto Vivace}"   
  meter = "A fond les manettes !"  
  %copyright =
  tagline = 
  \markup { \override #'(font-size . -6) 
            "Domaine Public @ edition: Magnus Lewis-Smith (version 1 sur Mutopia) & Jean-Michel Thiemonge (chiffrage d'accords) CC-by "}
  
  mutopiatitle = "Valse Op. 64, No. 1 ('Minute Waltz')"
  mutopiacomposer = "ChopinFF"
  mutopiaopus = "O64"
  mutopiainstrument = "Piano"
  date = "1847"
  source = "Edition Peters (http://www.sheetmusicarchive.net/)"
  style = "Classical"
  enteredby = "Magnus Lewis-Smith"   
}

\paper {
  #(set-paper-size "a4")
  bottom-margin = 2  
  markup-system-spacing #'basic-distance = #16
  system-system-spacing #'basic-distance = #19 
}


% Déplacement de la basse vers le bas dans les accords avec /bass
#(define (lower-extension pitch chbass)
   "Return markup lowered markup for pitch note name."
   (markup #:lower 1.7 #:fontsize 0 #:halign 0.2
     (note-name->markup pitch chbass )))

% Exception music is chords with markups
chExceptionMusic = {
  <c ef gf bf >1-\markup {m7\super b5}   % m7b5
}
% Convert music to list and prepend to existing exceptions
chExceptions = #( append
                  ( sequential-music-to-chord-exceptions chExceptionMusic #t)
                  ignatzekExceptions)



global = {  
  \key df \major
  \time 3/4
  \override Staff.Clef #'break-visibility = #all-invisible
  \override Staff.KeySignature #'break-visibility = #all-invisible
}

chordNames = \chordmode {
  \global
  \set chordNameExceptions = #chExceptions
  \set slashChordSeparator = \markup\fontsize#-1 \lower#0.7 \rotate#-15 {"/" }
  s2. s s s
  df2. s s s
  af:7 s s s
  df2. s s s
  af:7 s s s  
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df 
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df s
  af:7 s df s af:7 s
  df s
  af:7 s df df:/b f:m/c c
  f:1.5 s
  af:7 s df s af:7 s
  df s
  af:7 s f:m7.5-/b
  bf:7 ef:7 ef:m7 af:7 s
  s s s s s s s s
  df2. s s s
  af:7 s s s
  df2. s s s
  af:7 s s s  
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df 
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df   
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df 
  f2.:7/a bf:m af:7/c df
  gf:6 df:/af af:7 df  
}

melody = \relative c'' {
  \global
  af4->_\markup {\dynamic p \italic leggiero}
  g8
  af c bf 
  g af bf af c bf 
  g af c bf g af 
  c bf g af c bf 
  \bar"||"                           
  g \< af c bf g af \noBreak
  c bf g af c bf 
  g af c bf g af 
  bf c df ef f gf? \!                               
  bf4.\> af8[ gf f] 
  f ef ef\prall d ef4\! 
  bf'4.\> af8[ gf f] 
  f ef\prall d ef f bf,\!                               
  g af c bf g af 
  c bf g af c bf 
  g\< af c bf g af 
  bf c df ef f gf? \!                             
  bf4.\> af8[ gf f] 
  f ef ef\prall d ef4\! 
  bf'4. af8[ gf f] 
  ef\< f ef\prall d ef e\!                                
  \bar"|:"
  \times 2/3 { f8_\markup {  \italic cresc. poco}
               [ gf f] } e f af gf 
  f gf f e f bf |
  \times 2/3 { af[ bf af] } g af c bf 
  af bf af g af df |                               
  c\> bf af gf f ef 
  df c bf af gf f 
  ef df c\! ef\< bf' af  
  g af bf c df ef\!            
  \times 2/3 { f8[ gf? f] } e f af gf 
  f gf f e f\< bf |
  \times 2/3 { af[ bf af] } g af c bf 
  af bf\! af g af f' 
  ef\> df c bf af gf 
  f ef df c bf af \noBreak
  a c bf f gf c,\! 
  \set Score.repeatCommands = #'((volta "1"))
  { df4 r f' } \bar":|"
  \set Score.repeatCommands = #'((volta #f))
  \set Score.repeatCommands = #'((volta "2"))                      
  { df,4 r } % [mils] expect warning
  \set Score.repeatCommands = #'((volta #f))
  af'4~ |
  \bar"||"                        
  af2 _\markup {  \italic sustenuto} ef4 |
  af2 e4 |
  af2\< f4 |
  f'2 f4~\! |
  f2 bf,4 |
  f'2 c4 |
  ef2\> df4 |
  \times 3/4 { c ef df bf\! } |
  af2 ef4\< |
  af2 e4 |
  af2 f4 | \break
  f'2.^"      "\! |
  c4\mf\trill b c |
  af' bf, g' |
  a,\> gf'? af, |
  f' f, bf\! |
  \bar"||"                          
  af2_\markup {  \italic dolce} ef4 |
  \acciaccatura {
    af'8 } af,2 e4 | \break
  \acciaccatura {
    af'8 } af,2 f4 |
  \acciaccatura {af'8} f2 f4 | 
  \acciaccatura { af8 } f2 bf,4 |
  \acciaccatura { af'8 } f2 c4 |
  \acciaccatura { af'8 } ef4 df c |
  \acciaccatura { af'8 } ef4 df4. bf8 |
  \acciaccatura { af'8 } af,2 ef4 |
  \acciaccatura { af'8 } af,2 e4\< |    
  << { \acciaccatura { af'8  } af,2 f4 }\\{        
    \once \override MultiMeasureRest #'minimum-length = #15
    \once \override MultiMeasureRest #'stencil = ##f
    R2.       
  } >>    
  f'2.\! 
  f2\> bf,4 |
  ef2 bff4\! |
  ef af,\< d |
  f ef af |  
  af,2.\trill~\p |
  af2.\trill~ |
  af2.\<\trill~ |
  af2.\trill |
  g8 af c bf g af |
  c bf g af c bf |
  g af c bf g af | \noBreak
  c bf g af c bf |
  \bar"||"                    
  g\f af c bf g af |
  c bf g af c bf |
  g af c bf g af |
  bf c df ef f gf? |
  bf4.\> af8[ gf f] |
  f ef ef\prall d ef4\! |
  bf'4.\> af8[ gf f] |
  f ef\prall d ef f bf, 
  g\p af c bf g af |
  c bf g af c bf |
  g\< af c bf g af |
  bf c df ef f gf?\! |
  bf4.\> af8[ gf f] |
  f ef ef\prall d ef4\! |
  bf'4.\> af8[ gf f\!] |
  ef\< f ef\prall d ef e\! |
  \bar"||"                       
  \times 2/3 { f8_\markup {\italic cresc.}
               [ gf f] } e f af gf |
  f gf f e f bf |
  \times 2/3 { af[ bf af] } g af c bf |
  af bf af g af df |
  c\> bf af gf f ef |
  df c bf af gf f |
  ef df c\! ef\< bf' af |
  g af bf c df ef\! |
  \times 2/3 { f8[ gf f] } e f\< af gf |
  f gf f e f bf |
  \times 2/3 { af[ bf\! af] } g af c bf |
  af bf af g af f' |                            
  ef\> df c bf af gf |    
  f ef df c bf af |
  a c bf f gf c,\! |
  df4 r f'~\p |                            
  \times 2/3 { f8[ gf f] } e f af gf |
  f gf f e f\< bf |
  \times 2/3 { af[ bf af] } g af c bf |
  af bf af g af df\! |                
  c\> bf af gf f ef |
  df c bf af gf f |
  ef df c\! ef\< bf' af |
  g af bf c df ef\! |   
  \times 2/3 { f8_\markup {\italic cresc.}
               [ gf f] } e f af gf |
  f gf f e f bf |
  \times 2/3 { af[ bf af] } g af c bf |
  af[ bf af g af]  
  \ottava 1
  f''\>^> 
  \tiny
  \times 18/24 {
    ef8_\markup {\italic rit.} [ df c bf af gf f ef
    \ottava 0
    df c bf af gf f
    ef df c bf\! a! \< c bf f gf c,]
  } 
  \normalsize
  df2\f r4 
  \break 
  \bar"|."    
}

emptyStaff = \relative c' {
  \global
  s1*92
}

\score {  
  \new StaffGroup  \with {
    %{ distance entre les portées %}
    \override StaffGrouper #'staff-staff-spacing =
    #'((basic-distance . 0 )
       (minimum-distance . 10)
       (padding . 0)
       (stretchability . 0))    
  }
  
  << 
    \set StaffGroup.systemStartDelimiter = #'SystemStartBar  
    
    \new ChordNames \with {      
      chordNoteNamer = #lower-extension 
      \override ChordName #'font-name = #'"Purisa Bold" 
      \override ChordName #'font-size = #2
    } \chordNames    
    
    \new Staff = "upper" \with {   
      \remove "Slur_engraver"
      \override NoteHead #'font-size = #0.5      
    }  \melody
    
  >>
  
  \layout { indent = 0
            %ragged-last = ##t
            \context {
              \Score
              \override SystemStartBar #'collapse-height = #1               
              \remove "Bar_number_engraver"               
            }  
  }
  \midi {
    \tempo 4 = 300
  }
}