Thomas Morley wrote > 2012/10/4 TaoCG < > tao_lilyponduser@
> >: >> I found two different approaches to print double dashed bar lines here: >> http://lilypond.1069038.n5.nabble.com/Fine-with-dashed-double-barline-occurring-in-middle-of-bar-td17372.html >> >> But I need the barline to span a piano and choir staff which neither >> method >> currently supports. >> Anyone has an alternative approach or could help implement it into one of >> the existing ones? >> >> >> >> -- >> View this message in context: >> http://lilypond.1069038.n5.nabble.com/double-dashed-barline-tp134112.html >> Sent from the User mailing list archive at Nabble.com. >> >> _______________________________________________ >> lilypond-user mailing list >> > lilypond-user@ >> https://lists.gnu.org/mailman/listinfo/lilypond-user > > I extended the function provided by Robin Bannister: > > \version "2.15.25" > > barDoubled = #(define-music-function (parser location glyph) (string?) > (define (bar-gap-bar grob) > (let* ( > (layout (ly:grob-layout grob)) > (weight (ly:output-def-lookup layout 'line-thickness 0.1)) > (raw-gap (ly:grob-property grob 'thin-kern)) > (gap (* raw-gap weight))) > (ly:stencil-combine-at-edge (ly:bar-line::print grob) > X RIGHT (ly:bar-line::print grob) gap))) > > (define (span-bar-gap-bar grob) > (let* ( > (layout (ly:grob-layout grob)) > (weight (ly:output-def-lookup layout 'line-thickness 0.1)) > (raw-gap (ly:grob-property grob 'thin-kern)) > (gap (* raw-gap weight))) > (ly:stencil-combine-at-edge (ly:span-bar::print grob) > X RIGHT (ly:span-bar::print grob) gap))) > #{ > \bar $glyph > \once \override Score.BarLine #'stencil = $bar-gap-bar > \once \override Score.SpanBar #'stencil = $span-bar-gap-bar > #}) > > \score { > << > \new ChoirStaff << > \new Staff \relative c' { c'1 b \barDoubled "dashed" c } > \new Staff \relative c' { g'1 g g } > \new Staff \relative c' { \clef "G_8" e1 d e } > \new Staff \relative c' { \clef bass c g c } > >> > \new PianoStaff << > \new Staff \relative c' { > <e g c> > 1 > <d g b> > > <e g c> > } > \new Staff \relative c' { \clef bass c g c } > >> > >> > } > > HTH, > Harm > > P.S. > Once the bar-line-patch is approved you can simple write: > #(define-bar-line "!!" "!!" #f "!") > and use it with \bar "!!" > see http://codereview.appspot.com/6498052 > > _______________________________________________ > lilypond-user mailing list > lilypond-user@ > https://lists.gnu.org/mailman/listinfo/lilypond-user Thank you very much! Looking forward to the new barlines. -- View this message in context: http://lilypond.1069038.n5.nabble.com/double-dashed-barline-tp134112p134154.html Sent from the User mailing list archive at Nabble.com. _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
