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