input/regression/chord-name-styles.ly

   1 \header {
   2  texidoc = " show different naming conventions"
   3 }
   4
   5 \version "1.7.10"
   6
   7 scheme = \chords {
   8   % major chords
   9   c1
  10   c:6           % 6 = major triad with added sixth
  11   c:maj         % triangle = maj
  12   c:6.9^7       % 6/9
  13   c:9^7         % add9
  14
  15   % minor chords
  16   c:m           % m = minor triad
  17   c:m.6         % m6 = minor triad with added sixth
  18   c:m.7+        % m triangle = minor major seventh chord
  19   c:3-.6.9^7    % m6/9
  20   c:m.7         % m7
  21   c:3-.9        % m9
  22   c:3-.9^7      % madd9
  23
  24   % dominant chords
  25   c:7           % 7 = dominant
  26   c:7.5+        % +7 = augmented dominant
  27   c:7.5-        % 7b5 = hard diminished dominant
  28   c:9           % 7(9)
  29   c:9-          % 7(b9)
  30   c:9+          % 7(#9)
  31   c:13^9.11     % 7(13)
  32   c:13-^9.11    % 7(b13)
  33   c:13^11       % 7(9,13)
  34   c:13.9-^11    % 7(b9,13)
  35   c:13.9+^11    % 7(#9,13)
  36   c:13-^11      % 7(9,b13)
  37   c:13-.9-^11   % 7(b9,b13)
  38   c:13-.9+^11   % 7(#9,b13)
  39
  40   % half diminished chords
  41   c:m5-.7               % slashed o = m7b5
  42   c:9.3-.5-     % o/7(pure 9)
  43
  44   % diminished chords
  45   c:m5-.7-      % o = diminished seventh chord
  46
  47
  48   % suspended (?) 4ths
  49   c:sus c:m.sus c:m7.sus
  50   c:m7.sus^3
  51   c:7.4.3
  52   c:7.4^3.5
  53   c:2^3
  54   c:2.7^3
  55   c:4^5.3
  56 }
  57
  58 \score {
  59   \notes <
  60     \context ChordNames = bn {
  61         #(set-chord-name-style 'banter)
  62         \property ChordNames.instrument = # "Banter"
  63         \property ChordNames.instr = #"Bn"
  64         \scheme }
  65     \context ChordNames = jz {
  66         #(set-chord-name-style 'jazz)
  67         \property ChordNames.instrument = #"Jazz"
  68         \property ChordNames.instr = #"Jz"
  69         \scheme }
  70     \context ChordNames = am {
  71         #(set-chord-name-style 'american)
  72         \property ChordNames.instr = #"Am"
  73         \property ChordNames.instrument = #"American"
  74         \scheme }
  75     \context Staff \transpose c c' \scheme
  76   >
  77 \paper {
  78 linewidth = 16.0\cm
  79
  80 \translator {
  81   \ChordNamesContext \consists Instrument_name_engraver }
  82 }
  83 }
  84 %% new-chords-done %%