input/test/american-chords.ly

   1 \version "1.3.96"
   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-names.scm
  12
  13         )
  14       chord::names-alist-american))
  15
  16 chord = \notes\transpose c''\chords{
  17         \property ChordNames.ChordNames \push #'style = #"american"
  18 c
  19 cs:m
  20 df:m5-
  21 c:5^3
  22 c:4^3
  23 c:5+
  24 c:2^3
  25 c:m5-.7-
  26 c:7+
  27 c:7.4^3
  28 c:5+.7
  29 c:m5-.7
  30 c:5-.7+
  31 c:m7+
  32 c:m7
  33 c:7
  34 c:6
  35 c:m6
  36 c:9^7
  37 c:6.9^7
  38 c:9
  39 c:7+.9
  40 c:m7.9
  41 }
  42
  43 \score{
  44 <
  45 \context ChordNames \chord
  46 \context Staff \chord
  47 >
  48     \paper
  49     {
  50                 \translator {
  51                         \ChordNamesContext
  52                         ChordNames \push #'word-space = #1
  53                 }
  54     }
  55 }
  56
  57 %    (((0 . 0) (2 . -1) (4 . 0)) . ("Bar" . ("script" . "Baz")))