Creating keyboard diagrams with chords or scales - Revision history

Lemzwerg at 20:19, 16 February 2026

2026-02-16T20:19:58Z

← Older revision		Revision as of 20:19, 16 February 2026
Line 1:		Line 1:
	For use in education a scheme function to display chords on a keyboard have been created.		For use in education a scheme function to display chords on a keyboard have been created.

	The function is called 'keys' and it takes a list of note names as its argument. For example		The function is called <code>\keys</code> and it takes a list of note names as its argument. For example,

	\keys #'(c e g bes)		\keys #'(c e g bes)

	~~wil create~~ a C7 chord		creates a C7 chord.

	~~So far the~~ following note names are accepted:		The following note names are accepted: c, cis, des, d, ..., ais, bes, b, c', cis', des', ..., bes', b', c''.

	~~c, cis, des, d, ....., ais, bes, b, c', cis', des', ...., bes', b', c''~~		The function can be wrapped up in a markup command like this:

	~~The function can be wrapped up in a markup command like this~~		cnine=\markup\keys #'(c e g bes d')

	cnine=\markup\keys #'(c e g bes d')

	and be used like this		and be used like this

	\relative c' { ~~<~~ c e g bes d' ~~>~~^\cnine }		\relative c' { <c e g bes d'>^\cnine }

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


	#(define KEY-POS-LIST '(		#(define KEY-POS-LIST '(
	(c . 1) (cis . 1.5) (des . 1.5) (d . 2) (dis . 2.5) (ees . 2.5) (e . 3)		(c . 1) (cis . 1.5) (des . 1.5) (d . 2) (dis . 2.5) (ees . 2.5) (e . 3)

Lemzwerg: New category

2025-11-21T23:34:28Z

New category

← Older revision		Revision as of 23:34, 21 November 2025
Line 97:		Line 97:
	[[Category:Chords]]		[[Category:Chords]]
	[[Category:Keyboards]]		[[Category:Keyboards]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 22:50, 21 November 2025

2025-11-21T22:50:49Z

← Older revision		Revision as of 22:50, 21 November 2025
Line 97:		Line 97:
	[[Category:Chords]]		[[Category:Chords]]
	[[Category:Keyboards]]		[[Category:Keyboards]]
	[[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:47:45Z

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:47, 16 November 2025
Line 19:		Line 19:
	\relative c' { < c e g bes d' >^\cnine }		\relative c' { < c e g bes d' >^\cnine }

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

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:47:23Z

Import snippet from LSR

New page

For use in education a scheme function to display chords on a keyboard have been created.

The function is called 'keys' and it takes a list of note names as its argument. For example

\keys #'(c e g bes)

wil create a C7 chord

So far the following note names are accepted:

c, cis, des, d, ....., ais, bes, b, c', cis', des', ...., bes', b', c''

The function can be wrapped up in a markup command like this

cnine=\markup\keys #'(c e g bes d')

and be used like this

\relative c' { < c e g bes d' >^\cnine }

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

#(define KEY-POS-LIST '(
(c . 1) (cis . 1.5) (des . 1.5) (d . 2) (dis . 2.5) (ees . 2.5) (e . 3)
(f . 4) (fis . 4.5) (ges . 4.5) (g . 5) (gis . 5.5) (aes . 5.5) (a . 6)
(ais . 6.5) (bes . 6.5) (b . 7) (c' . 8) (cis' . 8.5) (des' . 8.5) (d' . 9)
(dis' . 9.5) (ees' . 9.5) (e' . 10) (f' . 11) (fis' . 11.5) (ges' . 11.5) (g' . 12)
(gis' . 12.5) (aes' . 12.5) (a' . 13) (ais' . 13.5) (bes' . 13.5) (b' . 14) (c'' . 15)))

#(define (black-key? num )
(member num '(cis des dis ees fis ges gis aes ais bes
cis' des' dis' ees' fis' ges' gis' aes' ais' bes')) )

#(define (key-to-pos key ypos)
(let ((keypos (assq key KEY-POS-LIST)))
(if (not keypos)
(ly:error (_ "keyboard diagram error - unkown note '~a'") key)
(cons (- (cdr (assq key KEY-POS-LIST)) 0.5) ypos))))

#(define (make-keys l1 width off height fill)
(if (null? l1)
empty-stencil
(ly:stencil-add
(ly:stencil-translate
(make-line-stencil 0.1 0 0 0 height)
(if fill
(cons (- (car l1) (/ width 2)) off) ;
(cons (- (car l1) 1) off)))
(make-keys (cdr l1) width off height fill))))

#(define (make-keys-black l1 width off height fill)
(if (null? l1)
empty-stencil
(ly:stencil-add
(ly:stencil-translate
(ly:round-filled-box `(0 . ,width) `(0 . ,height) 0)
(if fill
(cons (- (car l1) (/ width 2)) off) ;
(cons (- (car l1) 1) off)))
(make-keys-black (cdr l1) width off height fill))))

#(define (make-dot key)
(if (black-key? key)
(ly:stencil-in-color
(ly:stencil-translate (make-circle-stencil 0.27 0 #t) (key-to-pos key 2.5)) 1 1 1)
(ly:stencil-translate (make-circle-stencil 0.32 0 #t) (key-to-pos key 0.8)) ))

#(define (make-dot-list l1)
(if (null? l1)
empty-stencil
(ly:stencil-add
(make-dot (car l1))
(make-dot-list (cdr l1)))))

#(define-markup-command (keys layout props arg1) (list?)
(ly:stencil-add
(make-line-stencil 0.1 0 0 14 0)
(make-line-stencil 0.1 0 6 14 6)
(make-keys '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) 1 0 6 #f)
(make-keys-black '(1 2 4 5 6 8 9 11 12 13 ) 0.65 2 4 #t)
(make-dot-list arg1 )))

cnine=\markup\keys #'(c e g bes d' )
cmnine=\markup\keys #'(c ees g bes d')
cmninealt=\markup\keys #'(c bes d' ees' g')

\relative c' {
<c e g bes d>4^\cnine^"C9" r r2 r1
<c ees g bes d>4^\cmnine^"Cm9" r r2 r1
<c bes' d ees g>4^\cmninealt^"Cm9" r r2
}
</lilypond>

[[Category:Chords]]
[[Category:Keyboards]]
[[Category:Scheme]]