input/test/american-chords.ly

   1 %{
   2   See scm/chord-names.scm: chord::names-alist-american
   3   James Hammons <jlhamm@pacificnet.net>
   4 %}
   5
   6 \include "english.ly"
   7 #(set! chord::names-alist-american
   8       (append
   9       '(
  10         ;; any changes here, see scm/chord-names.scm
  11
  12         )
  13       chord::names-alist-american))
  14
  15 chord = \notes\transpose c''\chords{
  16         \property ChordNames.ChordName \push #'style = #"american"
  17 c
  18 cs:m
  19 df:m5-
  20 c:5^3
  21 c:4^3
  22 c:5+
  23 c:2^3
  24 c:m5-.7-
  25 c:7+
  26 c:7.4^3
  27 c:5+.7
  28 c:m5-.7
  29 c:5-.7+
  30 c:m7+
  31 c:m7
  32 c:7
  33 c:6
  34 c:m6
  35 c:9^7
  36 c:6.9^7
  37 c:9
  38 c:7+.9
  39 c:m7.9
  40 }
  41
  42 \score{
  43 <
  44 \context ChordNames \chord
  45 \context Staff \chord
  46 >
  47     \paper
  48     {
  49                 \translator {
  50                         \ChordNameContext
  51                         ChordName \push #'word-space = #1
  52                 }
  53     }
  54 }
  55
  56 %    (((0 . 0) (2 . -1) (4 . 0)) . ("Bar" . ("script" . "Baz")))