4 lsrtags = "contemporary-notation, winds"
7 It is possible to indicate special articulation techniques such as a
8 flute @qq{tongue slap} by replacing the note head with the appropriate
12 doctitle = "Flute slap notation"
15 #(define-music-function (music) (ly:music?)
17 \temporary \override NoteHead.stencil =
19 (grob-interpret-markup grob
20 (markup #:musicglyph "scripts.sforzato")))
21 \temporary \override NoteHead.stem-attachment =
23 (let* ((thickness (ly:staff-symbol-line-thickness grob))
24 (stem (ly:grob-object grob 'stem))
25 (dir (ly:grob-property stem 'direction UP)))
26 (cons 1 (+ (if (= dir DOWN)
31 \revert NoteHead.stencil
32 \revert NoteHead.stem-attachment