Splitting chords - Revision history

Jean Abou Samra at 09:51, 7 April 2026

2026-04-07T09:51:33Z

← Older revision		Revision as of 09:51, 7 April 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNote</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNote</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.

	Note that these functions don't support <~~samp~~>q</~~samp~~> to repeat the last chord.		Note that these functions don't support <code>q</code> to repeat the last chord.

	<lilypond version="2.24">		<lilypond version="2.24">
Line 11:		Line 11:

	keepOnlyFirstNote =		keepOnlyFirstNote =
	#(define-music-function (~~parser location~~ music) (ly:music?)		#(define-music-function (music) (ly:music?)
	(music-map		(music-map
	(lambda (evt)		(lambda (evt)
Line 25:		Line 25:

	deleteFirstNote =		deleteFirstNote =
	#(define-music-function (~~parser location~~ music) (ly:music?)		#(define-music-function (music) (ly:music?)
	(music-map		(music-map
	(lambda (evt)		(lambda (evt)

Lemzwerg at 03:53, 7 April 2026

2026-04-07T03:53:53Z

← Older revision		Revision as of 03:53, 7 April 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNote</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNote</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.

	Note that these ~~function~~ don't support <samp>q</samp> to repeat the last chord.		Note that these functions don't support <samp>q</samp> to repeat the last chord.

	<lilypond version="2.24">		<lilypond version="2.24">

Lemzwerg: Not sure how it could happen that changing a single letter in the docstring completely ruined the rendering...

2026-04-07T03:51:40Z

Not sure how it could happen that changing a single letter in the docstring completely ruined the rendering...

← Older revision		Revision as of 03:51, 7 April 2026
Line 3:		Line 3:
	Note that these function don't support <samp>q</samp> to repeat the last chord.		Note that these function don't support <samp>q</samp> to repeat the last chord.

	<~~span></span>~~		<lilypond version="2.24">
	\version "2.24"		#(define (has-duration? music)
			(ly:duration? (ly:music-property music 'duration)))
	#(define (has-duration? music)
	(ly:duration? (ly:music-property music 'duration)))		#(define (not-has-duration? music)
			(not (has-duration? music)))
	#(define (not-has-duration? music)
	(not (has-duration? music)))		keepOnlyFirstNote =
			#(define-music-function (parser location music) (ly:music?)
	keepOnlyFirstNote =		(music-map
	#(define-music-function (parser location music) (ly:music?)		(lambda (evt)
	(music-map		(when (eq? 'EventChord (ly:music-property evt 'name))
	(lambda (evt)
	(when (eq? 'EventChord (ly:music-property evt 'name))
	(let ((elts (ly:music-property evt 'elements)))		(let ((elts (ly:music-property evt 'elements)))
	(when (has-duration? (car elts))		(when (has-duration? (car elts))
Line 23:		Line 21:
	(cons (car elts)		(cons (car elts)
	(filter not-has-duration? (cdr elts)))))))		(filter not-has-duration? (cdr elts)))))))
	evt)		evt)
	music))		music))

	deleteFirstNote =		deleteFirstNote =
	#(define-music-function (parser location music) (ly:music?)		#(define-music-function (parser location music) (ly:music?)
	(music-map		(music-map
	(lambda (evt)		(lambda (evt)
	(when (eq? 'EventChord (ly:music-property evt 'name))		(when (eq? 'EventChord (ly:music-property evt 'name))
	(let ((elts (ly:music-property evt 'elements)))		(let ((elts (ly:music-property evt 'elements)))
	(when (has-duration? (car elts))		(when (has-duration? (car elts))
	(ly:music-set-property! evt 'elements (cdr elts)))))		(ly:music-set-property! evt 'elements (cdr elts)))))
	evt)		evt)
	music))		music))


	music = \relative c' {		music = \relative c' {
	<c e>4-> <d f>( ~~<nowiki>~~<b g'>) <c e>-. g2 c2~~</nowiki>~~		<c e>4-> <d f>( <b g'>) <c e>-. g2 c2
	}		}

			\markup { Music with chords }
	\markup { Music with chords }		\new Staff \music
	\new Staff \music
			\markup { Music split into two staves }
	\markup { Music split into two ~~staffs~~ }		<<
	<<		\new Staff \deleteFirstNote \music
	\new Staff \deleteFirstNote \music		\new Staff \keepOnlyFirstNote \music
	\new Staff \keepOnlyFirstNote \music		>>
	>>		</lilypond>
	~~<span>~~</~~span~~>

	[[category:Chords]]		[[category:Chords]]
	[[category:Scheme]]		[[category:Scheme]]
	[[category:Really cool]]		[[category:Really cool]]

Ksnortum: Node -> Note

2026-04-06T22:09:35Z

Node -> Note

← Older revision		Revision as of 22:09, 6 April 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\~~keepOnlyFirstNode~~</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNote</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.

	Note that these function don't support <samp>q</samp> to repeat the last chord.		Note that these function don't support <samp>q</samp> to repeat the last chord.

	<~~lilypond~~ version="2.24">		<span></span>
	#(define (has-duration? music)		\version "2.24"
	(ly:duration? (ly:music-property music 'duration)))
			#(define (has-duration? music)
	#(define (not-has-duration? music)		(ly:duration? (ly:music-property music 'duration)))
	(not (has-duration? music)))
			#(define (not-has-duration? music)
	keepOnlyFirstNote =		(not (has-duration? music)))
	#(define-music-function (parser location music) (ly:music?)
	(music-map		keepOnlyFirstNote =
	(lambda (evt)		#(define-music-function (parser location music) (ly:music?)
	(when (eq? 'EventChord (ly:music-property evt 'name))		(music-map
	(let ((elts (ly:music-property evt 'elements)))		(lambda (evt)
	(when (has-duration? (car elts))		(when (eq? 'EventChord (ly:music-property evt 'name))
	(ly:music-set-property!		(let ((elts (ly:music-property evt 'elements)))
	evt 'elements		(when (has-duration? (car elts))
	(cons (car elts)		(ly:music-set-property!
	(filter not-has-duration? (cdr elts)))))))		evt 'elements
	evt)		(cons (car elts)
	music))		(filter not-has-duration? (cdr elts)))))))
			evt)
	deleteFirstNote =		music))
	#(define-music-function (parser location music) (ly:music?)
	(music-map		deleteFirstNote =
	(lambda (evt)		#(define-music-function (parser location music) (ly:music?)
	(when (eq? 'EventChord (ly:music-property evt 'name))		(music-map
	(let ((elts (ly:music-property evt 'elements)))		(lambda (evt)
	(when (has-duration? (car elts))		(when (eq? 'EventChord (ly:music-property evt 'name))
	(ly:music-set-property! evt 'elements (cdr elts)))))		(let ((elts (ly:music-property evt 'elements)))
	evt)		(when (has-duration? (car elts))
	music))		(ly:music-set-property! evt 'elements (cdr elts)))))
			evt)
			music))
	music = \relative c' {
	<c e>4-> <d f>( <b g'>) <c e>-. g2 c2
	}		music = \relative c' {
			<c e>4-> <d f>( <nowiki><b g'>) <c e>-. g2 c2</nowiki>
			}
	\markup { Music with chords }
	\new Staff \music
			\markup { Music with chords }
	\markup { Music split into two staffs }		\new Staff \music
	<<
	\new Staff \deleteFirstNote \music		\markup { Music split into two staffs }
	\new Staff \keepOnlyFirstNote \music		<<
	>>		\new Staff \deleteFirstNote \music
	</~~lilypond~~>		\new Staff \keepOnlyFirstNote \music
			>>
			<span></span>

	[[category:Chords]]		[[category:Chords]]
	[[category:Scheme]]		[[category:Scheme]]
	[[category:Really cool]]		[[category:Really cool]]

Lemzwerg: Formatting, improved docstring

2026-04-05T09:09:04Z

Formatting, improved docstring

← Older revision		Revision as of 09:09, 5 April 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It ~~splits~~ a chord sequence into two ~~separated~~ voices: ~~the first one built on~~ the first note (usually the lowest) of every chord and ~~the other on~~ the remaining notes. ~~It works well in 2.24.4 and even in 2.25.35. I find it very useful. It also preserves articulations and slurs. The only drawback: it doesn~~'t ~~work if you use «q»~~ to repeat last chord.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It provides two functions to split a chord sequence into two separate voices, also preserving articulations and slurs: <code>\keepOnlyFirstNode</code> extracts the first note (as given in the input; this is usually the lowest one) of every chord, and <code>\deleteFirstNote</code> collects the remaining notes.

			Note that these function don't support <samp>q</samp> to repeat the last chord.

	<lilypond version="2.24">		<lilypond version="2.24">
			#(define (has-duration? music)
			(ly:duration? (ly:music-property music 'duration)))

	~~#(define (has-duration? music)~~		#(define (not-has-duration? music)
	~~(ly:duration? (ly:music-property music 'duration)))~~		(not (has-duration? music)))

	#(define (not-has-duration? music)		keepOnlyFirstNote =
	(not (has-duration? music)))		#(define-music-function (parser location music) (ly:music?)
			(music-map
	~~keepsOnlyFirstNote~~ = #(define-music-function (parser location music) (ly:music?)		(lambda (evt)
	(music-map		(when (eq? 'EventChord (ly:music-property evt 'name))
	(lambda (evt)		(let ((elts (ly:music-property evt 'elements)))
	(if (eq? 'EventChord (ly:music-property evt 'name))		(when (has-duration? (car elts))
	(let ((elts (ly:music-property evt 'elements)))		(ly:music-set-property!
	(if (has-duration? (car elts))		evt 'elements
	(ly:music-set-property! evt 'elements (cons		(cons (car elts)
	(car elts)		(filter not-has-duration? (cdr elts)))))))
	(filter not-has-duration? (cdr elts)))))))		evt)
	evt)		music))
	music))
			deleteFirstNote =
	deleteFirstNote = #(define-music-function (parser location music) (ly:music?)		#(define-music-function (parser location music) (ly:music?)
	(music-map		(music-map
	(lambda (evt)		(lambda (evt)
	(if (eq? 'EventChord (ly:music-property evt 'name))		(when (eq? 'EventChord (ly:music-property evt 'name))
	(let ((elts (ly:music-property evt 'elements)))		(let ((elts (ly:music-property evt 'elements)))
	(if (has-duration? (car elts))		(when (has-duration? (car elts))
	(ly:music-set-property! evt 'elements (cdr elts)))))		(ly:music-set-property! evt 'elements (cdr elts)))))
	evt)		evt)
	music))		music))


	music =\relative c' {		music = \relative c' {
	<c e>4-> <d f>( <b g'>) <c e>-. g2 c2		<c e>4-> <d f>( <b g'>) <c e>-. g2 c2
	}		}

	\markup { Music with chords }
	\new Staff \music		\markup { Music with chords }
	\markup { Music ~~splitted in 2~~ staffs }		\new Staff \music
	<<
	\new Staff \deleteFirstNote \music		\markup { Music split into two staffs }
	\new Staff \~~keepsOnlyFirstNote~~ \music		<<
	>>		\new Staff \deleteFirstNote \music
			\new Staff \keepOnlyFirstNote \music
			>>
	</lilypond>		</lilypond>


	[[category:Chords]]		[[category:Chords]]
	[[category:Scheme]]		[[category:Scheme]]
	[[category:Really cool]]		[[category:Really cool]]

Rudi Guggt at 14:38, 23 March 2026

2026-03-23T14:38:22Z

← Older revision		Revision as of 14:38, 23 March 2026
Line 48:		Line 48:
	[[category:Chords]]		[[category:Chords]]
	[[category:Scheme]]		[[category:Scheme]]
	[[category:Really ~~Cool~~]]		[[category:Really cool]]

Rudi Guggt: cat

2026-03-23T14:37:33Z

cat

← Older revision		Revision as of 14:37, 23 March 2026
Line 44:		Line 44:
	>>		>>
	</lilypond>		</lilypond>


			[[category:Chords]]
			[[category:Scheme]]
			[[category:Really Cool]]

Fsarud at 16:52, 22 March 2026

2026-03-22T16:52:16Z

← Older revision		Revision as of 16:52, 22 March 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It splits a chord sequence into two separated voices: the first one built on the first note (usually the lowest) of every chord and the other on the remaining notes. It works well in 2.24.4 and even in 2.25.35. I find it very useful. The only drawback it doesn't work if you use «q» to repeat last chord.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It splits a chord sequence into two separated voices: the first one built on the first note (usually the lowest) of every chord and the other on the remaining notes. It works well in 2.24.4 and even in 2.25.35. I find it very useful. It also preserves articulations and slurs. The only drawback: it doesn't work if you use «q» to repeat last chord.

	<lilypond version="2.24">		<lilypond version="2.24">

Fsarud at 16:40, 22 March 2026

2026-03-22T16:40:35Z

← Older revision		Revision as of 16:40, 22 March 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It works well in 2.24.4 and even in 2.25.35. I find it very useful. ~~(Beware:~~ it doesn't work if you use «q» to repeat last chord).		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It splits a chord sequence into two separated voices: the first one built on the first note (usually the lowest) of every chord and the other on the remaining notes. It works well in 2.24.4 and even in 2.25.35. I find it very useful. The only drawback it doesn't work if you use «q» to repeat last chord.

			<lilypond version="2.24">

	~~<span></span>~~
	~~\version "2.24"~~

	#(define (has-duration? music)		#(define (has-duration? music)
	(ly:duration? (ly:music-property music 'duration)))		(ly:duration? (ly:music-property music 'duration)))
Line 34:		Line 33:

	music =\relative c' {		music =\relative c' {
	<c e>4-> <d f>( ~~<nowiki>~~<b g'>) <c e>-. g2 c2~~</nowiki>~~		<c e>4-> <d f>( <b g'>) <c e>-. g2 c2
	}		}

Line 44:		Line 43:
	\new Staff \keepsOnlyFirstNote \music		\new Staff \keepsOnlyFirstNote \music
	>>		>>
	~~<span>~~</~~span~~>		</lilypond>

Fsarud: Add that it doesn't work with q for repeating last chord

2026-03-22T14:17:01Z

Add that it doesn't work with q for repeating last chord

← Older revision		Revision as of 14:17, 22 March 2026
Line 1:		Line 1:
	This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It works well in 2.24.4 and even in 2.25.35. I find it very useful.		This snippet is a 2009 contribution by Gilles Thibault in [https://lists.gnu.org/archive/html/lilypond-user/2009-01/msg00685.html lilypond-user]. It works well in 2.24.4 and even in 2.25.35. I find it very useful. (Beware: it doesn't work if you use «q» to repeat last chord).

	<~~lilypond~~ version="2.24">		<span></span>
	#(define (has-duration? music)		\version "2.24"
	(ly:duration? (ly:music-property music 'duration)))
			#(define (has-duration? music)
	#(define (not-has-duration? music)		(ly:duration? (ly:music-property music 'duration)))
	(not (has-duration? music)))
			#(define (not-has-duration? music)
	keepsOnlyFirstNote = #(define-music-function (parser location music) (ly:music?)		(not (has-duration? music)))
	(music-map
	(lambda (evt)		keepsOnlyFirstNote = #(define-music-function (parser location music) (ly:music?)
	(if (eq? 'EventChord (ly:music-property evt 'name))		(music-map
	(let ((elts (ly:music-property evt 'elements)))		(lambda (evt)
	(if (has-duration? (car elts))		(if (eq? 'EventChord (ly:music-property evt 'name))
	(ly:music-set-property! evt 'elements (cons		(let ((elts (ly:music-property evt 'elements)))
	(car elts)		(if (has-duration? (car elts))
	(filter not-has-duration? (cdr elts)))))))		(ly:music-set-property! evt 'elements (cons
	evt)		(car elts)
	music))		(filter not-has-duration? (cdr elts)))))))
			evt)
	deleteFirstNote = #(define-music-function (parser location music) (ly:music?)		music))
	(music-map
	(lambda (evt)		deleteFirstNote = #(define-music-function (parser location music) (ly:music?)
	(if (eq? 'EventChord (ly:music-property evt 'name))		(music-map
	(let ((elts (ly:music-property evt 'elements)))		(lambda (evt)
	(if (has-duration? (car elts))		(if (eq? 'EventChord (ly:music-property evt 'name))
	(ly:music-set-property! evt 'elements (cdr elts)))))		(let ((elts (ly:music-property evt 'elements)))
	evt)		(if (has-duration? (car elts))
	music))		(ly:music-set-property! evt 'elements (cdr elts)))))
			evt)
			music))
	music =\relative c' {
	<c e>4-> <d f>( <b g'>) <c e>-. g2 c2
	}		music =\relative c' {
			<c e>4-> <d f>( <nowiki><b g'>) <c e>-. g2 c2</nowiki>
	\markup { Music with chords }		}
	\new Staff \music
	\markup { Music splitted in 2 staffs }		\markup { Music with chords }
	<<		\new Staff \music
	\new Staff \deleteFirstNote \music		\markup { Music splitted in 2 staffs }
	\new Staff \keepsOnlyFirstNote \music		<<
	>>		\new Staff \deleteFirstNote \music
	</~~lilypond~~>		\new Staff \keepsOnlyFirstNote \music
			>>
			<span></span>