Merge branch 'master' of ssh://jneem@git.sv.gnu.org/srv/git/lilypond into tmp

[lilypond.git] / input / lsr / changing--flageolet-mark-size.ly

diff --git a/input/lsr/changing--flageolet-mark-size.ly b/input/lsr/changing--flageolet-mark-size.ly
index 22724d65b1d3ef97fbfebb2b5f22691f8eeabb75..3f554f87c9209f85f4fda85dfac29fcd1cf81360 100644 (file)
--- a/input/lsr/changing--flageolet-mark-size.ly
+++ b/input/lsr/changing--flageolet-mark-size.ly
@@ -1,21 +1,35 @@
 %% 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.38"
+\version "2.11.64"
 
 \header {
-  lsrtags = "expressive-marks"
- texidoc = "
-To make the \\flageolet circle smaller you can use the following scheme
-code (found in the Lilypond-user-archive)
-" }
-% begin verbatim
-F = #(let ((m (make-music 'ArticulationEvent
+  lsrtags = "expressive-marks, unfretted-strings"
+
+  texidoces = "
+Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
+utilice la siguiente función de Scheme.
+
+"
+  doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
+
+  texidoc = "
+To make the @code{\\flageolet} circle smaller use the following Scheme
+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)
 
-\relative c'' { d4^\flageolet_\markup {"orginal \flageolet "} d4_\flageolet
-  c4^\F_\markup {smaller } c4_\F 
+\layout { ragged-right = ##f }
+
+\relative c'' {
+  d4^\flageolet_\markup { default size } d_\flageolet
+  c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
 }