input/regression/chords-ignatzek.ly

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