\version "2.18.2"

#(set! paper-alist (cons '("valmajour22" . (cons (* 222 mm) (* 302 mm))) paper-alist))
#(set-default-paper-size "valmajour22")

\paper {
  left-margin   = 16\mm
  right-margin = 16\mm
  top-margin    = 15\mm
  bottom-margin = 13\mm
  ragged-last-bottom = ##t
  ragged-bottom = ##f
  %max-systems-per-page = #3
  print-all-headers = ##t
  first-page-number = #2
  #(define fonts
    (set-global-fonts
    #:music "cadence"
    ))
}

\layout {
  \context {
    \Score
    \remove "Bar_number_engraver"
    %\consists "Span_bar_engraver"
    \remove "Mark_engraver"
    \remove "Metronome_mark_engraver"
    \override StaffGrouper #'staff-staff-spacing #'padding = #0.7
    \override StaffGrouper #'staff-staff-spacing #'basic-distance = #5
    \override StaffGrouper #'staffgroup-staff-spacing #'basic-distance = #8

  }
  \context {
    \Staff
    \consists "Bar_number_engraver"
    \consists "Mark_engraver"
    \consists "Metronome_mark_engraver"
    \consists "Laissez_vibrer_engraver"
  }  
}

galoubet = \relative c''{
  R2				| % 1
  R2\fermataMarkup		| % 2
  a8. g16 bes8. a16		| % 3
  c16-> c8 bes16 d8. c16	| % 4
  es16-> es8 d16 f16-> es8.	| % 5
  \grace { f16( fis } g4.) g8	| % 6
  bes16-> bes8 g16 es-> g,8.	| % 7
  \acciaccatura cis8 d4. f8	| % 8
  c8. bes16 \tuplet 3/2 { bes8 d f } | % 9
  a4. g8			| % 10
  bes16-> bes8 g16 es-> g,8.	| % 11
  \acciaccatura cis8( d4..) f16	| % 12
  c16-> bes8.~ bes4		| % 13
  bes16-> bes8 a16->~ a8. a16	| % 14
  c16-> c8 bes16->~ bes4	| % 15
  d16-> d8 c16->~ c8. c16	| % 16
  es2\fermata			| % 17
  g16-> d8 g16 d8 c		| % 18
  f16-> c8 f16 c8 bes		| % 19
}

pianoMD = \relative c''''{
  \tuplet 3/2 8 { r8 a16 f d bes a f d bes a f }		| % 1
  \clef bass
  << { < es, d' >4 } \\ { gis16->( a8.) } >>
  \clef treble
  << { f'4-\fermata } \\ {cis16-\markup \whiteout {"manque > ? - voir original"}( d8.) } >>	| % 2
  \clef bass
  < d, f a >4 < es g bes >					| % 3
  < f a c > < g bes d >						| % 4
  < f as c es > < g bes d f >					| % 5
  \clef treble
  << { es'!8. d16~ d4 } \\ { < g, b g' >2 } >>			| % 6
  << bes'2 \\ { < bes, es g >4 < bes es g > } >>		| % 7
  << g'2 \\ { < a, es' >4 <a es' > } >>				| % 8
  \clef bass
  < d, f a c > < d f a c >					| % 9
  << e'2 \\ { < g, a cis >4 < g a cis > } >>			| % 10
  \clef treble
  < bes d f bes > < b es! g >					| % 11
  << < d g! >2 \\ { gis,16-.->( gis8.-.) a4 } >>		| % 12
  \clef bass
  < d, a' d >2 \breathe						| % 13
  < es g bes >8. < d f a >16~ < d f a >4			| % 14
  < f a c >8. < es g bes >16~ < es g bes >4			| % 15
  < g bes d >8. <f as c >16~ < f as c >4			| % 16
  < eis gis b dis >2-\fermata					| % 17
  \clef treble
  << { < es' g > < des f > } \\ { bes4 a as g } >>		| % 18-19
  \clef bass
}

pianoMG = \relative c {
  \clef bass
  R2					| % 1
  << { r4 < f a > } \\ { f,2-\fermata } >>	| % 2
  < bes, f' >4 < c g'>			| % 3
  < d a' > < es bes' >			| % 4
  < f c' > < g d' >			| % 5
  < g d' f >2				| % 6
  < c, es' >				| % 7
  < f f' >				| % 8
  bes					| % 9
  a					| % 10
  < g f' >				| % 11
  < f c' >				| % 12
  < bes, bes' >	\breathe		| % 13
  < c g' >8. < bes f' >16~ < bes f' >4	| % 14
  < d a' >8. < c g' >16~ < c g' >4	| % 15
  < es bes' >8. < des as' >16~ < des as' >4	| % 16
  < cis b'>2-\fermata			| % 17
  < c es' >4 < f c' >			| % 18
  < bes, des' > < es bes' >		| % 19
  
}

global = {
  \key bes \major
  \time 2/4
  \tempo "Slow tempo" 4=60
  \set Timing.baseMoment = #(ly:make-moment 1/8)
  \set Timing.beatStructure = #'(1 1 1 1)
  
  s2
  
  \unset Timing.baseMoment 
  \unset Timing.beatStructure
  
  s2
  \bar "||"
  
  s2*35
}


% ----------------- Arlesien ----------------- %

\score {
  <<
    \new PianoStaff \with {
      instrumentName = \markup {
        \center-column { \smaller "Gal.-tamb."
                         \line { \tiny "en Ut"
                         }
        }
      }
      \accidentalStyle modern
      fontSize = #-4
      \override StaffSymbol #'staff-space = #(magstep -4)
    }
    <<
      \new Staff
      <<
        \galoubet
        \global
      >>
      \new Dynamics = "galoubetDYN" {
        %\galoubetDYN
      }      
      \new DrumStaff = "tambourin" \with {
        drumStyleTable = #percussion-style
        fontSize = #-4
        \override StaffSymbol.line-count = #1
      }
      <<
        \global
        %\tambourin
      >>
    >>

    \new PianoStaff \with {
      instrumentName = "Piano"
       \override InstrumentName #'after-line-breaking = ##f
      extraNatural = ##f
      %{
      \override InstrumentName.padding = #0.5
      \override InstrumentName.after-line-breaking = #(use-my-text 
                                                       '("6" "11" 
                                                          "17" "23" "29" "34"
                                                          "38" "42" "47" "53"
                                                          "58" "64" "70" "76"
                                                          "82" "87" "93" "100"
                                                          "107" "113" "121"
                                                          "127" "133" "139" "144"))
     
      %}
    \accidentalStyle piano
    }
    <<
      \set PianoStaff.connectArpeggios = ##t
      \new Staff = "MD"                
        <<
          \global
          \pianoMD
        >>
      \new Dynamics = "pianoDYN" {
        %\pianoDYN
      }
      \new Staff = "MG" \with {
        \remove "Metronome_mark_engraver"
        \remove "Mark_engraver"
        \remove "Bar_number_engraver"
      }
      <<
        \global         
        \pianoMG
      >>
      \new Dynamics = "pianoPED" {
        %\pianoPED
      }      
    >>
  >>
  
}