input/test/chord-names-dpnj.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.  Compare with @file{chords-ignatzek.ly}."
   9
  10 }
  11
  12 chs = \notes \transpose c c'
  13 {
  14         <<c e g>>1-"dpn"
  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 efullmusic = \notes
  61 {
  62     <<c e gis>>1-\markup { "+" }
  63     <<c e g b>>-\markup { \normal-size-super
  64     %                     \override #'(font-family . math) "N" }
  65                           \override #'(font-family . math) "M" }
  66     %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  67     %%c:3.5.7 = \markup { \normal-size-super "maj7" }
  68
  69    <<c es ges>>-\markup { \super "o" } % should be $\circ$ ?
  70    <<c es ges bes>>-\markup { \super \combine "o" "/" }
  71    <<c es ges beses>>-\markup { \super  "o7" }
  72 }
  73
  74 efull = #(sequential-music-to-chord-exceptions efullmusic #f)
  75
  76 epartialmusic = \notes{
  77     <<c d>>1-\markup { \normal-size-super "2" }
  78     <<c es>>-\markup { "m" }
  79     <<c f>>-\markup { \normal-size-super "sus4" }
  80     <<c g>>-\markup { \normal-size-super "5" }
  81
  82     %% TODO, partial exceptions
  83     <<c es f>>-\markup { "m" }-\markup { \normal-size-super "sus4" }
  84     <<c d es>>-\markup { "m" }-\markup { \normal-size-super "sus2" }
  85 }
  86
  87 epartial = #(sequential-music-to-chord-exceptions epartialmusic #f)
  88
  89
  90 \score{
  91     <
  92     \context ChordNames {
  93
  94 %{
  95      \property ChordNames.chordNameFunction = #double-plus-new-chord->markup
  96      \property ChordNames.chordNameStyle = #'jazz
  97 %}
  98
  99        \property ChordNames.majorSevenSymbol = #whiteTriangleMarkup
 100        \property ChordNames.chordNameSeparator = #(make-simple-markup  "/")
 101        \property ChordNames.chordNameExceptionsFull = #efull
 102        \property ChordNames.chordNameExceptionsPartial = #epartial
 103
 104         %% FIXME
 105         %%\property ChordNames.chordNoteNamer = #'step->markup-ignatzek
 106         %%chordRootNamer = #note-name->markup
 107        \property ChordNames.chordNameFunction = #jazz-chord-names
 108
 109         \chs
 110     }
 111     \context Staff \notes \transpose c c { \chs }
 112     >
 113     \paper{
 114         \translator {
 115             \ChordNamesContext
 116             ChordName \override #'word-space = #1
 117         }
 118     }
 119 }
 120