Lowest and highest pitch as chord - Revision history

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

2026-05-03T11:07:16Z

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]]

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

2026-05-03T08:04:37Z

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
(No difference)

Manuela at 07:58, 3 May 2026

2026-05-03T07:58:38Z

← Older revision		Revision as of 07:58, 3 May 2026
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" >

Manuela: 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. %% 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..."

2026-05-03T07:52:45Z

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]]