Dear List,
I'd like to forcefully remove a staff from an orchestral score at a given
point. Here's the scenario:
There are 6 violas playing in 2 staves (Vle 1-3 in the first and Vle 4-6 in the
second). From some point, all the violas play the same material, so I'd like to
remove one of the staves to avoid duplications. However, I can't find out how
to achieve this. I enabled 'frenched spacing' with \RemoveEmptyStaves, but it
seems that the hidden notes that end the glissandi (created with \hideNotes)
will keep the staff 'alive', as in the attached example.
(Note that this example is a minimal extract, it doesn't contain the rest of
the orchestra, however, there's a dummy timeline and a dummy first page
inserted, to simulate the actual situation).
Does anybody have an idea about how to activate the frenched spacing in this
specific case?
Thanks,
Ádám
%%%%%%%%%%%%%%%%%%%
Here's the example:
%%%%%%%%%%%%%%%%%%%
\version "2.14.1"
#(set-default-paper-size "b4")
#(set-global-staff-size 12)
#(define adjust-for-note-head(
lambda (grob)(
let* ((refp (ly:grob-system grob))
(bar-coord (ly:grob-relative-coordinate grob refp X))
(all (ly:grob-array->list (ly:grob-object refp 'all-elements)))
(note-heads
(filter
(lambda (n)
(eq? (assq-ref (ly:grob-property n 'meta) 'name)
'NoteColumn))
all))
(note-head-coords
(map
(lambda (heads)
(interval-center (ly:grob-extent heads refp X)))
note-heads))
(coords-to-right
(filter
(lambda (coord) (< bar-coord coord))
note-head-coords))
(closest-coord
(if (pair? coords-to-right)
(apply min
(map (lambda (coord) (- coord bar-coord))
coords-to-right))
0)))
(set! (ly:grob-property grob 'extra-offset) (cons closest-coord 0))
)
)
)
dottedNoteHead = {
\once \override NoteHead #'stencil = #ly:text-interface::print
\once \override NoteHead #'text = \markup { \concat { \musicglyph #"dots.dot"
" " \musicglyph #"dots.dot" " " \musicglyph #"dots.dot" } }
}
timing = {
\relative d'' {
\hideNotes
\time 8/4 \mark "8" s4*8 \pageBreak
\time 5/4 \mark "5" s4*5 \noBreak
\time 5/4 \mark "5" s4*5 \noBreak
\time 5/4 \mark "5" s4*5 \noBreak
\time 5/4 \mark "5" s4*5 \noBreak
\time 8/4 \mark "8" s4*8 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 4/4 \mark "4" s4*4 \break
\time 4/4 \mark "4" s4*4 \noBreak
\time 5/4 \mark "5" s4*5 \noBreak
\time 4/4 \mark "4" s4*4 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 4/4 \mark "4" s4*4 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 3/4 \mark "3" s4*3 \noBreak
\time 4/4 \mark "4" s4*4 \noBreak
\time 4/4 \mark "4" s4*4 \noBreak
\time 3/4 \mark "3" s4*3 \pageBreak
\time 5/4 \mark "5" s4*5
\unHideNotes}
}
\score {
<<
\new Staff {
\set Staff.instrumentName = #"Dummy"
\set Staff.shortInstrumentName = #"Dummy"
<< { \timing } \\ { \repeat unfold 94 { d'4 } } >>
}
\new StaffGroup <<
\new Staff {
\relative d' {
\set Staff.instrumentName = \markup { \center-column { \line {
"Viole" } \line { "1-3" } } }
\set Staff.shortInstrumentName = \markup { \center-column { \line {
"Vle." } \line { "1-3" } } }
\clef alto
<< { d4*49 \glissando \hideNotes d4*4 \unHideNotes } \new Voice {
\hideNotes d4*13 \once \override Hairpin #'circled-tip = ##f d4*5\< \once
\override Hairpin #'circled-tip = ##f \once \override TextSpanner
#'(bound-details left text) = "tremolo" \once \override TextSpanner
#'(bound-details right text) = "ord." d4*5\mp\>\startTextSpan
d4*26\ppp\stopTextSpan \unHideNotes } >>
}
}
\new Staff {
\relative d' {
\set Staff.instrumentName = \markup { \center-column { \line {
"Viole" } \line { "4-6" } } }
\set Staff.shortInstrumentName = \markup { \center-column { \line {
"Vle." } \line { "4-6" } } }
\clef alto
<< { \once \override Glissando #'bound-details = #'((right
(attach-dir . 0) (padding . 1.5))) d4*18 \glissando d8 d d d d \dottedNoteHead
d8*5 \once \override Glissando #'bound-details = #'((left (attach-dir . 0)
(padding . 0.0))) \hideNotes d4*42 \glissando d4*4 \unHideNotes } \new Voice {
\hideNotes d4*13 \once \override Hairpin #'circled-tip = ##f d4*5\< \once
\override Hairpin #'circled-tip = ##f d4*5\mp\>^\markup{\raise #0.35
\musicglyph #"noteheads.s2" ~ 60} d4*39\ppp d4*3\> d4*4\! \unHideNotes } >>
}
}
>>
>>
\layout {
\context {
\Voice
\remove Forbid_line_break_engraver
}
\context {
\Staff
\RemoveEmptyStaves
\remove "Time_signature_engraver"
\remove Separating_line_group_engraver
\consists "Mark_engraver"
}
\context {
\Score
\remove "Bar_number_engraver"
\remove "Mark_engraver"
\override SpacingSpanner #'uniform-stretching = ##t
\override SpacingSpanner #'strict-note-spacing = ##t
\override SpacingSpanner #'strict-grace-spacing = ##t
%\override Beam #'breakable = ##t
\override Beam #'stencil = #point-stencil
\override BarLine #'transparent = ##t
\override BarLine #'after-line-breaking = #adjust-for-note-head
\override SpanBar #'after-line-breaking = #adjust-for-note-head
\override SpanBar #'glyph-name = #"dashed"
\override RehearsalMark #'after-line-breaking = #adjust-for-note-head
\override Glissando #'breakable = ##t
\override Glissando #'thickness = #5
\override Glissando #'bound-details = #'((right (attach-dir . 0) (padding
. 0)) (left (attach-dir . 0) (padding . 1.5)))
\override Hairpin #'circled-tip = ##t
\override Stem #'stencil = #point-stencil
\override TextSpanner #'style = #'line
\override TextSpanner #'(bound-details right arrow) = ##t
proportionalNotationDuration = #(ly:make-moment 1 4)
}
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
