input/test/chord-names-dpnj.ly

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