input/test/american-chords.ly

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