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.
6 lsrtags = "expressive-marks, text"
8 %% Translation of GIT committish: dff50e8e1d3134657a6b6203b9c93826dc4cef65
10 Este ejemplo proporciona una función para tipografiar un regulador
11 con texto por debajo, como \"molto\" o \"poco\". El ejemplo
12 ilustra también cómo modificar la manera en que se imprime
13 normalmente un objeto, utilizando código de Scheme.
16 doctitlees = "Centrar texto debajo de un regulador"
19 This example provides a function to typeset a hairpin (de)crescendo
20 with some additional text below it, such as \"molto\" or \"poco\". The
21 example also illustrates how to modify the way an object is normally
22 printed, using some Scheme code.
25 doctitle = "Center text below hairpin dynamics"
28 hairpinWithCenteredText =
29 #(define-music-function (parser location text) (markup?)
31 \override Voice.Hairpin #'stencil = #(lambda (grob)
32 (ly:stencil-aligned-to
33 (ly:stencil-combine-at-edge
34 (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
36 (ly:stencil-aligned-to (grob-interpret-markup grob $text) X CENTER))
40 hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
41 hairpinMore = \hairpinWithCenteredText \markup { \larger moltissimo }
43 \layout { ragged-right = ##f }