X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fchanging--flageolet-mark-size.ly;h=1ed164a0d0390ed8a40aa0fe0c50174888f3fb01;hb=3eb1e37e2e0b3966142cd04b85e30ab882308612;hp=55a8ce8c393c3d6a353e47e775a4728ad614b17c;hpb=d41a10209d2e3d6cec1e5d9155459cda1887e90d;p=lilypond.git

diff --git a/input/lsr/changing--flageolet-mark-size.ly b/input/lsr/changing--flageolet-mark-size.ly
index 55a8ce8c39..1ed164a0d0 100644
--- a/input/lsr/changing--flageolet-mark-size.ly
+++ b/input/lsr/changing--flageolet-mark-size.ly
@@ -1,10 +1,11 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.62"
+\version "2.13.1"
 
 \header {
   lsrtags = "expressive-marks, unfretted-strings"
 
+%% Translation of GIT committish: dff50e8e1d3134657a6b6203b9c93826dc4cef65
   texidoces = "
 Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
 utilice la siguiente función de Scheme.
@@ -12,6 +13,23 @@ utilice la siguiente función de Scheme.
 "
   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
 
+%% Translation of GIT committish: 0099693675b95c7ec6664d7277f22411a14e9c1b
+
+  texidocfr = "
+Il est possible de rapetisser le cercle d'un @code{\\flageolet} grâce 
+à une fonction Scheme. 
+
+"
+  doctitlefr = "Modifier la taille d'un \\flageolet"
+
+%% Translation of GIT committish: 33f623301a41fcc53efadf96bca1c72834763415
+  texidocde = "
+Um den @code{\\flageolet}-Kreis kleiner zu machen, kann diese
+Scheme-Funktion eingesetzt werden.
+
+"
+  doctitlede = "\\flageolet-Zeichen verkleinern"
+
   texidoc = "
 To make the @code{\\flageolet} circle smaller use the following Scheme
 function. 
@@ -19,12 +37,14 @@ function.
 "
   doctitle = "Changing \\flageolet mark size"
 } % begin verbatim
-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)
+
+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)
 
 \layout { ragged-right = ##f }
 
@@ -32,3 +52,4 @@ smallFlageolet = #(let ((m (make-music 'ArticulationEvent
   d4^\flageolet_\markup { default size } d_\flageolet
   c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
 }
+