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:7+.5-       %
  29   c:7+.5+       %
  30
  31   % ninth chords
  32   c:9           % 7(9)
  33   c:9-          % 7(b9)
  34   c:9+          % 7(#9)
  35   c:13^9.11     % 7(13)
  36   c:13-^9.11    % 7(b13)
  37   c:13^11       % 7(9,13)
  38   c:13.9-^11    % 7(b9,13)
  39   c:13.9+^11    % 7(#9,13)
  40   c:13-^11      % 7(9,b13)
  41   c:13-.9-^11   % 7(b9,b13)
  42   c:13-.9+^11   % 7(#9,b13)
  43
  44   % half diminished chords
  45   c:m5-.7               % slashed o = m7b5
  46   c:9.3-.5-     % o/7(pure 9)
  47
  48   % diminished chords
  49   c:m5-.7-      % o = diminished seventh chord
  50
  51
  52   % suspended (?) 4ths
  53   c:sus c:m.sus c:m7.sus
  54   c:m7.sus^3
  55   c:7.4.3
  56   c:7.4^3.5
  57   c:2^3
  58   c:2.7^3
  59   c:4^5.3
  60
  61 }
  62
  63 \score {
  64   \notes <
  65     \context ChordNames = bn {
  66         #(set-chord-name-style 'banter)
  67         \property ChordNames.instrument = # "Banter"
  68         \property ChordNames.instr = #"Bn"
  69         \scheme }
  70     \context ChordNames = jz {
  71         #(set-chord-name-style 'jazz)
  72         \property ChordNames.instrument = #"Jazz"
  73         \property ChordNames.instr = #"Jz"
  74         \scheme }
  75     \context ChordNames = am {
  76         #(set-chord-name-style 'american)
  77         \property ChordNames.instr = #"Am"
  78         \property ChordNames.instrument = #"American"
  79         \scheme }
  80     \context Staff \transpose c c' \scheme
  81   >
  82 \paper {
  83 linewidth = 16.0\cm
  84
  85 \translator {
  86   \ChordNamesContext \consists Instrument_name_engraver }
  87 }
  88 }
  89 %% new-chords-done %%