X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fchanging--flageolet-mark-size.ly;h=3f8ad3251f90b1935e5064ae048971d126868ce0;hb=0049a429501978125819c942adef867aed317ac0;hp=22724d65b1d3ef97fbfebb2b5f22691f8eeabb75;hpb=9e7b53f94e1e3bd7b3f7a14ba11a6cae6c8e9a73;p=lilypond.git

diff --git a/input/lsr/changing--flageolet-mark-size.ly b/input/lsr/changing--flageolet-mark-size.ly
index 22724d65b1..3f8ad3251f 100644
--- a/input/lsr/changing--flageolet-mark-size.ly
+++ b/input/lsr/changing--flageolet-mark-size.ly
@@ -5,17 +5,18 @@
 \header {
   lsrtags = "expressive-marks"
  texidoc = "
-To make the \\flageolet circle smaller you can use the following scheme
-code (found in the Lilypond-user-archive)
+To make the @code{\\flageolet} circle smaller you can use the following
+Scheme code. 
 " }
 % begin verbatim
-F = #(let ((m (make-music 'ArticulationEvent
+smallFlageolet = #(let ((m (make-music 'ArticulationEvent
                           'articulation-type "flageolet")))
        (set! (ly:music-property m 'tweaks)
              (acons 'font-size -3
                     (ly:music-property m 'tweaks)))
        m)
 
-\relative c'' { d4^\flageolet_\markup {"orginal \flageolet "} d4_\flageolet
-  c4^\F_\markup {smaller } c4_\F 
+\relative c'' {
+  d4^\flageolet_\markup { default size } d4_\flageolet
+  c4^\smallFlageolet_\markup { smaller } c4_\smallFlageolet
 }