%% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% generated from LSR http://lsr.di.unimi.it
%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.17.0"
+\version "2.18.0"
\header {
lsrtags = "expressive-marks, really-cool, scheme-language, text"
This example provides a function to typeset a hairpin (de)crescendo
with some additional text below it, such as @qq{molto} or @qq{poco}.
The added text will change the direction according to the direction of
-the hairpin. The Hairpin is aligned to DynamicText. The example also
-illustrates how to modify the way an object is normally printed, using
-some Scheme code.
+the hairpin. The Hairpin is aligned to DynamicText.
+
+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?)
-#{
- \once \override Voice.Hairpin #'after-line-breaking =
- #(lambda (grob)
- (let* ((stencil (ly:hairpin::print grob))
- (par-y (ly:grob-parent grob Y))
- (dir (ly:grob-property par-y 'direction))
- (new-stencil (ly:stencil-aligned-to
- (ly:stencil-combine-at-edge
- (ly:stencil-aligned-to stencil X CENTER)
- Y dir
- (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
- X LEFT))
- (staff-space (ly:output-def-lookup (ly:grob-layout grob) 'staff-space))
- (staff-line-thickness (ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))
- (grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))
- (par-x (ly:grob-parent grob X))
- (dyn-text (eq? (grob-name par-x) 'DynamicText ))
- (dyn-text-stencil-x-length (if dyn-text
- (interval-length (ly:stencil-extent (ly:grob-property par-x 'stencil) X))
- 0))
- (x-shift (if dyn-text (- (+ staff-space dyn-text-stencil-x-length) (* 0.5 staff-line-thickness)) 0)))
+ #{
+ \once \override Voice.Hairpin.after-line-breaking =
+ #(lambda (grob)
+ (let* ((stencil (ly:hairpin::print grob))
+ (par-y (ly:grob-parent grob Y))
+ (dir (ly:grob-property par-y 'direction))
+ (new-stencil (ly:stencil-aligned-to
+ (ly:stencil-combine-at-edge
+ (ly:stencil-aligned-to stencil X CENTER)
+ Y dir
+ (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
+ X LEFT))
+ (staff-space (ly:output-def-lookup (ly:grob-layout grob) 'staff-space))
+ (staff-line-thickness
+ (ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))
+ (grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))
+ (par-x (ly:grob-parent grob X))
+ (dyn-text (eq? (grob-name par-x) 'DynamicText ))
+ (dyn-text-stencil-x-length
+ (if dyn-text
+ (interval-length
+ (ly:stencil-extent (ly:grob-property par-x 'stencil) X))
+ 0))
+ (x-shift
+ (if dyn-text
+ (-
+ (+ staff-space dyn-text-stencil-x-length)
+ (* 0.5 staff-line-thickness)) 0)))
- (ly:grob-set-property! grob 'Y-offset 0)
- (ly:grob-set-property! grob 'stencil
- (ly:stencil-translate-axis
- new-stencil
- x-shift X))))
-#})
+ (ly:grob-set-property! grob 'Y-offset 0)
+ (ly:grob-set-property! grob 'stencil
+ (ly:stencil-translate-axis
+ new-stencil
+ x-shift X))))
+ #})
hairpinMolto =
\hairpinWithCenteredText \markup { \italic molto }