Adding automatic octaves to a melody - Revision history

Lemzwerg: New category

2025-11-21T23:23:12Z

New category

← Older revision		Revision as of 23:23, 21 November 2025
Line 51:		Line 51:
	[[Category:Simultaneous notes]]		[[Category:Simultaneous notes]]
	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Keyboards]][[Category:Snippet]]		[[Category:Keyboards]]
			[[Category:Snippet]]

Lemzwerg at 22:46, 21 November 2025

2025-11-21T22:46:04Z

← Older revision		Revision as of 22:46, 21 November 2025
Line 51:		Line 51:
	[[Category:Simultaneous notes]]		[[Category:Simultaneous notes]]
	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Keyboards]]		[[Category:Keyboards]][[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:48:30Z

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:48, 16 November 2025
Line 5:		Line 5:
	Beware: the function can handle chords, but tends to reverse the intervals.		Beware: the function can handle chords, but tends to reverse the intervals.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%% http://lsr.di.unimi.it/LSR/Item?id=445		%% http://lsr.di.unimi.it/LSR/Item?id=445

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:40:48Z

Import snippet from LSR

New page

This macro allows you to get octaves from a sequence of single notes (this is particularly useful in piano music).

The function takes two arguments: the first one is a number (#1 adds notes an octave above, #-1 an octave below, etc), the second one is the music to deal with.

Beware: the function can handle chords, but tends to reverse the intervals.

<lilypond version="2.24.0">
%% http://lsr.di.unimi.it/LSR/Item?id=445

%LSR by Jay Anderson.
%modyfied by Simon Albrecht on March 2014.
%=> http://lilypond.1069038.n5.nabble.com/LSR-445-error-td160662.html

#(define (octave-up m t)
(let* ((octave (1- t))
(new-note (ly:music-deep-copy m))
(new-pitch (ly:make-pitch
octave
(ly:pitch-notename (ly:music-property m 'pitch))
(ly:pitch-alteration (ly:music-property m 'pitch)))))
(set! (ly:music-property new-note 'pitch) new-pitch)
new-note))

#(define (octavize-chord elements t)
(cond ((null? elements) elements)
((eq? (ly:music-property (car elements) 'name) 'NoteEvent)
(cons (car elements)
(cons (octave-up (car elements) t)
(octavize-chord (cdr elements) t))))
(else (cons (car elements) (octavize-chord (cdr elements ) t)))))

#(define (octavize music t)
(if (eq? (ly:music-property music 'name) 'EventChord)
(ly:music-set-property! music 'elements (octavize-chord
(ly:music-property music 'elements) t)))
music)

makeOctaves = #(define-music-function (arg mus) (integer? ly:music?)
(music-map (lambda (x) (octavize x arg)) (event-chord-wrap! mus)))

\relative c' {
\time 3/8
\key gis \minor
\makeOctaves #1 { dis8( e dis')~ dis8.( cis16 b8}
\makeOctaves #-1 { ais' gis dis) cis( dis <dis gis'>) }
}
</lilypond>

[[Category:Pitches]]
[[Category:Scheme]]
[[Category:Simultaneous notes]]
[[Category:Really cool]]
[[Category:Keyboards]]