Center text below hairpin dynamics - Revision history

Lemzwerg at 08:41, 28 December 2025

2025-12-28T08:41:07Z

← Older revision		Revision as of 08:41, 28 December 2025
Line 9:		Line 9:
	\once \override Voice.Hairpin.after-line-breaking =		\once \override Voice.Hairpin.after-line-breaking =
	#(lambda (grob)		#(lambda (grob)
	(let* ((stencil (ly:hairpin::print grob))		(let* ((stencil (ly:hairpin::print grob))
	(par-y (ly:grob-parent grob Y))		(par-y (ly:grob-parent grob Y))
	(dir (ly:grob-property par-y 'direction))		(dir (ly:grob-property par-y 'direction))
	(staff-line-thickness		(staff-line-thickness
	(ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))		(ly:output-def-lookup (ly:grob-layout grob)
	(new-stencil (ly:stencil-aligned-to		'line-thickness))
	(ly:stencil-combine-at-edge		(new-stencil
			(ly:stencil-aligned-to
			(ly:stencil-combine-at-edge
	(ly:stencil-aligned-to stencil X CENTER)		(ly:stencil-aligned-to stencil X CENTER)
	Y dir		Y dir
	(ly:stencil-aligned-to		(ly:stencil-aligned-to
	(grob-interpret-markup		(grob-interpret-markup
	grob		grob
	(make-fontsize-markup		(make-fontsize-markup
	(magnification->font-size		(magnification->font-size
	(+ (ly:staff-symbol-staff-space grob)		(+ (ly:staff-symbol-staff-space grob)
	(/ staff-line-thickness 2)))		(/ staff-line-thickness 2)))
	text)) X CENTER))		text))
	X LEFT))		X CENTER))
	(staff-space (ly:output-def-lookup		X LEFT))
			(staff-space (ly:output-def-lookup
	(ly:grob-layout grob) 'staff-space))		(ly:grob-layout grob) 'staff-space))
	(par-x (ly:grob-parent grob X))		(par-x (ly:grob-parent grob X))
	(dyn-text (grob::has-interface par-x 'dynamic-text-interface))		(dyn-text (grob::has-interface par-x
	(dyn-text-stencil-x-length		'dynamic-text-interface))
			(dyn-text-stencil-x-length
	(if dyn-text		(if dyn-text
	(interval-length		(interval-length
	(ly:stencil-extent (ly:grob-property par-x 'stencil) X))		(ly:stencil-extent
	0))		(ly:grob-property par-x 'stencil) X))
	(x-shift		0))
	(if dyn-text		(x-shift
	(-		(if dyn-text (- (+ staff-space dyn-text-stencil-x-length)
	(+ staff-space dyn-text-stencil-x-length)		(* 0.5 staff-line-thickness))
	(* 0.5 staff-line-thickness)) 0)))		0)))
			(ly:grob-set-property! grob 'Y-offset 0)
	(ly:grob-set-property! grob 'Y-offset 0)		(ly:grob-set-property! grob
	(ly:grob-set-property! grob 'stencil		'stencil (ly:stencil-translate-axis
	(ly:stencil-translate-axis		new-stencil
	new-stencil		x-shift X))))
	x-shift X))))
	#})		#})

	hairpinMolto =		hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
	\hairpinWithCenteredText \markup { \italic molto }		hairpinMore = \hairpinWithCenteredText \markup { \larger moltissimo }

	hairpinMore =
	\hairpinWithCenteredText \markup { \larger moltissimo }

	\relative c' {		\relative c' {
	\hairpinMolto		\hairpinMolto c2\< c\f
	c2\< c\f		\hairpinMore c2\ppppp\< c\f
	\hairpinMore
	c2\ppppp\< c\f
	\break		\break
	\hairpinMolto		\hairpinMolto c2^\< c\f
	c2^\< c\f		\hairpinMore c2\ppppp\< c\f
	\hairpinMore
	c2\ppppp\< c\f
	}		}
	</lilypond>		</lilypond>

Lemzwerg at 15:29, 12 December 2025

2025-12-12T15:29:01Z

← Older revision		Revision as of 15:29, 12 December 2025
Line 69:		Line 69:

	[[Category:Expressive marks]]		[[Category:Expressive marks]]
			[[Category:Really cool]]
			[[Category:Scheme]]
	[[Category:Text]]		[[Category:Text]]
	~~[[Category:Scheme]]~~
	~~[[Category:Really cool]]~~
	[[Category:Included in the official documentation]]		[[Category:Included in the official documentation]]
	[[Category:Snippet]]		[[Category:Snippet]]

Lemzwerg at 13:33, 3 December 2025

2025-12-03T13:33:38Z

← Older revision		Revision as of 13:33, 3 December 2025
Line 1:		Line 1:
	This example provides a function to typeset a hairpin (de)crescendo with some additional text below it, such as “molto” or “poco”. The added text will change the direction according to the direction of the hairpin. The Hairpin is aligned to DynamicText.		This example provides a function to typeset a hairpin (de)crescendo with some additional text below it, such as “molto” or “poco”. The added text will change the direction according to the direction of the hairpin. The Hairpin is aligned to a <code>DynamicText</code> grob.

	The example also illustrates how to modify the way an object is normally printed, using some Scheme code.		The example also illustrates how to modify the way an object is normally printed, using some Scheme code.

	<lilypond version="2.24" ~~full~~>		<lilypond version="2.24">
	~~\paper { tagline = ##f }~~

	hairpinWithCenteredText =		hairpinWithCenteredText =
	#(define-music-function (text) (markup?)		#(define-music-function (text) (markup?)
Line 56:		Line 54:
	hairpinMore =		hairpinMore =
	\hairpinWithCenteredText \markup { \larger moltissimo }		\hairpinWithCenteredText \markup { \larger moltissimo }

	~~\layout { ragged-right = ##f }~~

	\relative c' {		\relative c' {

Lemzwerg: New category

2025-11-21T23:15:25Z

New category

← Older revision		Revision as of 23:15, 21 November 2025
Line 76:		Line 76:
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Included in the official documentation]][[Category:Snippet]]		[[Category:Included in the official documentation]]
			[[Category:Snippet]]

Lemzwerg at 22:48, 21 November 2025

2025-11-21T22:48:38Z

← Older revision		Revision as of 22:48, 21 November 2025
Line 76:		Line 76:
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Included in the official documentation]]		[[Category:Included in the official documentation]][[Category:Snippet]]

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

2025-11-16T18:49:41Z

Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

← Older revision		Revision as of 18:49, 16 November 2025
Line 3:		Line 3:
	The example also illustrates how to modify the way an object is normally printed, using some Scheme code.		The example also illustrates how to modify the way an object is normally printed, using some Scheme code.

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	\paper { tagline = ##f }		\paper { tagline = ##f }

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:38:32Z

Import snippet from LSR

New page

This example provides a function to typeset a hairpin (de)crescendo with some additional text below it, such as “molto” or “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.

<lilypond version="2.24.0" full>
\paper { tagline = ##f }

hairpinWithCenteredText =
#(define-music-function (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))
(staff-line-thickness
(ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))
(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
(make-fontsize-markup
(magnification->font-size
(+ (ly:staff-symbol-staff-space grob)
(/ staff-line-thickness 2)))
text)) X CENTER))
X LEFT))
(staff-space (ly:output-def-lookup
(ly:grob-layout grob) 'staff-space))
(par-x (ly:grob-parent grob X))
(dyn-text (grob::has-interface par-x 'dynamic-text-interface))
(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))))
#})

hairpinMolto =
\hairpinWithCenteredText \markup { \italic molto }

hairpinMore =
\hairpinWithCenteredText \markup { \larger moltissimo }

\layout { ragged-right = ##f }

\relative c' {
\hairpinMolto
c2\< c\f
\hairpinMore
c2\ppppp\< c\f
\break
\hairpinMolto
c2^\< c\f
\hairpinMore
c2\ppppp\< c\f
}
</lilypond>

[[Category:Expressive marks]]
[[Category:Text]]
[[Category:Scheme]]
[[Category:Really cool]]
[[Category:Included in the official documentation]]