input/test/american-chords.ly

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