- \override NoteHead #'stencil = #(lambda (grob)
- (grob-interpret-markup grob
- (markup #:musicglyph "scripts.sforzato")))
- \override NoteHead #'extra-offset = #'(0.1 . 0.0)
+ \override NoteHead #'stencil =
+ #(lambda (grob)
+ (grob-interpret-markup grob
+ (markup #:musicglyph "scripts.sforzato")))
+ \override NoteHead #'stem-attachment =
+ #(lambda (grob)
+ (let ((thickness (ly:staff-symbol-line-thickness grob)))
+ (cons 1 (/ thickness 2))))