\version "2.19.32"

\include "thumbBracket.ily"
#(define thBr thumbBracket) 

global = {
    \override Staff.TimeSignature.stencil = ##f
    \time 2/4 
}
  
sopaltoAux = { 
  \oneVoice
  s2
  s4. r8
  s4. r8
  s4. r8
  s4. r8
}

sopMusic = \transpose c c' {
  s2
  s4 <a c'>8 s8 
  s4 <a c'>8 s8 
  s4 <a c'>8 s8 
  s4 <a c'>8 s8 
}

altoMusic = \transpose c c' {
  s2
  g16[ b16 g'16 e'16] \thBr "L" d8 s8
  g16[ b16 g'16 e'16] \thBr "L" e8 s8
  g16[ b16 g'16 e'16] \thBr "L" <d e>8 s8
  g16[ b16 g'16 e'16] \thBr "L1=" <d e>8 s8
}

tenorbassAux = { 
  \oneVoice                  
  s2
  r4 s16 <>^\markup \halign #1 \teeny \typewriter "\"L\" d8"      s16 r8
  r4 s16 <>^\markup \halign #1 \teeny \typewriter "\"L\" e8"      s16 r8
  r4 s16 <>^\markup \halign #1 \teeny \typewriter "\"L\" <de>8"   s16 r8
  r4 s16 <>^\markup \halign #1 \teeny \typewriter "\"L1=\" <de>8" s16 r8
}

tenorMusic = \transpose c c {
}

bassMusic = \transpose c c {
}


\score {
  \new PianoStaff <<
    \new Staff = "rh" 
    {            \global  << \sopMusic   \\ \altoMusic  \\  \sopaltoAux   >>}
    \new Staff = "lh" 
    { \clef bass \global  << \tenorMusic \\ \bassMusic  \\  \tenorbassAux >>}
  >>
  \layout {
  }
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{
%schemeIndentOn
#(define-markup-command (show-mus layout props mus) (ly:music?)
  (interpret-markup layout props
    
    #{ 
      %schemeIndentOff
      \markup  \score 
      {
        \new Staff \with { instrumentName = #"Violin " }
        {
          \override Staff.StaffSymbol.Y-extent = #(cons 6 6)
          \override Staff.TimeSignature.stencil = ##f
          \override TextScript.self-alignment-X  = 1
 %         \override TextScript.extra-spacing-width  = #(cons 9 0)
          \override TextScript.font-family  = #'typewriter
          \override TextScript.font-size  = -3
          \override TextScript.outside-staff-priority = ##f
          \override TextScript.Y-offset = -1
          \textLengthOn 
          

          #mus
        }
        \layout {
          indent = 0\in
          \context {
            \Staff
            \remove "Time_signature_engraver"
            \remove "Clef_engraver"
            \remove "Bar_engraver"
          \override InstrumentName.font-family  = #'typewriter
          \override InstrumentName.font-size  = -3
          }
          \context {
            \Score
            \remove "Bar_number_engraver"
          }
        }
      }
      %schemeIndentOn
    #}
    )
  )

#(define-markup-command (show-specmus layout props spec mus) (markup? ly:music?)
  (interpret-markup layout props
    
    #{ 
      %schemeIndentOff
      \markup  \raise #0.5 \score 
      {
        \new Staff \with { instrumentName = #(format #f "~34c~a~34c" spec) }
        {
%          \override Staff.StaffSymbol.Y-extent = #(cons -3 6)
          \override Staff.TimeSignature.stencil = ##f
          
          \hide \grace s1 \thBr #(format #f "~a" spec) 
          #mus
        }
        \layout {
          indent = 0\in
          \context {
            \Staff
            \remove "Time_signature_engraver"
            \remove "Clef_engraver"
            \remove "Bar_engraver"
          \override InstrumentName.font-family  = #'typewriter
          \override InstrumentName.font-size  = -3
          }
          \context {
            \Score
            \remove "Bar_number_engraver"
          }
        }
      }
      %schemeIndentOn
    #}
    )
  )



#(define-markup-command (show-thBr layout props spec chord) (markup? ly:music?)
  (interpret-markup layout props
    #{ \markup \show-mus ##{ \stopStaff
      <>^#(format #f "  ~34c~a~34c" spec)  \startStaff
      s4 \thBr #(format #f "~a" spec) #chord
    #} #}
    ))


#(define-markup-command (specStyle layout props spec) (markup?)
  (interpret-markup layout props
    #{ \markup \typewriter \fontsize #-3 #(format #f "~34c~a~34c" spec) #}
      ))
%
%schemeIndentOff

chordA = <d' f' c'' f''>4
chordB = <f' a' c''>4


%  \show-mus ##{ s4^"\\thBr  \"R\""  \thBr "R"  <e' g' b'>4 #}
%  \show-mus ##{ \clef bass s4^"\\thBr  \"L\""  \thBr "L"  <e' g' b'>4 #}
  
\markup \vspace #1 
\markup "The first digit just lengthens the stem:"
\markup { \hspace #3 
  \show-specmus "L"  #chordA \hspace #4 
  \show-specmus "L2" #chordA \hspace #4 
  \show-specmus "L6" #chordA \hspace #4 
  \show-specmus "L9" #chordA \hspace #4 
}
\markup \vspace #0.2 
\markup "The second digit moves the bracket tip further into the chord:"
\markup { \hspace #3 
  \show-specmus "L"   #chordA \hspace #3 
  \show-specmus "L02" #chordA \hspace #3 
  \show-specmus "L06" #chordA \hspace #3 
  \show-specmus "L09" #chordA \hspace #3 
}
\markup \vspace #1 
\markup "When these two digits are twinned, the free end of the stem stays put:"
\markup { \hspace #3 
  \show-specmus "L"   #chordA \hspace #3 
  \show-specmus "L22" #chordA \hspace #3 
  \show-specmus "L66" #chordA \hspace #3 
  \show-specmus "L99" #chordA \hspace #3 
}
\markup \vspace #1 
 
  
\markup  \column {
  \show-specmus "L" #chordA
  \show-specmus "R" #chordB
  }
  %}
  
























%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{
global = {
\key bes \major
\time 4/4
\override Staff.TimeSignature.stencil = ##f
}
rhhi = { <bes' bes''>4 <c''! a''>16[ <bes' g''>16 c''16 <ees''! g''>16] }
rhlo = { d''8[ ees''!8] \thBr "L" fis'16[ g'16 \thBr "R" a'16 <g' bes'>16] }
lhhi = { d'8[ ees'!8] c'16[ bes16 c'16 bes16] }
lhlo = { bes4 fis16[ g16 a16 bes16] }

\markup "Reger 17"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef treble \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key bes \major
\time 4/4
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
\override Staff.TimeSignature.stencil = ##f
}
rhhi = { <ees' g' bes' ees''>2-> <c' f' a' c''>-> <f' f''>2.*2/3-> }
rhlo = { s1  <a' c''>8--[ <f' a'>8--] <f' ~ bes'>8--[ <f' c''>8--]  }
lhhi = { c8[ g16 a16] bes16[ g16 c'8]  
\thBr "R" c'16[ d'16 ees'16 d'16] c'16[ d'16 ees'16 c'16] 
\thBr "L4*" <a c'>8--[ <f a>8--] <f bes>8--[ c'8--] }
lhlo = { <c, c>4.-- c8-. <f, f>4.-- a,8-. d4-- d8--[ c8--] }

\markup "Reger 60"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key aes \major
\time 9/8
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
\override Staff.TimeSignature.stencil = ##f
}
rhhi = { ees''4.-> ees''4.-> ~ ees''8[ d''8 ees''8] }
rhlo = { \thBr "L" <aes aes'>8.[ <aes aes'>16 <aes aes'>8] r8 
\thBr "R*" <ees' g'>8-.[ <ees' g'>8-.] <ees' aes'>4. }
lhhi = { \oneVoice s4. r8 s4 s4. } 
lhlo = { \thBr "R" <c ees ees'>8.[ <c ees ees'>16 <c ees ees'>8] s8 
<bes, ees des'>8^.[ <beses, ees des'>8^.] <aes, ees c'>4.^> }

\markup "Scriabin IMSLP #02002 II bar48"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key fis \major
\time 12/8
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
\override Staff.TimeSignature.stencil = ##f
}
rhhi = { eis'2. ~ eis'4. eis'4. }
rhlo = { cis'2. ~ cis'4. cis'4. }
lhhi = { \thBr "r4*=" <eis gis>2. ~ gis4 cis8 gis!4 g8 } 
lhlo = { <cis, cis>2. <gisis,, gisis,>2. }

\markup "Scriabin IMSLP 10999 p5"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key bes \major
\time 9/8
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
\override Staff.TimeSignature.stencil = ##f
}
rhhi = { \partial 4 <cis' cis''>8[\( <d' d''>8] <ees' ees''>4 
<e' e''>8 <fis' fis''>4 <g' g''>8 <g' g''>4 <fis' fis''>8\) }
rhlo = { \partial 4 r8 r8 r8 bes'8[ bes'8] r8 e''8[ e''8] 
<a' ees''>8[ <a' ees''>8 <c'' ees''>8] }
lhhi = { \partial 4 \oneVoice r8 r8 r8 s4 
\once \override Rest.X-extent = #'(0 . 2.5) 
r8 s4 s4.}
lhlo = { \partial 4 s4 s8 <cis, cis>8[ 
\thBr "R" <g bes g'>8] s8 
\thBr "R102=" <bes e' bes'>8[ <cis, cis>8] 
\stemUp <cis, cis>8[<c, c>8 <a, a>] }

\markup "Scriabin IMSLP 08382 p47"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key bes \major
\time 4/4
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
\override Staff.TimeSignature.stencil = ##f
}
arpLengthenTo = #(define-music-function (bound) (integer?)
#{ \once \override Arpeggio.positions = #(lambda (grob)
(interval-union (cons bound bound) (ly:arpeggio::calc-positions grob)))
#})

%%% saw what looked like tie pushing arpeggio vertically when doubled up alto
rhhiA = {
\once \override Arpeggio.arpeggio-direction = #down 
\once \override NoteColumn.force-hshift = #-0.2 
<\tweak transparent ##t  d' ees'' g'' c'''>1\arpeggio ~ <ees'' g'' c'''>1 }
rhhiB = {
\once \override Arpeggio.arpeggio-direction = #down 
\arpLengthenTo #-4
<ees'' g'' c'''>1\arpeggio  ~ <ees'' g'' c'''>1 }
rhhi = { \rhhiA \rhhiB }
rhlo = \repeat unfold 2 { \thBr "l22]" <f' bes'>1 ~ <f' bes'>1 }
lhhi = \repeat unfold 2 { \oneVoice r1 r1}
lhlo = \repeat unfold 2 { s1 s1 }

\markup "F9sus"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\key f \major
\time 3/4
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
}
rhhi = { a'2. }
rhlo = { r4 
\thumbBracketEx "L442" #(acons 'htip 2.5 thumbBracketSettings) 
<a c'>8[ <bes d'>8] <c' e'>8[ <a c'>8] }
lhhi = { f,2.}
lhlo = { \hideNotes f,16 } % spacing hack

\markup "Possibility"
\score {
\new PianoStaff <<
\new Staff = "rh" { \clef treble \global << \rhhi \\ \rhlo >>}
\new Staff = "lh" { \clef bass   \global << \lhhi \\ \lhlo >>}
>>
\layout { indent = 0.0\cm }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%