input/test/chords.ly

   1 \version "1.5.68"
   2
   3
   4 %{
   5 Would this be acceptable/good enough/convenient for entry?
   6
   7    Convention/Standard    Lily
   8
   9    C#                     cis
  10    Cb                     ces
  11    Cm Cmin               c:3- c:m c:min
  12    Caug                   c:5+ c:aug
  13    Cdim                   c:3-.5- c:dim
  14    Cmaj7                  c:7+ c:maj
  15    C7                     c:7
  16    Csus Csus4            c:4 c:sus
  17
  18 %}
  19
  20 scales =  \notes \transpose c'' \chords{
  21                 %<c1 e g>
  22                 c1:m c:min c4:dim c:aug c:sus c:maj
  23                 c1:6 c4:7 c:9 c:11 c:13
  24                 c:m7 c:m.sus c:m7.sus
  25                 c4:dim7 c:dim9 c2:7^5
  26                 c:13^5.7.9.11
  27                 % c1:7^5 c:13^5
  28                 c1 g d a e b fis
  29                 c1 f bes es as des ges
  30                 % wierd, multiple :add, ^sub
  31                 c:7+.9-^3.5
  32                 % long
  33                 c\breve c\longa
  34         }
  35
  36 keys =  \notes{
  37                 s1
  38                 s1 s1 s1
  39                 s1 s1
  40                 s1
  41                 \key g \major s1
  42                 \key d \major s1
  43                 \key a \major s1
  44                 \key e \major s1
  45                 \key b \major s1
  46                 \key fis \major s1
  47                 \key c \major s1
  48                 \key f \major s1
  49                 \key bes \major s1
  50                 \key es \major s1
  51                 \key as \major s1
  52                 \key des \major s1
  53                 \key ges \major s1
  54                 \key c \major s1*2
  55                 \key c \major s1*6
  56         }
  57
  58 \score{
  59         <
  60                 \context ChordNames \scales
  61                 \context Staff < \scales \keys >
  62         >
  63         \paper{
  64                 \translator {
  65                         \ChordNamesContext
  66                         ChordName \override #'word-space = #1
  67                 }
  68         }
  69 }