Normalized \transposition - Revision history

Lemzwerg: New category

2025-11-21T23:29:59Z

New category

← Older revision		Revision as of 23:29, 21 November 2025
Line 52:		Line 52:

	[[Category:Pitches]]		[[Category:Pitches]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 22:56, 21 November 2025

2025-11-21T22:56:43Z

← Older revision		Revision as of 22:56, 21 November 2025
Line 52:		Line 52:

	[[Category:Pitches]]		[[Category:Pitches]]
	[[Category:Scheme]]		[[Category:Scheme]][[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:52:08Z

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:52, 16 November 2025
Line 1:		Line 1:
	The \transposition command allows to typeset transposing parts. However, when multiple transposing instruments are used, one may want to normalize these transpositions to print the score in one single key. Here is how to achieve it.		The \transposition command allows to typeset transposing parts. However, when multiple transposing instruments are used, one may want to normalize these transpositions to print the score in one single key. Here is how to achieve it.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%% http://lsr.di.unimi.it/LSR/Item?id=697		%% http://lsr.di.unimi.it/LSR/Item?id=697
	%% see also http://lilypond.1069038.n5.nabble.com/LSR-v2-18-quot-Normalized-transposition-quot-does-not-compile-tc159368.html		%% see also http://lilypond.1069038.n5.nabble.com/LSR-v2-18-quot-Normalized-transposition-quot-does-not-compile-tc159368.html

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:45:30Z

Import snippet from LSR

New page

The \transposition command allows to typeset transposing parts. However, when multiple transposing instruments are used, one may want to normalize these transpositions to print the score in one single key. Here is how to achieve it.

<lilypond version="2.24.0">
%% http://lsr.di.unimi.it/LSR/Item?id=697
%% see also http://lilypond.1069038.n5.nabble.com/LSR-v2-18-quot-Normalized-transposition-quot-does-not-compile-tc159368.html

%LSR contributed by Jay Anderson http://lists.gnu.org/archive/html/lilypond-user/2008-06/msg00426.html
%% see upraded version by David Kastrup on Feb. 15, 2014.
%% "it might be worth just using quoted music for that: it automatically transforms itself into concert pitch."

#(define (adjust-note mus key currkey)
(cond ((eq? (ly:music-property mus 'name) 'NoteEvent)
(ly:music-transpose mus (car currkey)))
((and
(eq? (ly:music-property mus 'name) 'PropertySet)
(eq? (ly:music-property mus 'symbol) 'instrumentTransposition))
(set-car! currkey (ly:music-property mus 'value))
(ly:music-set-property! mus 'value (ly:make-pitch 0 0 0))
mus)
(else mus)))

normalizeTransposition =
#(define-music-function (key music) (ly:pitch? ly:music?)
(ly:music-transpose
(let ((currkey (list (ly:make-pitch 0 0 0))))
(music-map (lambda (x) (adjust-note x key currkey)) music))
(ly:pitch-negate key)))

music = \relative c' {
\time 4/4
\transposition f
c e g c |
\transposition ees
c, e g c |
\transposition d
c, e g c |
}

\score {
<<
\new Staff {
\music
}
\new Staff {
\normalizeTransposition f \music
}
>>
\layout {}
\midi {}
}
</lilypond>

[[Category:Pitches]]
[[Category:Scheme]]