StaffGroup ohne durchgezogene Barlines im Zeileninnern
Zur Navigation springen
Zur Suche springen
Anwendung
\version "2.19.82"
\language "deutsch"
\layout {
\context {
\Staff
\override BarLine.after-line-breaking = #restrict-span-bars
}
}
mus = \repeat unfold 16 { c''4 }
#(display-lily-music
#{ \new StaffGroup
<<
\new Staff \mus
\new Staff \mus
>> #} )
\new StaffGroup
<<
\new Staff \mus
\new Staff \mus
>>
Lilypond Music
\new StaffGroup << \new Staff \repeat unfold 16 { c''4 } \new Staff \repeat unfold 16 { c''4 } >>
Ausgabe mit Standard-Einstellungen
Scheme-Code
Einfügen: {{:StaffGroup ohne durchgezogene Barlines im Zeileninnern/code}}
#(define my-repeat-bar-glyph-list
'(":|.:"
":..:"
":|.|:"
":.|.:"
":|."
".|:"
"[|:"
":|]"
":|][|:"
".|:-||"
":|.S"
"S.|:"
"|."
;; add more?
))
#(define restrict-span-bars
;; print SpanBar only at line-break abd for repeats
(lambda (grob)
(let* ((break-dir (ly:item-break-dir grob))
(glyph (ly:grob-property grob 'glyph)))
(if (or (not (zero? break-dir))
(member glyph my-repeat-bar-glyph-list))
(ly:grob-set-property! grob 'allow-span-bar #t)
(ly:grob-set-property! grob 'allow-span-bar #f)))))