I need a custom articulation common in 18 c scores which is a short
vertical line above the note. I have the following code which works just
fine:

upline =
#(let ((m (make-articulation "stopped")))
   (set! (ly:music-property m 'tweaks)
         (acons 'font-size 3
           (acons 'stencil (lambda (grob)
                             (grob-interpret-markup
                              grob
                              (make-draw-line-markup '(0 . 1))))
             (ly:music-property m 'tweaks))))
   m)

I cannot recall where I obtained this code from. But I want to have the
line thicker. I don't know how to modify this. Grepping the lilypond
installation I am unable to find the function make-draw-line-markup. Where
does that come from? Can I use another function that takes a thickness as
an additional parameter?

Andrew
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to