Not nice but works:
%%% SNIPPET BEGINS
\version "2.19.83"
\include "arrows.ily"
#(define-markup-command (arrow-at-angle layout props angle-deg) (number?)
(let* ((PI-OVER-180 (/ (atan 1 1) 34))
(degrees->radians (lambda (degrees) (* degrees PI-OVER-180)))
(angle-rad (degrees->radians angle-deg))
(target-x (* 3 (cos angle-rad)))
(target-y (* 3 (sin angle-rad))))
(interpret-markup layout props
(markup
#:translate (cons (/ target-x 2.1) (/ target-y 2.1))
#:rotate angle-deg
#:arrow "closed" #f 0 1 3.5 .1))))
testingMusic = {
c'1
\once \override Staff.BarLine.stencil =
#(lambda (grob)
(ly:stencil-combine-at-edge
(ly:bar-line::print grob)
X RIGHT
(grob-interpret-markup grob
#{
\markup\with-dimensions-from\null {
\translate #'(5 . 0)
\combine
\arrow-at-angle #-30
\arrow-at-angle #30
}
#})
0))
\break
\time 3/4 c'2.
\once \override Staff.BarLine.stencil =
#(lambda (grob)
(ly:stencil-combine-at-edge
(ly:bar-line::print grob)
X RIGHT
(grob-interpret-markup grob
#{
\markup\with-dimensions-from\null {
\translate #'(8.2 . 0)
\combine
\arrow-at-angle #-30
\arrow-at-angle #30
}
#})
0))
\break
\key bes \major \time 4/4 c'1
\once \override Staff.BarLine.stencil =
#(lambda (grob)
(ly:stencil-combine-at-edge
(ly:bar-line::print grob)
X RIGHT
(grob-interpret-markup grob
#{
\markup\with-dimensions-from\null {
\translate #'(8.8 . 0)
\combine
\arrow-at-angle #-30
\arrow-at-angle #30
}
#})
0))
\break
\key a \major c'1
}
\score {
\new Staff \testingMusic
}
%%% SNIPPET ENDS
See: http://lsr.di.unimi.it/LSR/Item?id=1026 for "arrows.ily"
HTH, Cheers,
Pierre
Le sam. 14 sept. 2019 à 17:19, Kieren MacMillan <
[email protected]> a écrit :
> Hi all,
>
> In the following snippet, I’ve built my preferred markup to indicate that
> a shared choral staff (e.g., sopranos & altos) splits across the system
> break into two independent staves (e.g., a soprano staff and an alto
> staff). As you can see, it fails when there are extra prefatory items.
>
> What I believe I want to do is attach the markup to the end of the
> StaffSymbol instead of BarLine… but I can’t seem to find the proper
> incantation.
>
> Any assistance or hints would be appreciated.
>
> Thanks!
> Kieren.
>
> %%% SNIPPET BEGINS
> \version "2.19.83"
>
> #(define-markup-command (arrow-at-angle layout props angle-deg length fill)
> (number? number? boolean?)
> (let* (
> (PI-OVER-180 (/ (atan 1 1) 34))
> (degrees->radians (lambda (degrees) (* degrees PI-OVER-180)))
> (angle-rad (degrees->radians angle-deg))
> (target-x (* length (cos angle-rad)))
> (target-y (* length (sin angle-rad))))
> (interpret-markup layout props
> (markup
> #:translate (cons (/ target-x 2) (/ target-y 2))
> #:rotate angle-deg
> #:translate (cons (/ length -2) 0)
> #:concat (#:draw-line (cons length 0)
> #:hspace -0.125
> #:arrow-head X RIGHT fill)))))
>
> arrowDownForBarline = \markup \arrow-at-angle #-30 #(sqrt 4) ##t
> arrowUpForBarline = \markup \arrow-at-angle #30 #(sqrt 4) ##t
>
> arrowUpBarlineMarkup =
> \markup
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \override #'(thickness . 1.5)
> \concat { \hspace #0.375 \arrowUpForBarline }
> arrowDownBarlineMarkup =
> \markup
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \override #'(thickness . 1.5)
> \concat { \hspace #0.375 \arrowDownForBarline }
> arrowsSplitBarlineMarkup =
> \markup
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \override #'(thickness . 1.5) {
> \concat
> {
> \hspace #0.375
> \combine
> \raise #0.4 \arrowUpForBarline
> \lower #0.4 \arrowDownForBarline
> }
> }
>
> staffBarLineArrowsSplit = {
> \once \override Staff.BarLine.stencil =
> #(lambda (grob)
> (ly:stencil-combine-at-edge
> (ly:bar-line::print grob)
> X RIGHT
> (grob-interpret-markup grob arrowsSplitBarlineMarkup)
> 0))
> \break
> }
>
> testingMusic = {
> c'1 \staffBarLineArrowsSplit
> \time 3/4 c'2. \staffBarLineArrowsSplit
> \key bes \major \time 4/4 c'1 \staffBarLineArrowsSplit
> \key a \major c'1
> }
>
> \score {
> \new Staff \testingMusic
> }
> %%% SNIPPET ENDS
> ________________________________
>
> Kieren MacMillan, composer (he/him/his)
> ‣ website: www.kierenmacmillan.info
> ‣ email: [email protected]
>
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
