]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/chords-funky-ignatzek.ly
*** empty log message ***
[lilypond.git] / input / regression / chords-funky-ignatzek.ly
1 \version "1.7.23"
2
3
4 \header {
5 texidoc = "Jazz chords, unusual combinations."
6 }
7
8 chs = \notes 
9 {
10 <<c d  f g>>1
11 <<c d  e f g>>1
12 <<c d  e  g>>1
13 <<c d es  g as>>1
14 <<c d e f g bes d' f'>>1
15 <<c d e f g bes c'  d' e'>>1
16 <<c e g bes c'  d' e'>>1
17 <<c e g a bes>>1
18 <<c e g a d'>>1
19 }
20
21
22 \score{
23     <
24         \context ChordNames {
25 %       #(set-chord-name-style 'ignatzek)
26         \chs
27     }
28         \context Staff \notes \transpose c c' { \chs }
29     >
30     \paper{
31         \translator { 
32             \ChordNamesContext
33             ChordName \override #'word-space = #1 
34         }
35     }
36 }