input/test/chord-names-dpnj.ly

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