LSR: Update.

[lilypond.git] / input / new / center-text-below-hairpin-dynamics.ly

diff --git a/input/new/center-text-below-hairpin-dynamics.ly b/input/new/center-text-below-hairpin-dynamics.ly
deleted file mode 100644 (file)
index 769f735..0000000
--- a/input/new/center-text-below-hairpin-dynamics.ly
+++ /dev/null
@@ -1,35 +0,0 @@
-\version "2.12.0"
-
-\header {
-  lsrtags = "expressive-marks, text"
-
-  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.
-"
-  doctitle = "Center text below hairpin dynamics"
-}
-
-hairpinWithCenteredText =
-#(define-music-function (parser location text) (markup?)
-#{
-  \override Voice.Hairpin #'stencil = #(lambda (grob)
-    (ly:stencil-aligned-to
-     (ly:stencil-combine-at-edge
-      (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
-      Y DOWN
-      (ly:stencil-aligned-to (grob-interpret-markup grob $text) X CENTER))
-     X LEFT))
-#})
-
-hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
-hairpinMore = \hairpinWithCenteredText \markup { \larger moltissimo }
-
-\layout { ragged-right = ##f }
-
-{
-  \hairpinMolto c'2\< c'\f
-  \hairpinMore  c'2\< c'\f
-}