Metronome marks with more options - Revision history

Lemzwerg at 06:09, 1 February 2026

2026-02-01T06:09:54Z

← Older revision		Revision as of 06:09, 1 February 2026
Line 15:		Line 15:
	This snippet is based on a snippet by Arnold Theresius. The original snippet create a formatter called <code>format-metronome-markup-approx</code>, and the default value to <code>tempoEquationText</code> in that snippet is "≈". I changed back this default to LilyPond default, and added the <code>tempoBetweenText</code> property. Also, I changed the sizing of some elements, as described above.		This snippet is based on a snippet by Arnold Theresius. The original snippet create a formatter called <code>format-metronome-markup-approx</code>, and the default value to <code>tempoEquationText</code> in that snippet is "≈". I changed back this default to LilyPond default, and added the <code>tempoBetweenText</code> property. Also, I changed the sizing of some elements, as described above.

	'''[~~http://lsr~~.~~di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''~~		Arnold's original code is available in snippet [[Tempo (metronome) marks with approximation sign]].

	<lilypond version="2.24~~" full="~~">		<lilypond version="2.24">
	%%		%%
	% Metronome markup formatter, with more options than the LilyPond		% Metronome markup formatter, with more options than the LilyPond

Ksnortum: Consistent spelling of LilyPond

2026-01-31T17:12:13Z

Consistent spelling of LilyPond

← Older revision		Revision as of 17:12, 31 January 2026
Line 8:		Line 8:
	This snippet also changes the size of metronome marks:		This snippet also changes the size of metronome marks:

	* the text (e.g., '''Allegro''') is a bit larger than the default of ~~Lilypond~~.		* the text (e.g., '''Allegro''') is a bit larger than the default of LilyPond.
	* the note (e.g., ♪) is a bit smaller than the default of ~~Lilypond~~.		* the note (e.g., ♪) is a bit smaller than the default of LilyPond.

	'''IMPORTANT:'''		'''IMPORTANT:'''

	This snippet is based on a snippet by Arnold Theresius. The original snippet create a formatter called <code>format-metronome-markup-approx</code>, and the default value to <code>tempoEquationText</code> in that snippet is "≈". I changed back this default to ~~Lilypond~~ default, and added the <code>tempoBetweenText</code> property. Also, I changed the sizing of some elements, as described above.		This snippet is based on a snippet by Arnold Theresius. The original snippet create a formatter called <code>format-metronome-markup-approx</code>, and the default value to <code>tempoEquationText</code> in that snippet is "≈". I changed back this default to LilyPond default, and added the <code>tempoBetweenText</code> property. Also, I changed the sizing of some elements, as described above.

	'''[http://lsr.di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''		'''[http://lsr.di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''

	<lilypond version="2.24" full>		<lilypond version="2.24" full="">
	%%		%%
	% Metronome markup formatter, with more options than the ~~Lilypond~~		% Metronome markup formatter, with more options than the LilyPond
	% default formatter, and changes in sizing (see below).		% default formatter, and changes in sizing (see below).
	% Properties read:		% Properties read:
Line 32:		Line 32:
	% to this color.		% to this color.
	% Default: not set.		% Default: not set.
	% The size of the text ("Allegro" etc) is a bit larger than ~~Lilypond~~ default.		% The size of the text ("Allegro" etc) is a bit larger than LilyPond default.
	% Similarly, the size of the note is smaller than ~~Lilypond~~ default.		% Similarly, the size of the note is smaller than LilyPond default.
	%		%
	% To use this snippet, just \include this file. To revert default		% To use this snippet, just \include this file. To revert default
	% ~~Lilypond~~ formatter inside the score:		% LilyPond formatter inside the score:
	% \set Score.metronomeMarkFormatter = #format-metronome-markup		% \set Score.metronomeMarkFormatter = #format-metronome-markup
	%		%
Line 44:		Line 44:
	% snippet create a formatter called "format-metronome-markup-approx",		% snippet create a formatter called "format-metronome-markup-approx",
	% and the default value to tempoEquationText in that snippet is "≈".		% and the default value to tempoEquationText in that snippet is "≈".
	% I changed back this default to ~~Lilypond~~ default, and added the		% I changed back this default to LilyPond default, and added the
	% tempoBetweenText property.		% tempoBetweenText property.
	%		%
Line 75:		Line 75:
	#(define-public (metronome-markup-custom text dur count hide-note eq-sym-def bet-sym-def hide-paren col)		#(define-public (metronome-markup-custom text dur count hide-note eq-sym-def bet-sym-def hide-paren col)
	(let* ((note-mark (if (and (not hide-note) (ly:duration? dur))		(let* ((note-mark (if (and (not hide-note) (ly:duration? dur))
	(make-teeny-markup ; note smaller than ~~Lilypond~~ default		(make-teeny-markup ; note smaller than LilyPond default
	(make-note-by-number-markup (ly:duration-log dur)		(make-note-by-number-markup (ly:duration-log dur)
	(ly:duration-dot-count dur)		(ly:duration-dot-count dur)
Line 210:		Line 210:
	c'^" "_\markup \column {		c'^" "_\markup \column {
	"\\set Score.metronomeMarkFormatter = #format-metronome-markup"		"\\set Score.metronomeMarkFormatter = #format-metronome-markup"
	"(which is ~~LILYPOND~~'s default Metronome Mark Formatter)"		"(which is LilyPond's default Metronome Mark Formatter)"
	}		}

Lemzwerg: New category

2025-11-21T23:29:51Z

New category

← Older revision		Revision as of 23:29, 21 November 2025
Line 227:		Line 227:
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Tweaks and overrides]]		[[Category:Tweaks and overrides]]
	[[Category:Staff notation]][[Category:Snippet]]		[[Category:Staff notation]]
			[[Category:Snippet]]

Lemzwerg at 22:56, 21 November 2025

2025-11-21T22:56:13Z

← Older revision		Revision as of 22:56, 21 November 2025
Line 227:		Line 227:
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Tweaks and overrides]]		[[Category:Tweaks and overrides]]
	[[Category:Staff notation]]		[[Category:Staff notation]][[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:55:48Z

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:55, 16 November 2025
Line 17:		Line 17:
	'''[http://lsr.di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''		'''[http://lsr.di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	%%		%%
	% Metronome markup formatter, with more options than the Lilypond		% Metronome markup formatter, with more options than the Lilypond

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:43:31Z

Import snippet from LSR

New page

If you need, in '''metronome marks''':

* change the default <code>=</code> sign to other symbol, you can use the property <code>tempoEquationText</code>.
* change the default <code>-</code> sign between tempo values (e.g. 100-120) to, say, 100~120, you can use the property <code>tempoBetweenText</code>.
* hide the default parenthesis in metronome marks, you can set the property <code>tempoHideParenthesis</code> as <code>true</code>.
* change the color of the tempo value, you can use the property <code>tempoNumberColor</code>.

This snippet also changes the size of metronome marks:

* the text (e.g., '''Allegro''') is a bit larger than the default of Lilypond.
* the note (e.g., ♪) is a bit smaller than the default of Lilypond.

'''IMPORTANT:'''

This snippet is based on a snippet by Arnold Theresius. The original snippet create a formatter called <code>format-metronome-markup-approx</code>, and the default value to <code>tempoEquationText</code> in that snippet is "≈". I changed back this default to Lilypond default, and added the <code>tempoBetweenText</code> property. Also, I changed the sizing of some elements, as described above.

'''[http://lsr.di.unimi.it/LSR/Item?id=869 Original snippet by Arnold Theresius]'''

<lilypond version="2.24.0" full>
%%
% Metronome markup formatter, with more options than the Lilypond
% default formatter, and changes in sizing (see below).
% Properties read:
% - tempoEquationText: text to be put between note and tempo value(s)
% Default: "="
% - tempoBetweenText: text to be put between the tempo values. Used
% only in ranges of tempo values.
% Default: "-"
% - tempoHideParenthesis: boolean. If true, the parenthesis are hide.
% Default: false.
% - tempoNumberColor: color. If set, the tempo value will be formatted
% to this color.
% Default: not set.
% The size of the text ("Allegro" etc) is a bit larger than Lilypond default.
% Similarly, the size of the note is smaller than Lilypond default.
%
% To use this snippet, just \include this file. To revert default
% Lilypond formatter inside the score:
% \set Score.metronomeMarkFormatter = #format-metronome-markup
%
% tested: Version "2.21.2"
%
% This snippet is based on a snippet by Arnold Theresius. The original
% snippet create a formatter called "format-metronome-markup-approx",
% and the default value to tempoEquationText in that snippet is "≈".
% I changed back this default to Lilypond default, and added the
% tempoBetweenText property.
%
% Original header of the Theresius snippet:
%% http://lsr.di.unimi.it/LSR/Item?id=869

%by: ArnoldTheresius

%tested: Version "2.21.2"

% lilypond 2.14.x:
% Almost copied from .../scm/translation-functions.scm:
% --> added »-approx« to the function names of
% »format-metronome-markup« and »metronome-markup«
% --> replaced "=" with "≈" (approx. instead of equal)

#(define-public (format-metronome-markup-custom event context)
(let ((eq-sym-def (ly:context-property context 'tempoEquationText)) ; added option
(bet-sym-def (ly:context-property context 'tempoBetweenText)) ; added option
(hide-paren (eq? #t (ly:context-property context 'tempoHideParenthesis))) ; added option
(num-color (ly:context-property context 'tempoNumberColor #f)) ; added option
(hide-note (ly:context-property context 'tempoHideNote #f))
(text (ly:event-property event 'text))
(dur (ly:event-property event 'tempo-unit))
(count (ly:event-property event 'metronome-count)))

(metronome-markup-custom text dur count hide-note eq-sym-def bet-sym-def hide-paren num-color)))

#(define-public (metronome-markup-custom text dur count hide-note eq-sym-def bet-sym-def hide-paren col)
(let* ((note-mark (if (and (not hide-note) (ly:duration? dur))
(make-teeny-markup ; note smaller than Lilypond default
(make-note-by-number-markup (ly:duration-log dur)
(ly:duration-dot-count dur)
1))
#f))
(count-markup (cond ((number? count)
(if (> count 0)
(number->string count)
#f))
((pair? count)
(make-concat-markup
(list
(number->string (car count))
(ly:wide-char->utf-8 #x2009) ; x2009: "thin space"
(if (string? bet-sym-def)
bet-sym-def
(ly:wide-char->utf-8 #x2013)) ; x2013: "en dash"
(ly:wide-char->utf-8 #x2009) ; x2009: "thin space"
(number->string (cdr count)))))
(else #f)))
(note-markup (if (and (not hide-note) count-markup)
(make-concat-markup
(list
(make-general-align-markup Y DOWN note-mark)
" "
(if (string? eq-sym-def)
eq-sym-def
(ly:wide-char->utf-8 #x3d))
" "
(if (eq? col #f)
count-markup
(make-with-color-markup col count-markup))))
#f))
(text-markup (if (not (null? text))
(make-large-markup (make-bold-markup text)) ; text larger than Lilypond default
#f)))
(if text-markup
(if (and note-markup (not hide-note))
(make-line-markup (list text-markup
(if hide-paren
note-markup
(make-concat-markup
(list "("
note-markup
")")))))
(make-line-markup (list text-markup)))
(if note-markup
(make-line-markup (list note-markup))
(make-null-markup)))))

% Avoid errors of not defined properties
#(define (define-translator-property symbol type? description)
(if (not (and (symbol? symbol)
(procedure? type?)
(string? description)))
(ly:error "error in call of define-translator-property"))
(if (not (equal? (object-property symbol 'translation-doc) #f))
(ly:error (_ "symbol ~S redefined") symbol))

(set-object-property! symbol 'translation-type? type?)
(set-object-property! symbol 'translation-doc description)
symbol)

#(for-each
(lambda (x)
(apply define-translator-property x))
`((tempoHideParenthesis
,boolean?
"Hide the parenthesis around the metronome markup with text")
(tempoEquationText
,string?
"initially ''='' in the metronome markup")
(tempoBetweenText
,string?
"initially ''-'' in the metronome markup")
(tempoNumberColor
,list?
"alternate color, in which the tempo value should be displayed")))

% Sets this formatter as default formatter
\layout {
\context {
\Score
metronomeMarkFormatter = #format-metronome-markup-custom
}
}

%%% END of snippet. Below is an example of use
\paper {
system-system-spacing.basic-distance = #18
tagline = ##f
}

%\markup { \null \translate #'( 1 . -3 ) \null } % 2.14.2 LSR problem workaroud

\score {
\new Staff {
\tempo 4 = 80
c'1^" "_"»originally after included this code sample«"
\tempo "Allegro di Largo" 4 = 84
c' \break

\once \set Score.tempoHideParenthesis = ##t
\set Score.tempoEquationText = "≈"
\tempo "Allegro di Larghetto" 4 = 88
c'^" "_"\\once \\set Score.tempoHideParenthesis = ##t"
\break

\set Score.tempoEquationText = "= ca."
\tempo "Allegro lento" 4 = 96
c'^" "_"\\set Score.tempoEquationText = \"= ca.\""
\break

\unset Score.tempoEquationText
\once \set Score.tempoNumberColor = #red
\tempo 4 = 108
c'^" "_"\\unset Score.tempoEquationText \\set Score.tempoNumberColor = #red"
\break

\set Score.tempoNumberColor = #blue
\set Score.tempoEquationText = "="
\set Score.tempoBetweenText= "~"
\tempo "Allegro monumentale" 4 = 80-88
c'^" "_\markup \column {
"\\set Score.tempoNumberColor = #blue"
"\\set Score.tempoEquationText = \"=\""
"\\set Score.tempoBetweenText= \"~\""
}
\break

\set Score.metronomeMarkFormatter = #format-metronome-markup
\override TextScript.outside-staff-priority = #1000
\tempo "Tempo I" 4 = 80
c'^" "_\markup \column {
"\\set Score.metronomeMarkFormatter = #format-metronome-markup"
"(which is LILYPOND's default Metronome Mark Formatter)"
}

\bar "|."
}
\header {
piece = \markup \column {
"»Score.metronomeMarkFormatter = #format-metronome-markup-custom«"
"is assigned by a layout definition in this example"
%\null
}
}
}
</lilypond>

[[Category:Scheme]]
[[Category:Tweaks and overrides]]
[[Category:Staff notation]]