input/test/american-chords.ly

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