LilyPond wiki - Recent changes [en]

Lowest and highest pitch as chord

Manuela — Sun, 03 May 2026 11:07:16 GMT

Code replaced with Harm's version from the German Lilypond forum

@@ Line 1: / Line 1: @@
-This code returns the lowest and the highest pitch of a music expression as chord.
+Takes <code>MUSIC</code> and returns sequential music, simultaneous music or an event-chord
-The duration of the chord can be chosen arbitrarily as input parameter.
+<lilypond version="2.26.0" >
-You can easily change the chord to a fixed duration. You can even chose different durations for the pitches in the chord.
+#(define (make-note-event pitch duration)
+  "Takes PITCH and DURATION and returns a NoteEvent."
-<lilypond version="2.26.0" >
+  (make-music
-%% This snippets returns the lowest and the highest pitch
+extrema =
-%% of a music expression als chord
+#(define-music-function (proc m music duration)
-%% the duration of the chord is passed as argument
+  ((procedure? identity) ly:music? ly:music? ly:duration?)
-myambitus =
+testMus = \relative { d' e fis g a b cis }
-#(define-music-function (mus dur)(ly:music? ly:duration?)
-   (let*
+{ \extrema {} \testMus 4 }
+%% Below, preceed with \new Staff to avoid implicit creation of two staves
-      (alle-pitches
+{ \extrema <<>> \testMus 4 }
-       (let loop ((mus mus) (pitches '()))
+{ \extrema <> \testMus 4 }
-mymus = \relative { c' c f,, }
+%% Get only bottom or top note
-{ \clef bass \myambitus \mymus #(ly:make-duration 0) }
+{ \extrema #first {} \testMus 4 }
-{ \clef bass \myambitus \transpose c e \mymus 2. }
+{ \extrema #last {} \testMus 4 }</lilypond>
 [[Category:Pitches]]
 [[Category:Scheme]]

User:Manuela/lowest and highest pitch as chord

Manuela — Sun, 03 May 2026 08:04:38 GMT

Manuela moved page User:Manuela/lowest and highest pitch as chord to Lowest and highest pitch as chord

← Older revision		Revision as of 08:04, 3 May 2026
(One intermediate revision by the same user not shown)
Line 1:		Line 1:
	This code returns the lowest and the highest pitch of a music expression as chord.		This code returns the lowest and the highest pitch of a music expression as chord.

	The duration of the chord can be chosen arbitrarily.		The duration of the chord can be chosen arbitrarily as input parameter.

	You can easily change the chord to a fixed duration.		You can easily change the chord to a fixed duration. You can even chose different durations for the pitches in the chord.

	<lilypond version="2.26.0" >		<lilypond version="2.26.0" >

User:Manuela/lowest and highest pitch as chord

Manuela — Sun, 03 May 2026 07:52:45 GMT

Created page with "This code returns the lowest and the highest pitch of a music expression as chord. The duration of the chord can be chosen arbitrarily. You can easily change the chord to a fixed duration. <lilypond version="2.26.0" > %% This snippets returns the lowest and the highest pitch %% of a music expression als chord %% the duration of the chord is passed as argument myambitus = #(define-music-function (mus dur)(ly:music? ly:duration?) (let* ( (alle-pitches..."

New page

This code returns the lowest and the highest pitch of a music expression as chord.

The duration of the chord can be chosen arbitrarily.

You can easily change the chord to a fixed duration.

<lilypond version="2.26.0" >

%% This snippets returns the lowest and the highest pitch
%% of a music expression als chord
%% the duration of the chord is passed as argument

myambitus =
#(define-music-function (mus dur)(ly:music? ly:duration?)
(let*
(
(alle-pitches
(let loop ((mus mus) (pitches '()))
(let ((p (ly:music-property mus 'pitch)))
(if (ly:pitch? p)
(cons p pitches)
(let ((elt (ly:music-property mus 'element)))
(fold loop
(if (ly:music? elt)
(loop elt pitches)
pitches)
(ly:music-property mus 'elements)))))))
(alle-sortiert (sort alle-pitches ly:pitch<?))
(tief (car alle-sortiert))
(hoch (car (reverse alle-sortiert)))
)
; (display tief )(display hoch)
; (write-me "alle pitches----> " (list? alle-pitches))
(make-music
'EventChord 'elements
(list
(make-music
'NoteEvent
'duration
dur
'pitch
tief)
(make-music
'NoteEvent
'pitch
hoch
'duration
dur)))
))

mymus = \relative { c' c f,, }
{ \clef bass \myambitus \mymus #(ly:make-duration 0) }
{ \clef bass \myambitus \transpose c e \mymus 2. }
</lilypond>
[[Category:Pitches]]
[[Category:Scheme]]

Typesetting IPA transcriptions for lyrics

Gabriel Ellsworth — Fri, 01 May 2026 18:23:12 GMT

I updated the code for version 2.26 and added the \eventCount function.

Show changes

Aligning lyrics based on vowels

Gabriel Ellsworth — Thu, 30 Apr 2026 16:27:34 GMT

Created page with "This snippet shows how, in music with lyrics, you can align lyrics based on where vowels fall within <code>LyricText</code> items. In each measure of this snippet, '''the first note demonstrates the use of these functions''', and the second note shows LilyPond’s default alignment. '''Source:''' Solution by Kieren MacMillan posted to the mailing list [https://lists.gnu.org/archive/html/lilypond-user/2026-01/msg00334.html in this thread]. The code for this solution was..."

New page

This snippet shows how, in music with lyrics, you can align lyrics based on where vowels fall within <code>LyricText</code> items.

In each measure of this snippet, '''the first note demonstrates the use of these functions''', and the second note shows LilyPond’s default alignment.

'''Source:''' Solution by Kieren MacMillan posted to the mailing list [https://lists.gnu.org/archive/html/lilypond-user/2026-01/msg00334.html in this thread]. The code for this solution was inspired by [[Center lyric syllables (ignoring punctuation)]].

<lilypond version="2.26">
% View this snippet online:
% https://wiki.lilypond.community/wiki/Aligning_lyrics_based_on_vowels

% Define the set of characters that will be
% classified as vowels for these commands:
#(define vowel-set
(list->char-set
(string->list "AÁÀÃÂÆǼEÉÈÊIÍÌÎOÓÒÕÔŒU
ÚÙÛYaáàãâæǽeéèêiíìîoóòõôœuúùûy")))
% Tweak this set based on your needs.
% For example, if your lyrics are in a language
% in which ⟨y⟩ is *always* pronounced as a vowel,
% you will want to make sure that Y and y are in your list.

% This function returns the width of the
% grob (stencil) for a given piece of text.
#(define (width grob text)
(let* ((X-extent
(ly:stencil-extent (grob-interpret-markup grob text) X)))
(if (interval-empty? X-extent)
0
(cdr X-extent))))

% This callback sets the alignment point of a LyricText grob
% to the centre of the first vowel that it contains.
#(define (center-on-first-vowel grob)
(let* ((text (ly:grob-property-data grob 'text))
(syllable (markup->string text))
(vowel-position
(if (string-index syllable vowel-set)
(string-index syllable vowel-set)
0))
(vowel-end
(if (string-index syllable vowel-set)
(+ (string-index syllable vowel-set) 1)
(string-length syllable)))
(preword (substring syllable 0 vowel-position))
(word (substring syllable vowel-position vowel-end))
(preword-width (width grob preword))
(word-width (width grob
(if (string-null? syllable) text word)))
(note-column (ly:grob-parent grob X))
(note-column-extent (ly:grob-extent
note-column note-column X))
(note-column-width (interval-length note-column-extent))
(self-X (ly:grob-property-data grob 'self-alignment-X)))
(-
(*
(/ (- note-column-width word-width) 2)
(1+ (if (procedure? self-X) (self-X grob) self-X)))
preword-width)))

% This callback sets the alignment point of a LyricText grob
% to the point midway between its first and last vowels.
#(define (center-between-vowels grob)
(let* ((text (ly:grob-property-data grob 'text))
(syllable (markup->string text))
(word-position
(if (string-index syllable vowel-set)
(string-index syllable vowel-set)
0))
(word-end
(if (string-index-right syllable vowel-set)
(+ (string-index-right syllable vowel-set) 1)
(string-length syllable)))
(preword (substring syllable 0 word-position))
(word (substring syllable word-position word-end))
(preword-width (width grob preword))
(word-width (width grob
(if (string-null? syllable) text word)))
(note-column (ly:grob-parent grob X))
(note-column-extent (ly:grob-extent
note-column note-column X))
(note-column-width (interval-length note-column-extent))
(self-X (ly:grob-property-data grob 'self-alignment-X)))

(-
(*
(/ (- note-column-width word-width) 2)
(1+ (if (procedure? self-X) (self-X grob) self-X)))
preword-width)))

% Helper functions that use the above code:
cvs = \once \override LyricText.X-offset = #center-between-vowels
cfv = \once \override LyricText.X-offset = #center-on-first-vowel

\fixed c' {
\*8 { f2 f }
% The command \* requires
% version 2.25 or later.
% For version 2.24, use
% \repeat unfold 8
}

\addlyrics {
\cfv piste piste
\cfv “O—!!!” “O—!!!”
\cvs “O—!!!” “O—!!!”
\cfv blessed blessed
\cfv heaven heaven
\cvs heav’n heav’n
\cvs youths youths
\cvs each each
}
</lilypond>

If you want to apply one of these functions globally, you can place either of the following in your <code>\layout</code> block:
<br>
<code>\override Score.LyricText.X-offset = #center-between-vowels
</code>
<br>
<code>\override Score.LyricText.X-offset = #center-on-first-vowel</code>

If you then need to switch off the function locally, use <code>\once \revert LyricText.X-offset</code>.
[[Category:Vocal music]]
[[Category:Text]]
[[Category:Tweaks and overrides]]
[[Category:Scheme]]
[[Category:Spacing]]
[[Category:Snippet]]