Hi Klaus, thank you so much, it works fine without any heigh adjustment. Many thanks to Schneidy. it's really nice to have effective support.
Best regards, Alexis. > Le 22 mars 2016 à 21:57, Klaus Blum <benbigno...@gmx.de> a écrit : > > Hi Alexis, > > Schneidy has created a snippet for that issue: > http://lsr.di.unimi.it/LSR/Item?id=991 > > There's a little drawback: You have to (manually) adjust the bracket height > to match the staff group height. > I've tried a little modification to avoid this: You can add the wings to the > topmost and lowermost staff in the group: > > % > ----------------------------------------------------------------------------------- > > \version "2.18.2" > > #(define-markup-command (staff-group-bracket-upper layout props > bracket-height)(number?) > "Draw upper wing for StaffGroup bracket." > (interpret-markup layout props > (markup > (#:with-dimensions (cons -0.001 0) (cons 0.001 0) > (#:override (cons (quote filled) #t) > (#:path 0.01 `( > (moveto 0.00 ,(+ bracket-height 0.35)) > (curveto 0.00 ,(+ bracket-height 0.43) 0.07 ,(+ > bracket-height 0.42) 0.10 ,(+ bracket-height 0.42)) > (curveto 0.70 ,(+ bracket-height 0.42) 1.10 ,(+ > bracket-height 0.60) 1.76 ,(+ bracket-height 1.50)) > (curveto 1.82 ,(+ bracket-height 1.58) 1.89 ,(+ > bracket-height 1.50) 1.85 ,(+ bracket-height 1.45)) > (curveto 1.14 ,(+ bracket-height 0.40) 0.93 ,(+ > bracket-height 0.18) 0.45 ,bracket-height) > (lineto 0.00 ,bracket-height) > (closepath) > ))))))) > > #(define-markup-command (staff-group-bracket-lower layout props > bracket-height)(number?) > "Draw lower wing for StaffGroup bracket." > (interpret-markup layout props > (markup > (#:with-dimensions (cons -0.001 0) (cons 0.001 0) > (#:override (cons (quote filled) #t) > (#:path 0.01 `( > (moveto 0.00 ,(* bracket-height -1)) > (curveto 0.00 ,(+ (* bracket-height -1) -0.43) > 0.07 ,(+ (* bracket-height -1) -0.42) 0.10 ,(+ (* bracket-height -1) > -0.42)) > (curveto 0.70 ,(+ (* bracket-height -1) -0.42) > 1.10 ,(+ (* bracket-height -1) -0.60) 1.76 ,(+ (* bracket-height -1) > -1.50)) > (curveto 1.82 ,(+ (* bracket-height -1) -1.58) > 1.89 ,(+ (* bracket-height -1) -1.50) 1.85 ,(+ (* bracket-height -1) > -1.45)) > (curveto 1.14 ,(+ (* bracket-height -1) -0.40) > 0.93 ,(+ (* bracket-height -1) -0.18) 0.45 ,(* bracket-height -1)) > (closepath)))))))) > > addUpperWing = > #(define-music-function > (parser location repeat-bar-type) > (string?) > (cond > ((string=? repeat-bar-type "[") > #{ > \once \override Staff.BarLine.stencil = > #(lambda (grob) > (ly:stencil-combine-at-edge > (ly:bar-line::print grob) > X LEFT > (grob-interpret-markup grob > #{ > \markup > % \translate #(cons 0 repeat-bar-translate) > \staff-group-bracket-upper #1.8 > #}))) > #}) > ((string=? repeat-bar-type "]") > #{ > > \once \override Staff.BarLine.stencil = > #(lambda (grob) > (ly:stencil-combine-at-edge > (ly:bar-line::print grob) > X RIGHT > (grob-interpret-markup grob > #{ > \markup > \rotate #180 > % \translate #(cons 0 repeat-bar-translate) > \staff-group-bracket-lower #1.8 > #}))) > #}) > (else > #{ > \once \override Staff.BarLine.stencil = #ly:bar-line::print > #}))) > > addLowerWing = > #(define-music-function > (parser location repeat-bar-type) > (string?) > (cond > ((string=? repeat-bar-type "[") > #{ > \once \override Staff.BarLine.stencil = > #(lambda (grob) > (ly:stencil-combine-at-edge > (ly:bar-line::print grob) > X LEFT > (grob-interpret-markup grob > #{ > \markup > \staff-group-bracket-lower #1.8 > #}))) > #}) > ((string=? repeat-bar-type "]") > #{ > > \once \override Staff.BarLine.stencil = > #(lambda (grob) > (ly:stencil-combine-at-edge > (ly:bar-line::print grob) > X RIGHT > (grob-interpret-markup grob > #{ > \markup > \rotate #180 > \staff-group-bracket-upper #1.8 > #}))) > #}) > (else > #{ > \once \override Staff.BarLine.stencil = #ly:bar-line::print > #}))) > > %%% Test: > \new StaffGroup << > \new Staff \relative c' { > c4 d e f > \repeat volta 2 { > \addUpperWing #"[" > g a b c > d e f g > \addUpperWing #"]" > } > s8 > } > \new Staff \relative c { > \clef F > c4 d e f > \repeat volta 2 { > g a b c > d e f g > } > s8 > } > \new Staff \relative c, { > \clef F > c4 d e f > \repeat volta 2 { > \addLowerWing #"[" > g a b c > d e f g > \addLowerWing #"]" > } > s8 > } >>> > > % > ----------------------------------------------------------------------------------- > > Cheers, > Klaus > > > > -- > View this message in context: > http://lilypond.1069038.n5.nabble.com/Winged-repeat-bar-line-unique-over-multiple-staves-tp188804p188828.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 _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user