Transposing pitched rests - Revision history

Lemzwerg: New category

2025-11-21T23:24:45Z

New category

← Older revision		Revision as of 23:24, 21 November 2025
Line 62:		Line 62:
	[[Category:Pitches]]		[[Category:Pitches]]
	[[Category:Tweaks and overrides]]		[[Category:Tweaks and overrides]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 23:01, 21 November 2025

2025-11-21T23:01:47Z

← Older revision		Revision as of 23:01, 21 November 2025
Line 62:		Line 62:
	[[Category:Pitches]]		[[Category:Pitches]]
	[[Category:Tweaks and overrides]]		[[Category:Tweaks and overrides]]
	[[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:57:14Z

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:57, 16 November 2025
Line 1:		Line 1:
	If pitched rests (entered with <code>\rest</code>) are transposed, the <code>\fixRests</code> helper function ensures that rests are not positioned on staff lines		If pitched rests (entered with <code>\rest</code>) are transposed, the <code>\fixRests</code> helper function ensures that rests are not positioned on staff lines

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	%% This code was originally written by Benkő Pál.		%% This code was originally written by Benkő Pál.
	%%		%%

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:36:44Z

Import snippet from LSR

New page

If pitched rests (entered with <code>\rest</code>) are transposed, the <code>\fixRests</code> helper function ensures that rests are not positioned on staff lines

<lilypond version="2.24.0" full>
%% This code was originally written by Benkő Pál.
%%
%% Taken from
%%
%% https://gitlab.com/lilypond/lilypond/-/issues/2249#note_339764389

#(define (round-pitch p)
"Move a rest half a space down if not on a line.

This is needed when transposing."
(let* ((o (ly:pitch-octave p))
(n (ly:pitch-notename p))
(m (* (floor (/ (+ (* 7 o) n) 2)) 2))
(a (remainder m 7))
(b (/ (- m a) 7)))
(ly:make-pitch b a 0)))

#(define (fix-rests music)
"Prepare a single pitched rest for transposition."
(let ((n (ly:music-property music 'name))
(p (ly:music-property music 'pitch)))
(if (and (ly:pitch? p) (eqv? n 'RestEvent))
(ly:music-set-property! music 'pitch (round-pitch p)))
music))

fixRests =
#(define-music-function (mus) (ly:music?)
"Apply 'fix-rests' to MUS."
(music-map (lambda (x) (fix-rests x)) mus))

mus = {
g'2 g'\rest g'1\rest g'\breve\rest
\break
}

{
\omit Staff.TimeSignature
\cadenzaOn

<>^"original"
\mus
<>^"transposed without adjusting rest positions"
\transpose g a \mus
% Note that there is a ZWNJ character (U+200C) between 'f' and 'i'
% to prevent the display of an 'fi' ligature.
<>^\markup { transposed with \typewriter "\f‌ixRests" }
\fixRests \transpose g a \mus
}

\paper {
indent = 0
line-width = 100\mm
tagline = ##f
}
</lilypond>

[[Category:Rhythms]]
[[Category:Pitches]]
[[Category:Tweaks and overrides]]
[[Category:Scheme]]