Re: Orchestral group

[Kieren MacMillan]

Hi Mario,

Well! As I have already said I think that this solution is really nice but I can not fix what I have underlined in red: that the staff bar connection. And I can not add staff "Harpsichord" without  StaffGroup and only PianoStaff :-(

Here is code that works for me, and a screenshot of the result (which, I believe, is what you want).

Hope this helps!

Kieren.

____________________

\version "2.17.6"
\language "english"
 
\header {
  % Elimina la tagline predefinita di LilyPond
  tagline = ##f
}
 
#(set! paper-alist (cons '("my size" . (cons (* 11 cm) (* 20 cm))) paper-alist))
 
\paper{
  #(set-paper-size "my size")
   print-page-number = ##f
   myStaffSize = #16
   #(define fonts
     (make-pango-font-tree "SimonciniGaramond"
       "SimonciniGaramond"
       "SimonciniGaramond"
       (/ myStaffSize 16)))
  indent = 1.25\in
  line-width = 10.5\cm
  oddFooterMarkup = ##f
  oddHeaderMarkup = ##f
  bookTitleMarkup = ##f
  scoreTitleMarkup = ##f
  ragged-bottom = ##f
  ragged-last = ##f
  ragged-last-bottom = ##f
  bottom-margin = 0.2\cm
  top-margin = 0.2\cm 
}
#(set-global-staff-size 16)
 
someMusic = \relative c' { c1 c c c }

\layout {
  \context {
    \Staff
    \override InstrumentName.padding = #-9
    \override InstrumentName.self-alignment-X = #0
    \override InstrumentName.baseline-skip = #2.25
    \override InstrumentName.font-size = #-0.5
  }
  \context {
    \StaffGroup
    \name ViolinGroup
    \alias StaffGroup
    systemStartDelimiter = #'SystemStartBrace
    \override SystemStartBrace #'stencil = #ly:system-start-delimiter::print
    \override SystemStartBrace #'extra-offset = #'(-3 . 0)
  }
  \context {
    \StaffGroup
    \name WindGroup
    \alias StaffGroup
    systemStartDelimiter = #'SystemStartBracket
    \override SystemStartBracket.collapse-height = #1
  }
  \context {
    \StaffGroup
    \name StringGroup
    \alias StaffGroup
    \accepts ViolinGroup
    systemStartDelimiter = #'SystemStartBracket
  }
  \context {
    \StaffGroup
    \name OrchestraGroup
    \alias StaffGroup
    \accepts WindGroup
    \accepts StringGroup
    \remove "Span_bar_engraver"
    systemStartDelimiter = #'SystemStartBrace
    \override SystemStartBrace.X-offset = #2
    \override SystemStartBrace #'extra-offset = #'(-16 . 0)
    \override InstrumentName #'extra-offset = #'(-3 . 0)
    instrumentName = \markup \rotate #90 { "Orchestra I" }
    \override SystemStartBrace #'stencil = #(lambda (grob)
     (let ((brace (ly:system-start-delimiter::print grob)))
       (if (ly:stencil? brace)
           (ly:stencil-scale brace 0.5 1))))
  }
  \context {
    \Score
    \accepts OrchestraGroup
  }
  \context {
    \PianoStaff
    instrumentName = "Piano"
    \override InstrumentName.padding = #-6
  }
}

\score {
  <<
    \new OrchestraGroup <<
      \new WindGroup <<
        \new Staff \with { instrumentName = "Oboe" } \someMusic
      >>
      \new StringGroup <<
        \new ViolinGroup <<
          \new Staff \with { instrumentName = "Violino I" } \someMusic
          \new Staff \with { instrumentName = "Violino II" } \someMusic
        >>
        \new Staff \with { instrumentName = "Viola" } \someMusic
      >>
    >>
    \new ChoirStaff <<
      \new Staff \with { instrumentName = "Soprano" \override InstrumentName.padding = #-6 } \someMusic
      \new Staff \with { instrumentName = "Alto" \override InstrumentName.padding = #-6 } \someMusic
      \new Staff \with { instrumentName = "Tenore" \override InstrumentName.padding = #-6 } \someMusic
      \new Staff \with { instrumentName = "Basso" \override InstrumentName.padding = #-6 } \someMusic
    >>
    \new PianoStaff <<
      \new Staff = "upper" { \someMusic }
      \new Staff = "lower" { \someMusic }
    >>
  >>
}