X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fchanging--flageolet-mark-size.ly;h=0f007d74c76732fc8d44a3591adc83dbe39309fe;hb=60fc32ec59fd97456218332612b87b821968da84;hp=bb4a427d3fc0b90427e9910f2454d5ca9922f226;hpb=92782fde87fb68e945b9eb60cacab6c01d0397df;p=lilypond.git

diff --git a/Documentation/snippets/changing--flageolet-mark-size.ly b/Documentation/snippets/changing--flageolet-mark-size.ly
index bb4a427d3f..0f007d74c7 100644
--- a/Documentation/snippets/changing--flageolet-mark-size.ly
+++ b/Documentation/snippets/changing--flageolet-mark-size.ly
@@ -1,12 +1,12 @@
 %% Do not edit this file; it is automatically
 %% generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.13.4"
+\version "2.13.31"
 
 \header {
   lsrtags = "expressive-marks, unfretted-strings"
 
-%% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
+%% Translation of GIT committish: 0b55335aeca1de539bf1125b717e0c21bb6fa31b
   texidoces = "
 Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
 utilice la siguiente función de Scheme.
@@ -15,7 +15,7 @@ utilice la siguiente función de Scheme.
   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
 
 
-%% Translation of GIT committish: d96023d8792c8af202c7cb8508010c0d3648899d
+%% Translation of GIT committish: 0a868be38a775ecb1ef935b079000cebbc64de40
   texidocde = "
 Um den @code{\\flageolet}-Kreis kleiner zu machen, kann diese
 Scheme-Funktion eingesetzt werden.
@@ -23,7 +23,7 @@ Scheme-Funktion eingesetzt werden.
 "
   doctitlede = "\\flageolet-Zeichen verkleinern"
 
-%% Translation of GIT committish: 0099693675b95c7ec6664d7277f22411a14e9c1b
+%% Translation of GIT committish: 5b980ee07bba23d3633de1d371fb2926f164e295
 
   texidocfr = "
 Il est possible de rapetisser le cercle d'un @code{\\flageolet} grâce
@@ -42,12 +42,11 @@ function.
 } % begin verbatim
 
 smallFlageolet =
-#(let ((m (make-music 'ArticulationEvent
-                      'articulation-type "flageolet")))
-   (ly:music-set-property! m 'tweaks
-     (acons 'font-size -3
-       (ly:music-property m 'tweaks)))
-  m)
+#(let ((m (make-articulation "flageolet")))
+   (set! (ly:music-property m 'tweaks)
+         (acons 'font-size -3
+                (ly:music-property m 'tweaks)))
+   m)
 
 \layout { ragged-right = ##f }