X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fflute-slap-notation.ly;h=c835631773d26c1b55b634f8ac3d57e09e566de0;hb=33fee1aae93af367e6d2f0a80bef3e1b38eda9eb;hp=55372b31d70790f45ae4814bca980e70848c080c;hpb=c5465580147e506896577dcebb90adaedb636f97;p=lilypond.git

diff --git a/input/lsr/flute-slap-notation.ly b/input/lsr/flute-slap-notation.ly
index 55372b31d7..c835631773 100644
--- a/input/lsr/flute-slap-notation.ly
+++ b/input/lsr/flute-slap-notation.ly
@@ -1,6 +1,6 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
 %% This file is in the public domain.
-\version "2.11.64"
+\version "2.12.0"
 
 \header {
   lsrtags = "winds"
@@ -14,16 +14,19 @@ appropriate glyph.
   doctitle = "Flute slap notation"
 } % begin verbatim
 
+
 slap =
 #(define-music-function (parser location music) (ly:music?)
-#{\override NoteHead #'stencil = #ly:text-interface::print
-  \override NoteHead #'text = \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 #'extra-offset = #'(0.1 . 0.0)
   $music
   \revert NoteHead #'stencil
-  \revert NoteHead #'text
-  \revert NoteHead #'extra-offset #})
+  \revert NoteHead #'extra-offset
+#})
 
 \relative c' {
-  c \slap c d r \slap { g a } b r
+  c4 \slap c d r \slap { g a } b r
 }