Documentation/snippets/flute-slap-notation.ly

   1 %% Do not edit this file; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% This file is in the public domain.
   4 \version "2.13.29"
   5
   6 \header {
   7   lsrtags = "winds"
   8
   9   texidoc = "
  10 It is possible to indicate special articulation techniques such as a
  11 flute @qq{tongue slap} by replacing the note head with the appropriate
  12 glyph.
  13
  14 "
  15   doctitle = "Flute slap notation"
  16 } % begin verbatim
  17
  18 slap =
  19 #(define-music-function (parser location music) (ly:music?)
  20 #{
  21   \override NoteHead #'stencil =
  22     #(lambda (grob)
  23        (grob-interpret-markup grob
  24         (markup #:musicglyph "scripts.sforzato")))
  25   \override NoteHead #'stem-attachment =
  26     #(lambda (grob)
  27        (let ((thickness (ly:staff-symbol-line-thickness grob)))
  28          (cons 1 (/ thickness 2))))
  29   $music
  30   \revert NoteHead #'stencil
  31   \revert NoteHead #'stem-attachment
  32 #})
  33
  34 \relative c' {
  35   c4 \slap c d r \slap { g a } b r
  36 }
  37