Re: [lilypond-es] flechas

[Francisco Vila]

¡Perdón! se me olvidaba el código.

\version "2.17.26"

#(define-markup-command (arrow-to-right layout props length)

(number?)

(interpret-markup layout props

(markup

#:concat (#:draw-line (cons length 0)

#:arrow-head X RIGHT #t))))

BarLineMarkup = \markup \with-dimensions #'(-10 . 0) #'(0 . 0) {

\arrow-to-right #1

}

arrowBarLine = {

\once \override Staff.BarLine #'stencil =

#(lambda (grob)

(ly:stencil-combine-at-edge

(ly:bar-line::print grob)

X RIGHT

(grob-interpret-markup grob BarLineMarkup)

0))

}

\score {

\new Staff {

a'1 \repeat volta 2 { a'16[ \f \> a' a' a'] a'[ a' a' a' ] }

\arrowBarLine

\cadenzaOn

\hide f''1 \p a'1

}

}

--
Francisco Vila. Badajoz (Spain)
www.paconet.org , www.csmbadajoz.com

document.png
Description: PNG image