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
   8   texidoc = "
   9 This example provides a function to typeset a hairpin (de)crescendo
  10 with some additional text below it, such as \"molto\" or \"poco\". The
  11 example also illustrates how to modify the way an object is normally
  12 printed, using some Scheme code.
  13
  14 "
  15   doctitle = "Center text below hairpin dynamics"
  16 } % begin verbatim
  17 hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
  18 #{
  19   \override Voice.Hairpin #'stencil = #(lambda (grob)
  20   (ly:stencil-aligned-to
  21    (ly:stencil-combine-at-edge
  22     (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
  23     Y DOWN
  24     (ly:stencil-aligned-to (ly:text-interface::print grob) X CENTER))
  25    X LEFT))
  26   \override Voice.Hairpin #'text = $text
  27 #})
  28
  29 hairpinMolto = \hairpinWithCenteredText \markup { \italic "molto" }
  30 hairpinMore = \hairpinWithCenteredText \markup { \bigger "moltissimo" }
  31
  32 \layout { ragged-right = ##f }
  33
  34 {
  35   \hairpinMolto c'2\< c'2\f
  36   \hairpinMore  c'2\< c'2\f
  37 }