%%%%%%%%%%%%% Entêtes %%%%%%%%%%%%%%%
\version "2.16.0"
%%%%%%%%% encodé par Daniel Bernair
\header {
   title = "Macbeth"
  subtitle = "Chorus of Scottish refugees"
}
%%%%%%%%%%%% mise en page %%%%%%%%%%%%%%%%%%%

\paper {
  #(set-paper-size "a4")
  top-margin = 1\cm
  bottom-margin = 1\cm
  after-title-space = 0\cm

 left-margin = 15\mm
   oddFooterMarkup = \markup {}
}
#(set-global-staff-size 15)
%%%%%%%mBreak = { \break }
mBreak = { }
\include "Scottish squel ex.ly"
\include "Scottish Soprano 1 ex vk.ly"
\include "Scottish Alto ex vk.ly"
\include "Scottish piano mdr ex vk.ly"
\include "Scottish piano mga ex vk.ly"
SopranoUn = {
  \global
  \autoBeamOff
  %\set Staff.instrumentName = "Soprano 1"
  %\set Staff.shortInstrumentName = "S1."
   \clef treble
  << \sopranoun  >>
}

staffIntrumentS = \new Staff \with {\RemoveEmptyStaves \override
VerticalAxisGroup #'remove-first = ##t}{
  \SopranoUn
}
Alto = {
  \global
  \autoBeamOff
  \set Staff.instrumentName = "Alti"
  \set Staff.shortInstrumentName = "A."
  \clef treble
  << \alto  >>
}



MainDroite = {
  \global
  \autoBeamOn
 % \set Staff.instrumentName = "" 
%  \set Staff.shortInstrumentName = "P."
  \clef treble
   <<  \maindroite  >>
  
}

MainGauche = {
  \global
  \autoBeamOn
  %\set Staff.instrumentName = ""
  %\set Staff.shortInstrumentName = ""
  \clef bass
   <<  \maingauche  >>
  
}

#(define my-instrument-equalizer-alist '())

#(set! my-instrument-equalizer-alist
  (append
    '(
      ("choir aahs" . (0.4 . 0.6))
      ("acoustic grand" . (0.4 . 0.6))
      ("violin" . (0.7 . 0.8))
      ("viola" . (0.7 . 0.8))
      ("trombone" . (0.7 . 0.8))
      ("bassoon" . (0.7. 0.8)))
    my-instrument-equalizer-alist))

#(define (my-instrument-equalizer s)
  (let ((entry (assoc s my-instrument-equalizer-alist)))
    (if entry
      (cdr entry))))


\score {
 
	<< %1
  	
  	 %%%%%%%\pointAndClickOff	 
  	  \new ChoirStaff = "choeur" << %2

  	\new Staff \with {midiInstrument = #"choir aahs" } << %3
        \new Voice = "sopun" \with { \consists "Ambitus_engraver"  }\staffIntrumentS \structpiano 
        
        \new Lyrics \lyricsto "sopun" {\SopUnParoles}
        >> %3
  	  	  
  	 	
  	   \new Staff \with {midiInstrument = #"choir aahs" } << %3
        \new Voice = "alt" \with { \consists "Ambitus_engraver"  }\Alto 
        \new Lyrics \lyricsto "alt" {\AltoParoles}
      >> %3

                  
        
   >> %2
          \new PianoStaff = "piano"  << %2
               
          \new Staff = "up" \with {midiInstrument = #"acoustic grand" } 
          << %3
             \new Voice = "MD"  \MainDroite \structpiano 
                           >> %3
             \new Staff = "down" \with {midiInstrument = #"acoustic grand" } << %3
               \new Voice = "MG" \MainGauche 
                 >> %3    
              >> %2
   >> %1
  
  \layout {  
   %%%%%% \context   { \RemoveEmptyStaffContext }
        
   % \context {\Staff \RemoveEmptyStaves
    % To use the setting globally, uncomment the following line:
    % \override VerticalAxisGroup #'remove-first = ##t}

     
   
  
   \context {
     \Score
      \override BarNumber #'padding = #3
      \override RehearsalMark #'padding = #2
      skipBars = ##t
    }
  }
  
  \midi {
   %{
  	  \context 
    {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 96 4)
      % midiMinimumVolume = #0.2
      % midiMaximumVolume = #0.9
}
  %}
  }
}