input/lsr/center-text-below-hairpin-dynamics.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.11.38"
   4
   5 \header {
   6   lsrtags = "expressive-marks, text"
   7  texidoc = "
   8 This example provides a function to typeset a hairpin (de)crescendo
   9 with some additional text below it, such as \"molto\" or \"poco\". The
  10 example also illustrates how to modify the way an object is normally
  11 printed, using some Scheme code.
  12 " }
  13 % begin verbatim
  14 hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
  15 #{
  16   \override Voice.Hairpin #'stencil = #(lambda (grob)
  17   (ly:stencil-aligned-to
  18    (ly:stencil-combine-at-edge
  19     (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
  20     Y DOWN
  21     (ly:stencil-aligned-to (ly:text-interface::print grob) X CENTER))
  22    X LEFT))
  23   \override Voice.Hairpin #'text = $text
  24 #})
  25
  26 hairpinMolto = \hairpinWithCenteredText \markup { \italic "molto" }
  27 hairpinMore = \hairpinWithCenteredText \markup { \bigger "moltissimo" }
  28
  29 {
  30   \hairpinMolto c'2\< c'2\f
  31   \hairpinMore  c'2\< c'2\f
  32 }