input/regression/chords-ignatzek.ly

   1 \header {
   2
   3 texidoc = " Chord names are generated from a list pitches.  The
   4 functions constructing the names are customisable. This file shows
   5 Jazz chords, following [Ignatzek1995], page 17 and 18."
   6
   7 }
   8
   9 chs = \notes \transpose c' c'
  10 {
  11         <<c e g>>1
  12         <<c es g>>% m = minor triad
  13         <<c e gis>>
  14         <<c es ges>> \break
  15         <<c e g bes>>
  16         <<c es g bes>>
  17         <<c e g b>>             % triangle = maj
  18         <<c es ges beses>>
  19         <<c es ges b>> \break
  20         <<c e gis bes>>
  21         <<c es g b>>
  22         <<c e gis b>>
  23         <<c es ges bes>>\break
  24         <<c e g a>>   % 6 = major triad with added sixth
  25         <<c es g a>>  % m6 = minor triad with added sixth
  26         <<c e g bes d'>>
  27         <<c es g bes d'>> \break
  28         <<c es g bes d' f' a' >>
  29         <<c es g bes d' f' >>
  30         <<c es ges bes d' >>
  31         <<c e g bes des' >> \break
  32         <<c e g bes dis'>>
  33         <<c e g bes d' f'>>
  34         <<c e g bes d' fis'>>
  35         <<c e g bes d' f' a'>>\break
  36         <<c e g bes d' fis' as'>>
  37         <<c e gis bes dis'>>
  38         <<c e g bes dis' fis'>>
  39         <<c e g bes d' f' as'>>\break
  40         <<c e g bes des' f' as'>>
  41         <<c e g bes d' fis'>>
  42         <<c e g b d'>>
  43         <<c e g bes d' f' as'>>\break
  44         <<c e g bes des' f' as'>>
  45         <<c e g bes des' f' a'>>
  46         <<c e g b d'>>
  47         <<c e g b d' f' a'>>\break
  48         <<c e g b d' fis'>>
  49         <<c e g bes des' f ' a'>>
  50         <<c f g>>
  51         <<c f g bes>>\break
  52         <<c f g bes d'>>
  53         <<c e g d'>>    % add9
  54         <<c es g f'>>
  55 }
  56
  57 \score{
  58     <
  59         \context ChordNames { \chs }
  60         \context Staff \notes \transpose c c' { \chs }
  61     >
  62     \paper{
  63         \translator {
  64             \ChordNamesContext
  65             ChordName \override #'word-space = #1
  66         }
  67     }
  68 }
  69