]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/lsr/center-text-below-hairpin-dynamics.ly
Merge branch 'lilypond/translation' of ssh://trettig@git.sv.gnu.org/srv/git/lilypond...
[lilypond.git] / input / lsr / center-text-below-hairpin-dynamics.ly
index a26e579de9021bb5b29b0fff26b8a801cf300827..05995fd2a670d66eaf91b389cbe987ebeea54b88 100644 (file)
@@ -1,16 +1,19 @@
 %% 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.49"
 
 \header {
   lsrtags = "expressive-marks, text"
- texidoc = "
+
+  texidoc = "
 This example provides a function to typeset a hairpin (de)crescendo
 with some additional text below it, such as \"molto\" or \"poco\". The
 example also illustrates how to modify the way an object is normally
 printed, using some Scheme code.  
-" }
-% begin verbatim
+
+"
+  doctitle = "Center text below hairpin dynamics"
+} % begin verbatim
 hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
 #{
   \override Voice.Hairpin #'stencil = #(lambda (grob)
@@ -23,10 +26,12 @@ hairpinWithCenteredText = #(define-music-function (parser location text) (markup
   \override Voice.Hairpin #'text = $text
 #})
 
-hairpinMolto = \hairpinWithCenteredText \markup { \italic "molto" }
-hairpinMore = \hairpinWithCenteredText \markup { \bigger "moltissimo" }
+hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
+hairpinMore = \hairpinWithCenteredText \markup { \bigger moltissimo }
+
+\layout { ragged-right = ##f }
 
 {
-  \hairpinMolto c'2\< c'2\f
-  \hairpinMore  c'2\< c'2\f
+  \hairpinMolto c'2\< c'\f
+  \hairpinMore  c'2\< c'\f
 }