\version "2.14.2"

rochadeAlpha = {
\override Score.BreakAlignment #'break-align-orders =
  #(make-vector 3 '(left-edge 
          ambitus 
          breathing-sign
          staff-bar
          clef	
          key-cancellation   
          key-signature 
          time-signature 
          custos)) 
          
\once \override Score.TimeSignature #'space-alist = #'( 
			(first-note fixed-space . 2.0) 
			(right-edge extra-space . 0.5) 
			(staff-bar minimum-space . 2.5))
}

move = {
        \rochadeAlpha
        \once \override Score.BarLine #'extra-offset = #'(-1 . 0)
        \once \override Score.SpanBar #'X-offset = #'-1
        \once \override Score.Clef #'extra-offset = #'(-1 . 0)
        \once \override Score.KeyCancellation #'extra-offset = #'(-1 . 0)
        \once \override Score.KeySignature #'extra-offset = #'(-1 . 0)
        \once \override Score.TimeSignature #'extra-offset = #'(-1 . 0)
}  

onceTextLengthOn = {
        \once\override TextScript #'extra-spacing-width = #'(0 . 0)
        \once\override TextScript #'extra-spacing-height = #'(-inf.0 . +inf.0)
}

staffStop = {
        \onceTextLengthOn
        \stopStaff
        \cadenzaOn
}

staffStart = {
        \once\override Score.BarNumber #'break-visibility = #'#(#f #t #t)
        \startStaff
        \cadenzaOff
        \set Staff.forceClef = ##t
}

braceBar =
#(define-music-function (parser location braceExt)(number?)
  #{
      #(define ((braceBarLine markup) grob)
        (ly:stencil-combine-at-edge (ly:bar-line::print grob)
          X LEFT (grob-interpret-markup grob markup) 0.4 0))
       
      #(define braceMarkup
      (make-line-markup 
        (list
          (make-with-dimensions-markup '(0 . 0) '(0 . 0) 
            (make-translate-markup
            		(cons 0 (+ 0.2 (/ $braceExt -10)))
              (make-left-brace-markup (+ $braceExt 20)))))))
  
      \once\override Score.BarLine #'hair-thickness = #'1.6
      \once \override Staff.BarLine #'stencil = #(braceBarLine braceMarkup)
      \once \override Score.Clef #'(space-alist next-note) = #'(extra-space . 0) 
      \bar "|"
      \move
  #})

space = 
#(define-music-function (parser location width) (number?)
                #{
                   \staffStop
                   \onceTextLengthOn
                   s1*1/1000000-\markup \with-dimensions #(cons 0 $width) #'(0 . 0) \null
                   \once \override Score.Clef #'font-size = #'2
                   \staffStart
                #})
                
%--------------------------- Test ----------------------------------------------

\paper {
        ragged-right = ##f
}

one =   
  \relative c'' {
          \key f \major
          a1 b c d
          \bar ":|" 
%5     
          \space #8
          \braceBar #92
          \key d\major
          \time 2/2
          \grace s8	% trick to print the bar at correct position. TODO IN ALL VOICES !!
          \bar "|:"
          e4 e e e f4 f f f
          \bar ":|"
  }

two =   
  \relative c { 
%1
          \clef bass
          \key f\major
          a1 b c d
%5
          \space #8
          \clef treble
          \key d\major
          \grace s8	% trick to print the bar at correct position. TODO IN ALL VOICES !!
          b'1 c
  }
  
three =   
  \relative c, { 
%1
          \clef bass
          \key f\major
          a1 b c d
%5
          \space #8
          \key d\major
          \grace s8	% trick to print the bar at correct position. TODO IN ALL VOICES !!
          b1 c
  }

\score {
        %\new PianoStaff
        \new GrandStaff 
        <<
          \new Staff 
          << 
            \new Voice \one
          >>
             
          \new Staff \two
          \new Staff \three
        >>
        \layout { } 
}