]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/center-text-below-hairpin-dynamics.ly
Doc: Add example of extending glissandi over repeats (2591)
[lilypond.git] / Documentation / snippets / center-text-below-hairpin-dynamics.ly
index edf4c835fa584a7ac120f22950bb752be0b41502..b69e4e0dffe29700ddb6bcaa31bda3d7ae2dcb7c 100644 (file)
@@ -4,7 +4,7 @@
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.17.0"
+\version "2.17.6"
 
 \header {
   lsrtags = "expressive-marks, really-cool, scheme-language, text"
@@ -24,17 +24,17 @@ some Scheme code.
 hairpinWithCenteredText =
 #(define-music-function (parser location text) (markup?)
 #{
-  \once \override Voice.Hairpin #'after-line-breaking =
+  \once \override Voice.Hairpin.after-line-breaking =
     #(lambda (grob)
       (let* ((stencil (ly:hairpin::print grob))
              (par-y (ly:grob-parent grob Y))
              (dir (ly:grob-property par-y 'direction))
              (new-stencil (ly:stencil-aligned-to
-                  (ly:stencil-combine-at-edge
-                    (ly:stencil-aligned-to stencil X CENTER)
-                    Y dir
-                    (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
-                    X LEFT))
+                          (ly:stencil-combine-at-edge
+                            (ly:stencil-aligned-to stencil X CENTER)
+                            Y dir
+                            (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
+                            X LEFT))
              (staff-space (ly:output-def-lookup (ly:grob-layout grob) 'staff-space))
              (staff-line-thickness (ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))
              (grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))