\version "2.13.0" #(define-markup-command (T-circle layout props) () (interpret-markup layout props (markup #:circle "T"))) #(define-markup-command (fingernail layout props) () (interpret-markup layout props (markup #:stencil (ly:make-stencil (list 'embedded-ps (string-append "1.6 1.5 0.4 1.5 0 0 2 0\n" "0.4 0.75 1.6 0.75 2 0 0 0\n" "0.15 draw_bezier_sandwich\n")) '(0 . 2) '(0 . 1.75))))) \relative { \key f \major \time 2/4 \override NoteHead #'style = #'cross \override TextSpanner #'(bound-details left text) = \markup { \upright "Pdlt " } % move TextSpanner above markups: \override TextSpanner #'outside-staff-priority = #451 f16^\markup { \right-align \T-circle \fingernail \small "(ou articulations)" } \startTextSpan f f f f8 f | f16 f f f f8 f | f16 f f f f4 \stopTextSpan | \revert NoteHead #'style }