input/test/chord-names-dpnj.ly

   1 \version "1.7.18"
   2
   3 \header {
   4     texidoc = "Chord name scheme test -- double-plus-new-chord-name jazz"
   5 }
   6
   7 %% This should only be necessary if your kpathsea setup is broken
   8 %
   9 % Make sure the correct msamxx.tfm is where lily can find it
  10 % (ie cwd or lily's tfm dir).
  11 %
  12 % For normal (20pt) paper, do
  13 %
  14 %   cp $(locate msam9.tfm) $LILYPONDPREFIX/fonts/tfm
  15 %
  16
  17
  18 scheme = \chords {
  19   % major chords
  20   c
  21   c:6           % 6 = major triad with added sixth
  22   c:maj         % triangle = maj
  23   c:6.9^7       % 6/9
  24   c:9^7         % add9
  25
  26   % minor chords
  27   c:m           % m = minor triad
  28   c:m6          % m6 = minor triad with added sixth
  29   c:m7+ % m triangle = minor major seventh chord
  30   c:3-.6.9^7    % m6/9
  31   c:m7          % m7
  32   c:3-.9        % m9
  33   c:3-.9^7      % madd9
  34
  35   % dominant chords
  36   c:7           % 7 = dominant
  37   c:7.5+        % +7 = augmented dominant
  38   c:7.5-        % 7b5 = hard diminished dominant
  39   c:9           % 7(9)
  40   c:9-          % 7(b9)
  41   c:9+          % 7(#9)
  42   c:13^9.11     % 7(13)
  43   c:13-^9.11    % 7(b13)
  44   c:13^11       % 7(9,13)
  45   c:13.9-^11    % 7(b9,13)
  46   c:13.9+^11    % 7(#9,13)
  47   c:13-^11      % 7(9,b13)
  48   c:13-.9-^11   % 7(b9,b13)
  49   c:13-.9+^11   % 7(#9,b13)
  50
  51   % half diminished chords
  52   c:m5-.7               % slashed o = m7b5
  53   c:9.3-.5-     % o/7(pure 9)
  54
  55   % diminished chords
  56   c:m5-.7-      % o = diminished seventh chord
  57 }
  58
  59 efullmusic = \notes {
  60
  61     %% ? what 'bout maj7?
  62     %% c:7 = \markup { \normal-size-super "maj7" }
  63
  64     %% Choose your symbol for the fully diminished chord
  65     %% American:
  66     %% c:3-.5-.7- = \markup { "dim" }
  67     %% Jazz:
  68     %% c:3-.5-.7-
  69     <<c es ges bes>>-\markup { \super " o" }
  70
  71     %% Hmm, this ok?
  72     %% c:7+
  73     <<c e g b>>-\markup { \normal-size-super
  74                           \override #'(font-family . math) "N" }
  75     %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  76     %%c:3.5.7 = \markup { \normal-size-super "maj7" }
  77 }
  78
  79 efull = #(sequential-music-to-chord-exceptions efullmusic #f)
  80
  81 epartialmusic = \notes {
  82     %c:2^3 =
  83     <<c d>>-\markup { \normal-size-super "2" }
  84     %c:3-
  85     <<c es>>-\markup { "m" }
  86     %c:4
  87     <<c f>>-\markup { \normal-size-super "sus4" }
  88     %c:5^3
  89     <<c g>>-\markup { \normal-size-super "5" }
  90 }
  91
  92 epartial = #(sequential-music-to-chord-exceptions epartialmusic #f)
  93
  94 \score {
  95   \notes <
  96     \context ChordNames {
  97
  98         %#(set-double-plus-new-chord-name-style 'banter
  99         %   `((separator . ,(make-simple-markup ":"))
 100         %     (full-exceptions . ,efull)
 101         %     (partial-exceptions . ,epartial)))
 102
 103         #(set-double-plus-new-chord-name-style 'jazz
 104            `((separator . ,(make-simple-markup ":"))
 105              (full-exceptions . ,efull)
 106              (partial-exceptions . ,epartial)))
 107         \scheme }
 108     \context Staff \transpose c c' \scheme
 109   >
 110 }
 111 %% new-chords-done %%
 112