Transposing pitches with minimum accidentals (“smart” transpose) - Revision history

Lemzwerg at 13:09, 28 December 2025

2025-12-28T13:09:18Z

← Older revision		Revision as of 13:09, 28 December 2025
Line 12:		Line 12:
	#(define (naturalize-pitch p)		#(define (naturalize-pitch p)
	(let ((o (ly:pitch-octave p))		(let ((o (ly:pitch-octave p))
			;; `ly:pitch-alteration` returns quarter tone steps.
	(a (* 4 (ly:pitch-alteration p)))		(a (* 4 (ly:pitch-alteration p)))
	~~;; alteration, a, in quarter tone steps,~~
	~~;; for historical reasons~~
	(n (ly:pitch-notename p)))		(n (ly:pitch-notename p)))
	(cond		(cond
	((and (> a 1) (or (eqv? n 6) (eqv? n 2)))		((and (> a 1)
			(or (eqv? n 6) (eqv? n 2)))
	(set! a (- a 2))		(set! a (- a 2))
	(set! n (+ n 1)))		(set! n (+ n 1)))
	((and (< a -1) (or (eqv? n 0) (eqv? n 3)))		((and (< a -1)
			(or (eqv? n 0) (eqv? n 3)))
	(set! a (+ a 2))		(set! a (+ a 2))
	(set! n (- n 1))))		(set! n (- n 1))))
	(cond		(cond
	((> a 2) (set! a (- a 4)) (set! n (+ n 1)))		((> a 2)
	((< a -2) (set! a (+ a 4)) (set! n (- n 1))))		(set! a (- a 4))
	(if (< n 0) ~~(begin~~ (set! o (- o 1)) (set! n (+ n 7))))		(set! n (+ n 1)))
	(if (> n 6) ~~(begin~~ (set! o (+ o 1)) (set! n (- n 7))))		((< a -2)
			(set! a (+ a 4))
			(set! n (- n 1))))
			(when (< n 0)
			(set! o (- o 1))
			(set! n (+ n 7)))
			(when (> n 6)
			(set! o (+ o 1))
			(set! n (- n 7)))
	(ly:make-pitch o n (/ a 4))))		(ly:make-pitch o n (/ a 4))))

Line 34:		Line 43:
	(e (ly:music-property music 'element))		(e (ly:music-property music 'element))
	(p (ly:music-property music 'pitch)))		(p (ly:music-property music 'pitch)))
	(if (pair? es)		(when (pair? es)
	(ly:music-set-property!		(ly:music-set-property! music 'elements
	music 'elements		(map naturalize es)))
	(map naturalize es)))		(when (ly:music? e)
	(if (ly:music? e)		(ly:music-set-property! music 'element
	(ly:music-set-property!		(naturalize e)))
	music 'element		(when (ly:pitch? p)
	(naturalize e)))		(set! p (naturalize-pitch p))
	(if (ly:pitch? p)		(ly:music-set-property! music 'pitch p))
	~~(begin~~
	(set! p (naturalize-pitch p))
	(ly:music-set-property! music 'pitch p)))
	music))		music))

	naturalizeMusic =		naturalizeMusic =
	#(define-music-function (m)		#(define-music-function (m) (ly:music?)
	(ly:music?)
	(naturalize m))		(naturalize m))

	music = \relative c' { c4 d e g }		music = \relative c' { c4 d e g }

	~~\score {~~		\new Staff {
	\new Staff {		\transpose c ais { \music }
	\transpose c ais { \music }		\naturalizeMusic \transpose c ais { \music }
	\naturalizeMusic \transpose c ais { \music }		\transpose c deses { \music }
	\transpose c deses { \music }		\naturalizeMusic \transpose c deses { \music }
	\naturalizeMusic \transpose c deses { \music }
	}
	~~\layout {~~ }
	}		}
	</lilypond>		</lilypond>

Lemzwerg at 14:29, 29 November 2025

2025-11-29T14:29:01Z

← Older revision		Revision as of 14:29, 29 November 2025
Line 1:		Line 1:
	This example uses some Scheme code to enforce enharmonic modifications for notes in order to have the minimum number of accidentals. In this case, the following rules apply:		This example uses some Scheme code to enforce enharmonic modifications for notes in order to have the minimum number of accidentals. In this case, the following rules apply:

	~~Double~~ accidentals should be removed		* double accidentals should be removed
			* b sharp → c
	B sharp ~~-> C~~		* e sharp → f
			* c flat → b
	E sharp ~~-> F~~		* f flat → e

	C flat ~~-> B~~

	F flat ~~-> E~~

	In this manner, the most natural enharmonic notes are chosen.		In this manner, the most natural enharmonic notes are chosen.

Lemzwerg: Lemzwerg moved page Transposing pitches with minimum accidentals ("Smart" transpose) to Transposing pitches with minimum accidentals (“smart” transpose) without leaving a redirect: Only the first letter of a title should be uppercase

2025-11-24T05:49:51Z

Lemzwerg moved page Transposing pitches with minimum accidentals ("Smart" transpose) to Transposing pitches with minimum accidentals (“smart” transpose) without leaving a redirect: Only the first letter of a title should be uppercase

← Older revision	Revision as of 05:49, 24 November 2025
(No difference)

Lemzwerg: New category

2025-11-21T23:30:11Z

New category

← Older revision		Revision as of 23:30, 21 November 2025
Line 74:		Line 74:
	[[Category:Included in the official documentation]]		[[Category:Included in the official documentation]]
	[[Category:Workaround]]		[[Category:Workaround]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 23:01, 21 November 2025

2025-11-21T23:01:50Z

← Older revision		Revision as of 23:01, 21 November 2025
Line 74:		Line 74:
	[[Category:Included in the official documentation]]		[[Category:Included in the official documentation]]
	[[Category:Workaround]]		[[Category:Workaround]]
	[[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:58:06Z

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:58, 16 November 2025
Line 13:		Line 13:
	In this manner, the most natural enharmonic notes are chosen.		In this manner, the most natural enharmonic notes are chosen.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	#(define (naturalize-pitch p)		#(define (naturalize-pitch p)
	(let ((o (ly:pitch-octave p))		(let ((o (ly:pitch-octave p))

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:38:35Z

Import snippet from LSR

New page

This example uses some Scheme code to enforce enharmonic modifications for notes in order to have the minimum number of accidentals. In this case, the following rules apply:

Double accidentals should be removed

B sharp -> C

E sharp -> F

C flat -> B

F flat -> E

In this manner, the most natural enharmonic notes are chosen.

<lilypond version="2.24.0">
#(define (naturalize-pitch p)
(let ((o (ly:pitch-octave p))
(a (* 4 (ly:pitch-alteration p)))
;; alteration, a, in quarter tone steps,
;; for historical reasons
(n (ly:pitch-notename p)))
(cond
((and (> a 1) (or (eqv? n 6) (eqv? n 2)))
(set! a (- a 2))
(set! n (+ n 1)))
((and (< a -1) (or (eqv? n 0) (eqv? n 3)))
(set! a (+ a 2))
(set! n (- n 1))))
(cond
((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
(if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
(if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
(ly:make-pitch o n (/ a 4))))

#(define (naturalize music)
(let ((es (ly:music-property music 'elements))
(e (ly:music-property music 'element))
(p (ly:music-property music 'pitch)))
(if (pair? es)
(ly:music-set-property!
music 'elements
(map naturalize es)))
(if (ly:music? e)
(ly:music-set-property!
music 'element
(naturalize e)))
(if (ly:pitch? p)
(begin
(set! p (naturalize-pitch p))
(ly:music-set-property! music 'pitch p)))
music))

naturalizeMusic =
#(define-music-function (m)
(ly:music?)
(naturalize m))

music = \relative c' { c4 d e g }

\score {
\new Staff {
\transpose c ais { \music }
\naturalizeMusic \transpose c ais { \music }
\transpose c deses { \music }
\naturalizeMusic \transpose c deses { \music }
}
\layout { }
}
</lilypond>

[[Category:Scheme]]
[[Category:Pitches]]
[[Category:Included in the official documentation]]
[[Category:Workaround]]
[[Category:Scheme]]