Documentation/included/chord-names-jazz.ly

   1 \version "2.16.0"
   2 \header {
   3
   4 texidoc = " Chord names are generated from a list pitches.  The
   5 functions which construct these names can be customised.  Here are shown
   6 Jazz chords, following Ignatzek (pp. 17-18, 1995) and
   7 an alternative Jazz  chord notation.
   8
   9 Chords following Banter (1987) can also be printed from this file, but
  10 are turned off for brevity.
  11
  12 "
  13
  14 }
  15
  16 chs =  \transpose c' c'
  17 {
  18     <c e g>1
  19     <c es g>% m = minor triad
  20     <c e gis>
  21     <c es ges> \break
  22     <c e g bes>
  23     <c es g bes>
  24     <c e g b>           % triangle = maj
  25     <c es ges beses>
  26     <c es ges b> \break
  27     <c e gis bes>
  28     <c es g b>
  29     <c e gis b>
  30     <c es ges bes>\break
  31     <c e g a>   % 6 = major triad with added sixth
  32     <c es g a>  % m6 = minor triad with added sixth
  33     <c e g bes d'>
  34     <c es g bes d'> \break
  35     <c es g bes d' f' a' >
  36     <c es g bes d' f' >
  37     <c es ges bes d' >
  38     <c e g bes des' > \break
  39     <c e g bes dis'>
  40     <c e g bes d' f'>
  41     <c e g bes d' fis'>
  42     <c e g bes d' f' a'>\break
  43     <c e g bes d' fis' as'>
  44     <c e gis bes dis'>
  45     <c e g bes dis' fis'>
  46     <c e g bes d' f' as'>\break
  47     <c e g bes des' f' as'>
  48     <c e g bes d' fis'>
  49     <c e g b d'>
  50     <c e g bes d' f' as'>\break
  51     <c e g bes des' f' as'>
  52     <c e g bes des' f' a'>
  53     <c e g b d'>
  54     <c e g b d' f' a'>\break
  55     <c e g b d' fis'>
  56     <c e g bes des' f ' a'>
  57     <c f g>
  58     <c f g bes>\break
  59     <c f g bes d'>
  60     <c e g d'>  % add9
  61     <c es g f'>
  62     <c e g b fis'>  % Lydian
  63     <c e g bes des' ees' fis' aes'>  % altered chord
  64 }
  65
  66
  67 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  68 % alternate Jazz notation
  69
  70 efullmusicJazzAlt =
  71 {
  72     <c e gis>1-\markup { "+" }
  73     <c e g b>-\markup {
  74       \normal-size-super
  75     % \override #'(font-family . math) "N"
  76       \override #'(font-family . math) "M"
  77     }
  78     %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  79     %%c:3.5.7 = \markup { \normal-size-super "maj7" }
  80
  81    <c es ges>-\markup { \super "o" } % should be $\circ$ ?
  82    <c es ges bes>-\markup { \super \combine "o" "/" }
  83    <c es ges beses>-\markup { \super  "o7" }
  84 }
  85
  86 efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f)
  87
  88 epartialmusicJazzAlt = {
  89     <c d>1-\markup { \normal-size-super "2" }
  90     <c es>-\markup { "m" }
  91     <c f>-\markup { \normal-size-super "sus4" }
  92     <c g>-\markup { \normal-size-super "5" }
  93
  94     %% TODO, partial exceptions
  95     <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
  96     <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
  97 }
  98
  99 epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
 100
 101 jazzAltProperties = \sequential {
 102     \set majorSevenSymbol = #whiteTriangleMarkup
 103     \set chordNameSeparator = #(make-simple-markup  "/")
 104     \set chordNameExceptionsFull = #efullJazzAlt
 105     \set chordNameExceptionsPartial = #epartialJazzAlt
 106     \set chordNameFunction = #jazz-chord-names
 107 }
 108
 109 banterProperties = \sequential {
 110     \set chordNameFunction = #banter-chord-names
 111 }
 112
 113 \score{
 114     <<
 115         \new ChordNames {
 116             \set instrumentName = #"Ignatzek (default)"
 117             \set shortInstrumentName = #"Def"
 118             \chs
 119         }
 120
 121         \new ChordNames {
 122             \jazzAltProperties
 123             \set instrumentName = #"Alternative"
 124             \set shortInstrumentName = #"Alt"
 125             \chs
 126         }
 127
 128 %{
 129
 130         %% This is the Banter (1987) style.  It gives exceedingly
 131         %% verbose (wide) names, making the output file take up to 4 pages.
 132         %% (TODO: how big is is now?)
 133         %% Turned off by default.
 134
 135         %% TODO: use smaller font for Banter (or remove some esoteric
 136         %% chords).
 137
 138         \new ChordNames {
 139             \banterProperties
 140             \set instrumentName = #"Banter"
 141             \set shortInstrumentName = #"Ban"
 142             \chs
 143         }
 144 %}
 145
 146         \new Staff  \transpose c c' { \chs }
 147     >>
 148     \layout {
 149         \context {
 150             \ChordNames
 151             \consists Instrument_name_engraver
 152         }
 153     }
 154 }
 155