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.55"
   4
   5 \header {
   6   lsrtags = "expressive-marks, text"
   7
   8   texidoces = "
   9 Este ejemplo proporciona una función para tipografiar un regulador
  10 con texto por debajo, como \"molto\" o \"poco\". El ejemplo
  11 ilustra también cómo modificar la manera en que se imprime
  12 normalmente un objeto, utilizando código de Scheme.
  13
  14 "
  15   doctitlees = "Centrar texto debajo de un regulador"
  16
  17   texidoc = "
  18 This example provides a function to typeset a hairpin (de)crescendo
  19 with some additional text below it, such as \"molto\" or \"poco\". The
  20 example also illustrates how to modify the way an object is normally
  21 printed, using some Scheme code.
  22
  23 "
  24   doctitle = "Center text below hairpin dynamics"
  25 } % begin verbatim
  26 hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
  27 #{
  28   \override Voice.Hairpin #'stencil = #(lambda (grob)
  29   (ly:stencil-aligned-to
  30    (ly:stencil-combine-at-edge
  31     (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
  32     Y DOWN
  33     (ly:stencil-aligned-to (ly:text-interface::print grob) X CENTER))
  34    X LEFT))
  35   \override Voice.Hairpin #'text = $text
  36 #})
  37
  38 hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
  39 hairpinMore = \hairpinWithCenteredText \markup { \bigger moltissimo }
  40
  41 \layout { ragged-right = ##f }
  42
  43 {
  44   \hairpinMolto c'2\< c'\f
  45   \hairpinMore  c'2\< c'\f
  46 }