Re: [lilypond-es] flechas

[Francisco Vila]

Y, hablando del grosor de la flecha,

\version "2.17.26"

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

  (number?)

  (interpret-markup layout props

    (markup

     #:override '(thickness . 5)

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

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

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

  \arrow-to-right #-10

}

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

flecha3.png
Description: PNG image