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?