input/test/american-chords.ly

   1 \version "1.3.146"
   2
   3 %{
   4   See scm/chord-names.scm: chord::names-alist-american
   5   James Hammons <jlhamm@pacificnet.net>
   6 %}
   7
   8 \include "english.ly"
   9 #(set! chord::names-alist-american
  10       (append
  11       '(
  12          any changes here, see scm/chord-name.scm
  13
  14         )
  15       chord::names-alist-american))
  16
  17 scheme = \chords {
  18   c         % Major triad
  19   cs:m      % Minor triad
  20   df:m5-    % Diminished triad
  21   c:5^3     % Root-fifth chord
  22   c:4^3     % Suspended fourth triad
  23   c:5+      % Augmented triad
  24   c:2^3     % "2" chord
  25   c:m5-.7-  % Diminished seventh
  26   c:7+      % Major seventh
  27   c:7.4^3   % Dominant seventh suspended fourth
  28   c:5+.7    % Augmented dominant seventh
  29   c:m5-.7   % "Half" diminished seventh
  30   c:5-.7    % Dominant seventh flat fifth
  31   c:5-.7+   % Major seventh flat fifth
  32   c:m7+     % Minor-major seventh
  33   c:m7      % Minor seventh
  34   c:7       % Dominant seventh
  35   c:6       % Major sixth
  36   c:m6      % Minor sixth
  37   c:9^7     % Major triad w/added ninth
  38   c:6.9^7   % Six/Nine chord
  39   c:9       % Dominant ninth
  40   c:7+.9    % Major ninth
  41   c:m7.9    % Minor ninth
  42 }
  43
  44 \score {
  45   \notes <
  46     \context ChordNames \scheme
  47     \context Staff \transpose c'' \scheme
  48   >
  49   \paper {
  50     \translator {
  51       \ChordNamesContext
  52       ChordName \override #'word-space = #1
  53       ChordName \override #'style = #'american
  54     }
  55   }
  56 }